diff options
| author | Thanos Apollo <[email protected]> | 2025-02-11 19:16:38 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2025-02-11 19:16:38 +0200 |
| commit | e251563417434ce5d610119c0ea8da107d02f4ec (patch) | |
| tree | 650020fb2e7d2f9b216af5023b637b14dcd00326 /org-gnosis-ui.el | |
| parent | 93e743ec0718113547738cf1b8aaf255dc380ea8 (diff) | |
version bump: 0.20.2
Diffstat (limited to 'org-gnosis-ui.el')
| -rw-r--r-- | org-gnosis-ui.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/org-gnosis-ui.el b/org-gnosis-ui.el index dfc2d11..0fcabe2 100644 --- a/org-gnosis-ui.el +++ b/org-gnosis-ui.el @@ -7,7 +7,7 @@ ;; Maintainer: Thanos Apollo <[email protected]> ;; URL: https://git.thanosapollo.org/org-gnosis-ui ;; Keywords: files outlines -;; Version: 0.1 +;; Version: 0.2 ;; Package-Requires: ((emacs "27.1") (simple-httpd "1.5.1") (websocket "1.13") (org-gnosis "0.0.2")) ;; This file is NOT part of GNU Emacs. @@ -368,21 +368,21 @@ loaded. Returns `ref' if an entry could not be found." (tail (nthcdr (+ n 1) lst))) (append head (list el) tail))) -;; (defun org-gnosis-ui--citekey-to-ref (citekey) -;; "Convert a CITEKEY property (most likely with a `cite:' prefix) to just a key. - -;; This method is mostly taken from `org-roam-bibtex' see but is has been -;; adapted to operate on a sting instead of a node. Requires `org-ref' to -;; be loaded. - -;; Returns the `key' or nil if the format does not match -;; the `org-ref-cite-re'" -;; (if-let ((boundp 'org-ref-cite-re) -;; (citekey-list (split-string-and-unquote citekey))) -;; (catch 'found -;; (dolist (c citekey-list) -;; (when (string-match org-ref-cite-re c) -;; (throw 'found (match-string 2 c))))))) +(defun org-gnosis-ui--citekey-to-ref (citekey) + "Convert a CITEKEY property (most likely with a `cite:' prefix) to just a key. + +This method is mostly taken from `org-roam-bibtex' see but is has been +adapted to operate on a sting instead of a node. Requires `org-ref' to +be loaded. + +Returns the `key' or nil if the format does not match +the `org-ref-cite-re'" + (if-let ((boundp 'org-ref-cite-re) + (citekey-list (split-string-and-unquote citekey))) + (catch 'found + (dolist (c citekey-list) + (when (string-match org-ref-cite-re c) + (throw 'found (match-string 2 c))))))) (defun org-gnosis-ui--retitle-node (node) "Replace the title of citation NODE with associated notes. |