emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [PATCH] Link handling for qutebrowser org-mac-link.el
@ 2021-05-10 18:01 Aimé Bertrand
  2021-05-16 12:21 ` Bastien
  0 siblings, 1 reply; 8+ messages in thread
From: Aimé Bertrand @ 2021-05-10 18:01 UTC (permalink / raw)
  To: emacs-orgmode

Hi everyone,

hope to have done this right as a first time.
Work on a Mac with qutebrowser and thought the following patch 
would be helpful.

Salut
Aimé Bertrand



modified   lisp/org-mac-link.el
@@ -218,6 +218,12 @@
   :group 'org-mac-link
   :type 'string)

+(defcustom org-mac-grab-qutebrowser-app-p t
+  "Add menu option [q]utebrowser to grab links from 
qutebrowser.app."
+  :tag "Grab qutebrowser.app links"
+  :group 'org-mac-link
+  :type 'boolean)
+
 \f
 ;; In mac.c, removed in Emacs 23.
 (declare-function do-applescript "org-mac-message" (script))
@@ -254,7 +260,8 @@ When done, go grab the link, and insert it at 
point."
             ("e" "evernote" org-mac-evernote-note-insert-selected 
             ,org-mac-grab-Evernote-app-p)
 	    ("t" "ogether" org-mac-together-insert-selected 
 ,org-mac-grab-Together-app-p)
 	    ("S" "kim" org-mac-skim-insert-page 
 ,org-mac-grab-Skim-app-p)
-	    ("A" "crobat" org-mac-acrobat-insert-page 
         ,org-mac-grab-Acrobat-app-p)))
+	    ("A" "crobat" org-mac-acrobat-insert-page 
,org-mac-grab-Acrobat-app-p)
+	    ("q" "utebrowser" org-mac-qutebrowser-insert-frontmost-url 
,org-mac-grab-qutebrowser-app-p)))
          (menu-string (make-string 0 ?x))
          input)

@@ -1013,6 +1020,52 @@ list of message:// links to flagged mail 
after heading."
 	(org-insert-heading nil t)
 	(insert org-heading "\n" (org-mac-message-get-links "f"))))))

+\f
+;; Handle links from qutebrowser.app
+
+(defun org-as-mac-qutebrowser-get-frontmost-url ()
+  (let ((result
+         (do-applescript
+          (concat
+           "set oldClipboard to the clipboard\n"
+           "set frontmostApplication to path to frontmost 
application\n"
+           "tell application \"qutebrowser\"\n"
+           "	activate\n"
+           "	delay 0.15\n"
+           "	tell application \"System Events\"\n"
+           "		keystroke \"y\"\n"
+           "		keystroke \"y\"\n"
+           "	end tell\n"
+           "	delay 0.15\n"
+           "	set theUrl to the clipboard\n"
+           "	set the clipboard to oldClipboard\n"
+           "	delay 0.15\n"
+           "	tell application \"System Events\"\n"
+           "		keystroke \"y\"\n"
+           "		keystroke \"T\"\n"
+           "	end tell\n"
+           "	delay 0.15\n"
+           "	set theTitle to the clipboard\n"
+           "	set the clipboard to oldClipboard\n"
+	       "    set theResult to (get theUrl) & \"::split::\" & 
(get theTitle)\n"
+           "end tell\n"
+           "activate application (frontmostApplication as 
text)\n"
+           "set links to {}\n"
+           "copy theResult to the end of links\n"
+           "return links as string\n"))))
+     (car (split-string result "[\r\n]+" t))))
+
+;;;###autoload
+(defun org-mac-qutebrowser-get-frontmost-url ()
+  (interactive)
+  (message "Applescript: Getting qutebrowser url...")
+  (org-mac-paste-applescript-links 
(org-as-mac-qutebrowser-get-frontmost-url)))
+
+;;;###autoload
+(defun org-mac-qutebrowser-insert-frontmost-url ()
+  (interactive)
+  (insert (org-mac-qutebrowser-get-frontmost-url)))
+
 \f
 (provide 'org-mac-link)


^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2021-05-19  9:09 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-05-10 18:01 [PATCH] Link handling for qutebrowser org-mac-link.el Aimé Bertrand
2021-05-16 12:21 ` Bastien
2021-05-17 23:34   ` Aimé Bertrand Ntumwa-Nziza
2021-05-18  6:33     ` Bastien
2021-05-18 13:24       ` Aimé Bertrand
2021-05-18 14:00         ` Bastien
2021-05-18 15:37           ` Aimé Bertrand
2021-05-19  9:08             ` Bastien

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).