Re: How users start programming in Emacs Lisp...

[Jean Louis <bugs@gnu.support>]

* 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/