branch: externals/gnosis
commit e3fcb3b3c484ac4790195ef1c1e47a3ce6ffe5f5
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
dashboard: dead code removal.
---
gnosis-dashboard.el | 14 --------------
1 file changed, 14 deletions(-)
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el
index cd953ffc4a..0dd3f593dc 100644
--- a/gnosis-dashboard.el
+++ b/gnosis-dashboard.el
@@ -1226,20 +1226,6 @@ Compares ENTRY1 and ENTRY2 by converting string values
to numbers."
Queries the gnosis database links table where dest = NODE-ID."
(gnosis-select 'source 'links `(= dest ,node-id) t))
-(defun gnosis-dashboard-get-themata-link-titles (node-id)
- "Return list of keimenon for themata that link to NODE-ID."
- (let ((thema-ids (gnosis-dashboard-get-themata-links node-id)))
- (mapcar (lambda (id)
- (car (gnosis-select 'keimenon 'themata `(= id ,id) t)))
- thema-ids)))
-
-(defun gnosis-dashboard-get-backlink-titles (node-id)
- "Return list of titles for nodes that link to NODE-ID (backlinks)."
- (let ((backlink-ids (org-gnosis-select 'source 'links `(= dest ,node-id) t)))
- (mapcar (lambda (id)
- (car (org-gnosis-select 'title 'nodes `(= id ,id) t)))
- backlink-ids)))
-
(defun gnosis-dashboard-get-backlink-ids (node-id)
"Return list of node IDs that link to NODE-ID (backlinks)."
(org-gnosis-select 'source 'links `(= dest ,node-id) t))
