branch: externals/org-gnosis
commit f68e2350cba6578829fec4a2864a86417cd67cb3
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
Remove denote parsing
* Currently there is no need to add & support denote support, although
it can easily be added in the feature.
* The core design of org-gnosis is still under development
---
org-gnosis.el | 26 --------------------------
1 file changed, 26 deletions(-)
diff --git a/org-gnosis.el b/org-gnosis.el
index 514ba1be5f..4b69c82eb2 100644
--- a/org-gnosis.el
+++ b/org-gnosis.el
@@ -63,11 +63,6 @@
:type 'function
:group 'gnosis)
-(defcustom org-gnosis-denote-p nil
- "Use org-gnosis databse for denote notes."
- :group 'org-gnosis
- :type 'boolean)
-
(defface org-gnosis-face-tags
'((t :inherit font-lock-type-face))
"Face for displaying gnosis with `org-gnosis-find'."
@@ -179,27 +174,6 @@ Return the ID if found, else nil."
(tags (org-gnosis-get-filetags)))
(list title tags id)))
-(defun org-gnosis--denote-topic ()
- "Parse current buffer for denote file format."
- (save-excursion
- (goto-char (point-min))
- (let ((title nil)
- (tags nil)
- (identifier nil))
- (when (or (re-search-forward "^title:\\s-*\\(.*\\)$" nil t)
- (re-search-forward "^#\\+title:\\s-*\\(.*\\)$" nil t))
- (setq title (match-string-no-properties 1)))
- (when (or (re-search-forward "^tags:\\s-*\\(.*\\)$" nil t)
- (re-search-forward "^#\\+filetags:\\s-*\\(.*\\)$" nil t))
- (setq tags (if (string-match-p ":" (match-string-no-properties 1))
- (split-string (match-string-no-properties 1) ":")
- (split-string (match-string-no-properties 1))))
- (setq tags (delete "" tags)))
- (when (or (re-search-forward "^identifier:\\s-*\\(.*\\)$" nil t)
- (re-search-forward "^#\\+identifier:\\s-*\\(.*\\)$" nil t))
- (setq identifier (match-string-no-properties 1)))
- (list title tags identifier))))
-
;; This one is used mostly for topic
(defun org-gnosis-get-filetags (&optional parsed-data)
"Return the filetags of the buffer's PARSED-DATA as a comma-separated
string."
