help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


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/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]