exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:06ec5f3d9e5f9db182c961c5a043cfc14f26c7be
Branches Tags
exot:master
..
compare: exot:d8c8e2b27238f3c275fafbe06bc5be9a5edec2fb
Branches Tags
exot:master

No commits in common. "06ec5f3d9e5f9db182c961c5a043cfc14f26c7be" and "d8c8e2b27238f3c275fafbe06bc5be9a5edec2fb" have entirely different histories.
06ec5f3d9e ... d8c8e2b272

2 changed files with 11 additions and 30 deletions
Show Stats Expand all files Collapse all files

2
init.el
View File

@ -2701,7 +2701,7 @@ With given ARG, display files in `db/important-document-path’."
;; General Stuff first ;; General Stuff first
(use-package lisp-mode (use-package lisp-mode
:init (setq lisp-indent-function #'lisp-indent-function)) :init (setq lisp-indent-function #'common-lisp-indent-function))
(use-package lispy (use-package lispy
:ensure t :ensure t

39
site-lisp/db-org.el
View File

@ -886,35 +886,20 @@ otherwise."
(user-error "Cannot find template via TEMPLATE_ID property or top-most sibling")) (user-error "Cannot find template via TEMPLATE_ID property or top-most sibling"))
(let ((parent-depth (--when-let (org-entry-get (point) "CHECKLIST_BACKLINK_DEPTH" nil) (let ((parent-depth (--when-let (org-entry-get (point) "CHECKLIST_BACKLINK_DEPTH" nil)
(string-to-number it))) (string-to-number it))))
number-of-backlinks
point-before-backlinks)
(insert (format "\nBacklinks (not DONE, no TEMPLATE, %s, no archives, not scheduled in the future):\n\n" (insert (format "\nBacklinks (not DONE, no TEMPLATE, %s, no archives, not scheduled in the future):\n\n"
(if parent-depth (if parent-depth
(format "parent-depth %d" parent-depth) (format "parent-depth %d" parent-depth)
"all parents"))) "all parents")))
(org-dblock-write:db/org-backlinks (list
;; Store where we are (minus the two newlines) so we can delete the :org-ql-match '(and
;; checklist in case it's empty. (not (done))
(setq point-before-backlinks (- (point) 2)) (not (ltags "TEMPLATE"))
(not (scheduled :from 1)))
(setq number-of-backlinks :parent-depth (--when-let (org-entry-get (point) "CHECKLIST_BACKLINK_DEPTH" nil)
(org-dblock-write:db/org-backlinks (list (string-to-number it))
:org-ql-match '(and :archive nil)))
(not (done))
(not (ltags "TEMPLATE"))
(not (scheduled :from 1)))
:parent-depth (--when-let (org-entry-get (point) "CHECKLIST_BACKLINK_DEPTH" nil)
(string-to-number it))
:archive nil)))
;; When no backlinks have been found, remove the empty table head and just
;; print "none".
(when (zerop number-of-backlinks)
(delete-region point-before-backlinks (point))
(insert " none.")))
(insert "\n\nTemplate:\n") (insert "\n\nTemplate:\n")
(db/org-copy-body-from-item-to-point template-pom))) (db/org-copy-body-from-item-to-point template-pom)))
@ -1328,8 +1313,6 @@ marker pointing to the current headline."
(defun org-dblock-write:db/org-backlinks (params) (defun org-dblock-write:db/org-backlinks (params)
"Write table of backlinks for current item and its parent items as Org table. "Write table of backlinks for current item and its parent items as Org table.
Returns the number of backlinks.
PARAMS may contain the following values: PARAMS may contain the following values:
:org-ql-match An org-ql-match expression in sexp syntax to filter :org-ql-match An org-ql-match expression in sexp syntax to filter
@ -1406,9 +1389,7 @@ PARAMS may contain the following values:
priority priority
(apply #'concat (-interpose ", " backlink-targets))))) (apply #'concat (-interpose ", " backlink-targets)))))
(insert "\n|---|"))) (insert "\n|---|")))
(org-table-align) (org-table-align)))
(length output-lines)))
(defun db/org-insert-backlink-block () (defun db/org-insert-backlink-block ()
"Create dynamic block of backlinks to current item or any of its parents." "Create dynamic block of backlinks to current item or any of its parents."