org-protocol.lisp

(define-command-global ph/org-capture ()
  (let* ((url (ph/url-encode (ph/buffer-url)))
         (title (ph/url-encode (ph/buffer-title)))
         (body (ph/url-encode (%copy)))
         (org-protocol-uri
          (ph/format
           "'org-protocol://capture?template=w&url=~a&title=~a&body=~a'"
           url title body)))
    (format *error-output* "Sending to Emacs:~%~a~%" org-protocol-uri)
    (uiop:run-program
     (list "/usr/bin/env" "SSH_ASKPASS=/usr/bin/ssh-askpass"
           "timeout" "--signal=9" "5m" "emacsclient"
           org-protocol-uri))))