- added command to copy a link to clipboard.

README.org

@@ -55,9 +55,8 @@ All  the dependencies  above  should be  available  using the  package
 manager of your distribution (~apt~, ~yum~ etc).
 
 ** Lisp Libraries
-
    - alexandria;
-   - cl-ppcre;
+   - cl-ppcre-unicode;
    - tooter;
    - croatoan;
    - osicat;
@@ -79,7 +78,12 @@ manager of your distribution (~apt~, ~yum~ etc).
    - cl-html5-parser;
    - unix-opts;
    - crypto-shortcuts;
-   - drakma.
+   - drakma;
+   - usocket;
+   - cffi;
+   - babel;
+   - percent-encoding;
+   - trivial-clipboard.
 
    All these libraries  will be downloaded, compiled  and installed by
    the script ~quick_quicklisp.sh~, see below.

README.txt

@@ -100,7 +100,7 @@ Table of Contents
 ──────────────────
 
   • alexandria;
-  • cl-ppcre;
+  • cl-ppcre-unicode;
   • tooter;
   • croatoan;
   • osicat;
@@ -122,7 +122,12 @@ Table of Contents
   • cl-html5-parser;
   • unix-opts;
   • crypto-shortcuts;
-  • drakma.
+  • drakma;
+  • usocket;
+  • cffi;
+  • babel;
+  • percent-encoding;
+  • trivial-clipboard.
 
   All these libraries will be downloaded, compiled and installed by the
   script `quick_quicklisp.sh', see below.

etc/init.lisp

@@ -595,6 +595,8 @@
 
 (define-key "C-J"       #'open-message-link-perform-opening             *open-message-link-keymap*)
 
+(define-key "C-c"       #'copy-link-to-clipboard                        *open-message-link-keymap*)
+
 (define-key "up"        #'open-message-link-go-up                       *open-message-link-keymap*)
 
 (define-key "down"      #'open-message-link-go-down                     *open-message-link-keymap*)

quick_quicklisp.sh.in

@@ -143,6 +143,7 @@ install_dependency () {
      --eval "(ql:quickload \"cffi\")"              \
      --eval "(ql:quickload \"babel\")"             \
      --eval "(ql:quickload \"percent-encoding\")"  \
+     --eval "(ql:quickload \"trivial-clipboard\")" \
      --eval "(sb-ext:quit)"
 }
 

src/package.lisp

@@ -2709,6 +2709,7 @@
    :open-next-visible-link
    :go-to-next-link
    :go-to-previous-link
+   :copy-link-to-clipboard
    :close-open-message-link-window
    :open-message-link-window-scroll-begin
    :open-message-link-window-scroll-end

src/ui-goodies.lisp

@@ -1357,6 +1357,14 @@ This makes sense only for gemini file stream, if not this command performs the s
 'open-message-link-perform-opening'"
   (%open-message-link-perform-opening t))
 
+(defun copy-link-to-clipboard ()
+  "Copy the selected link address to clipboard"
+  (when-let* ((selected-line (line-oriented-window:selected-row *open-message-link-window*))
+              (url           (line-oriented-window:normal-text selected-line)))
+    (with-notify-errors
+      (trivial-clipboard:text url)
+      (info-message (_ "Address copied to clipboard")))))
+
 (defun close-open-message-link-window ()
   (when-window-shown (*open-message-link-window*)
     (when (message-window:display-gemini-text-p *open-message-link-window*)

tinmop.asd

@@ -51,6 +51,7 @@
                :usocket
                :babel
                :percent-encoding
+               :trivial-clipboard
                :uiop)
   :components ((:file "package")
                (:file "idn")