Re: Debugging firefox extension (Re: idea for capture anywhere in x)

[Jean Louis]

* Samuel Wales <samologist@gmail.com> [2022-11-17 06:19]:
> in other words, you click unicorn, it does some org-protocol call, and
> then it flashes that nice but misleading message.

That is why I am using Emacs to tell me audibly that bookmark was
recorded.

Forgive me for not using really Org to record what org-protocol
extension does, but this example may help people by principle to
people to get better notification:

(defun hyperscope-org-protocol-store-link (query)
  (if (hyperscope-user-www-set)
    (let* ((splitparts (org-protocol-parse-parameters query t))
           (uri (org-protocol-sanitize-uri (plist-get splitparts :url)))
           (title (plist-get splitparts :title))
           (hlink-exist (hyperscope-link-exists-p uri 2)))
      (if hlink-exist
          (progn
            (rcd-warning-message "Link: %s already exists." uri)
            (rcd-speak "Link exists already")
            nil)
        (let* ((parent (hyperscope-user-www-set))
               (id (hyperscope-add-generic title uri nil 2 nil parent)))
          (if id
              (progn
                (message "Added Hyperlink: %s to Hyperscope ID: %s" title id)
                (hyperscope-update-tokens id)
                (rcd-speak "Done") 
                ;; speaking "Done" on my loud speaker tells me it was
                ;; made well
                nil)
            (progn
              (message "Could not insert: %s" query)
              (rcd-speak "Did not work")
              nil)))))
    (rcd-warning-message "Define WWW set for user `%s' in table 
`usersdefaults'" (rcd-db-current-user))))

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/