diff options
Diffstat (limited to 'org-gnosis.el')
| -rw-r--r-- | org-gnosis.el | 66 |
1 files changed, 65 insertions, 1 deletions
diff --git a/org-gnosis.el b/org-gnosis.el index 7c29997..ac3abdc 100644 --- a/org-gnosis.el +++ b/org-gnosis.el @@ -182,7 +182,71 @@ INITIAL-TAGS: Initial set of tags to inherit." :tags (append tags initial-tags) :id id :top-node nil))) - append (org-gnosis-parse-nodes sub-nodes node (append tags initial-tags)))) + append (org-gnosis-parse-nodes sub-nodes id (append tags initial-tags)))) + +(defun org-gnosis-db-sync () + "Sync `org-gnosis-db'." + (interactive) + (let ((files (cl-remove-if-not (lambda (file) + (and (string-match-p "^[0-9]" (file-name-nondirectory file)) + (not (file-directory-p file)))) + (directory-files org-gnosis-dir t nil t)))) + (cl-loop for file in files + do + ;; Add gnosis topic + (let* ((data (org-gnosis-get-file-info file)) + (file (plist-get data :file)) + (topic (org-gnosis-adjust-title (nth 0 (plist-get data :topic)))) + (tags (nth 1 (plist-get data :topic))) + (hash (nth 2 (plist-get data :topic)))) + (emacsql-with-transaction org-gnosis-db + (org-gnosis--insert-into 'nodes `([,hash ,file ,topic ,tags]))) + ;; Add nodes + (cl-loop for node in (org-gnosis-parse-data-recursive + (plist-get data :nodes)) + do + (let ((title (org-gnosis-adjust-title (plist-get node :node))) + (tags (plist-get node :tags)) + (id (plist-get node :id))) + (emacsql-with-transaction org-gnosis-db + (org-gnosis--insert-into 'nodes `([,id ,file ,title ,tags]))) + (message "ok"))))))) + +(defun org-gnosis-find--tag-with-tag-prop (lst) + "Combine each sublist of strings in LST into a single string." + (mapcar (lambda (sublist) + (mapconcat (lambda (element) + (let ((str (if (stringp element) + element + (format "%s" element)))) ;; Convert to string if necessary + (if (eq element (car sublist)) + str + (propertize (replace-regexp-in-string "," "#" str) + 'face 'org-gnosis-face-tags)))) + (cl-remove-if-not #'identity sublist) ;; Remove nil values + (format " %s" (propertize "#" 'face 'org-gnosis-face-tags)))) + lst)) + +(defun org-gnosis-find--with-tags () + "Select gnosis node with tags." + (replace-regexp-in-string " #[^[:space:]]+" "" + (completing-read "Select gnosis node: " + (org-gnosis-find--tag-with-tag-prop + (org-gnosis-select '[title tags] 'nodes))))) + +(defun org-gnosis-find () + "Select gnosis node." + (interactive) + (let* ((title (if org-gnosis-show-tags + (org-gnosis-find--with-tags) + (completing-read "Select gnosis node: " + (org-gnosis-select 'title 'nodes)))) + (file (caar (org-gnosis-select 'file 'nodes `(= title ,title)))) + (id (caar (org-gnosis-select 'id 'nodes `(= title ,title))))) + (find-file + (expand-file-name file org-gnosis-dir) + ;; + (ignore-errors (org-id-goto id))))) ;; Org-Gnosis Database |