From f68e2350cba6578829fec4a2864a86417cd67cb3 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 18 Dec 2024 19:21:08 +0200 Subject: 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(-) (limited to 'org-gnosis.el') diff --git a/org-gnosis.el b/org-gnosis.el index 514ba1b..4b69c82 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." -- cgit v1.2.3