- [gemini] expand tilde when trying to open a local file or directory.

src/package.lisp

@@ -1282,6 +1282,7 @@
    :*complete-function*
    :shortest-candidate
    :directory-complete
+   :tilde-expand-string
    :folder-complete
    :timeline-complete-fn
    :ignored-username-complete

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