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

1 files changed, 0 insertions, 26 deletions

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."