|
| From: | Jean Louis |
| Subject: | Re: How users start programming in Emacs Lisp... |
| Date: | Tue, 1 Jun 2021 19:30:05 +0300 |
| User-agent: | Mutt/2.0.7+183 (3d24855) (2021-05-28) |
* Eduardo Ochs <eduardoochs@gmail.com> [2021-06-01 14:41]:
> Eev and Org-capture are totally compatible AFAIK. They can be used
> together and do not interfere on one another - but I didn't learn
> enough of Org-capture to start to work on a way to integrate them...
You can use org-protocol and this extension:
https://support.mozilla.org/1/firefox/88.0/Linux/en-US/extensions-pb
org-protocol-protocol-alist is a variable defined in ‘org-protocol.el’.
Its value is
(("Hyperscope Store Hyperlink" :protocol "store-link" :function
hyperscope-org-protocol-store-link)
("Hyperscope Capture From Hyperlink" :protocol "capture" :function
hyperscope-org-protocol-capture-link :kill-client t))
Original value was nil
You can customize this variable.
hyperscope-org-protocol-store-link is a Lisp closure in
‘Hyperscope/hyperscope.el’.
(hyperscope-org-protocol-store-link QUERY)
You can inspect this function on how to capture in your own
system from browser. You could then just add eev links to single
file.
(defun hyperscope-org-protocol-store-link (query)
(let* ((splitparts (org-protocol-parse-parameters query t))
(uri (org-protocol-sanitize-uri (plist-get splitparts :url)))
(title (plist-get splitparts :title))
(hlink-exist (hlink-link-exists-p uri t)))
(if hlink-exist
(progn
(rcd-warning-message "Link: %s already exists." uri)
(espeak "Link exists already")
nil)
(let* ((parent 23585) ;; (hyperscope-capture-user-sets)
(id (hlink-add-generic title uri 2 parent)))
(if id
(progn
(message "Added Hyperlink: %s to Hyperscope ID: %s" title id)
(hyperscope-update-tokens id)
(espeak "Done")
nil)
(progn
(message "Could not insert: %s" query)
(espeak "Did not work")
nil))))))
--
Jean
Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns
Sign an open letter in support of Richard M. Stallman
https://stallmansupport.org/
| [Prev in Thread] | Current Thread | [Next in Thread] |