.doom.d reviews and mentions

• A few QoL tricks I haven't seen much of on the subreddit yet
  1 project | /r/OrgRoam | 25 Jul 2021

  (setq org-roam-node-display-template (concat "${backlinkscount:16} " "${functiontag:16} " "${othertags:13} " "${hierarchy:183}")) ;; From https://github.com/hieutkt/.doom.d/blob/master/config.el#L690-L745 or ;; https://orgroam.slack.com/archives/CV20S23C0/p1626662183035800 (with-eval-after-load 'org-roam (require 'all-the-icons) (cl-defmethod org-roam-node-filetitle ((node org-roam-node)) "Return the file TITLE for the node." (org-roam-get-keyword "TITLE" (org-roam-node-file node)) ) (cl-defmethod org-roam-node-backlinkscount ((node org-roam-node)) (let* ((count (caar (org-roam-db-query [:select (funcall count source) :from links :where (= dest $s1) :and (= type "id")] (org-roam-node-id node)))) ) (if (> count 0) (concat (propertize "=has:backlinks=" 'display (all-the-icons-material "link" :face 'all-the-icons-dblue :height 0.9)) (format "%d" count)) (concat (propertize "=not-backlinks=" 'display (all-the-icons-material "link" :face 'org-roam-dim :height 0.9)) " ") ) )) (cl-defmethod org-roam-node-functiontag ((node org-roam-node)) "The first tag of notes are used to denote note type" (let* ((specialtags kb/lit-categories) (tags (seq-filter (lambda (tag) (not (string= tag "ATTACH"))) (org-roam-node-tags node))) (functiontag (seq-intersection specialtags tags 'string=)) ) (concat ;; (if functiontag ;; (propertize "=has:functions=" 'display (all-the-icons-octicon "gear" :face 'all-the-icons-silver :v-adjust 0.02 :height 0.8)) ;; (propertize "=not-functions=" 'display (all-the-icons-octicon "gear" :face 'org-roam-dim :v-adjust 0.02 :height 0.8)) ;; ) (if functiontag (propertize "=@=" 'display (all-the-icons-faicon "tags" :face 'all-the-icons-dgreen :v-adjust 0.02 :height 0.7)) (propertize "= =" 'display (all-the-icons-faicon "tags" :face 'all-the-icons-dgreen :v-adjust 0.02 :height 0.7)) ) " " (string-join functiontag ", ")) )) (cl-defmethod org-roam-node-othertags ((node org-roam-node)) "Return the file TITLE for the node." (let* ((tags (seq-filter (lambda (tag) (not (string= tag "ATTACH"))) (org-roam-node-tags node))) (specialtags kb/lit-categories) (othertags (seq-difference tags specialtags 'string=)) ) (concat ;; " " ;; (if othertags ;; (propertize "=has:tags=" 'display (all-the-icons-faicon "tags" :face 'all-the-icons-dgreen :v-adjust 0.02 :height 0.8)) ;; (propertize "=not-tags=" 'display (all-the-icons-faicon "tags" :face 'all-the-icons-dgreen :v-adjust 0.02 :height 0.8)) ;; ) ;; " " (if othertags (propertize "=@=" 'display "") (propertize "= =" 'display "") ) (propertize (string-join othertags ", ") 'face 'all-the-icons-dgreen)) )) (cl-defmethod org-roam-node-hierarchy ((node org-roam-node)) "Return the hierarchy for the node." (let* ((title (org-roam-node-title node)) (olp (mapcar (lambda (s) (if (> (length s) 10) (concat (substring s 0 10) "...") s)) (org-roam-node-olp node))) (level (org-roam-node-level node)) (filetitle (org-roam-get-keyword "TITLE" (org-roam-node-file node))) (shortentitle (if (> (length filetitle) 20) (concat (substring filetitle 0 20) "...") filetitle)) (separator (concat " " (all-the-icons-material "chevron_right") " ")) ) (cond ((>= level 1) (concat (propertize (format "=level:%d=" level) 'display (all-the-icons-material "list" :face 'all-the-icons-blue)) " " (propertize shortentitle 'face 'org-roam-dim) (propertize separator 'face 'org-roam-dim) title)) (t (concat (propertize (format "=level:%d=" level) 'display (all-the-icons-material "insert_drive_file" :face 'all-the-icons-yellow)) " " title)) ) )) )