diff --git a/src/package.lisp b/src/package.lisp index e97c148..0f305be 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -1282,6 +1282,7 @@ :*complete-function* :shortest-candidate :directory-complete + :tilde-expand-string :folder-complete :timeline-complete-fn :ignored-username-complete diff --git a/src/program-events.lisp b/src/program-events.lisp index 08333e9..7f86dee 100644 --- a/src/program-events.lisp +++ b/src/program-events.lisp @@ -1011,8 +1011,8 @@ (use-cached-file-if-exists use-cached-file-if-exists)) object (let ((window specials:*message-window*) (local-path (if (text-utils:percent-encoded-p url) - (text-utils:percent-decode url) - url))) + (complete:tilde-expand-string (text-utils:percent-decode url)) + (complete:tilde-expand-string url)))) (setf (windows:keybindings window) keybindings:*gemini-message-keymap*) (when give-focus-to-message-window-p