changeset 11: |
6e53b8dc7795 |
parent 10: |
65bf0057ca35 |
child 12: |
f6df7eaa3684 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 20 Sep 2024 20:00:07 -0400 |
files: |
babel.org |
description: |
bump |
1.1--- a/babel.org Fri Sep 13 21:21:53 2024 -0400
1.2+++ b/babel.org Fri Sep 20 20:00:07 2024 -0400
1.3@@ -294,12 +294,11 @@
1.4
1.5 * skel-show :skel:
1.6 #+name: skel-show
1.7-#+begin_src shell :var key=":id" :results replace
1.8- echo $(skel show $key)
1.9+#+begin_src shell :var key="id" :results replace
1.10+ skel show $key
1.11 #+end_src
1.12
1.13 #+RESULTS: skel-show
1.14-: 15bc-b763-ec92-1cf5
1.15
1.16 #+RESULTS:
1.17 : (core lisp rust emacs c)
1.18@@ -399,10 +398,10 @@
1.19 (age (org-sbe hg-log-age ''(dir root)))
1.20 (rev (org-sbe hg-rev ''(dir root)))
1.21 (num (org-sbe hg-id-num ''(dir root)))
1.22- (tags (org-sbe skel-show (key "':tags'")))
1.23+ (tags (org-sbe skel-show (key "'tags'")))
1.24 (id (org-sbe skel-show (key "':id'") ''(dir root)))
1.25- (version (org-sbe skel-show (key "':version'") ''(dir root)))
1.26- (description (org-sbe skel-show (key "':description'") ''(dir root)))
1.27+ (version (org-sbe skel-show (key "'version'") ''(dir root)))
1.28+ (description (org-sbe skel-show (key "'description'") ''(dir root)))
1.29 (vc (format ":%s [[https://vc.compiler.company/%s][vc.compiler.company/%s]] :rev %s"
1.30 vc-type name name
1.31 (format "[[https://vc.compiler.company/%s/rev/%s][%s:%s]]" name rev rev num)))
1.32@@ -478,14 +477,40 @@
1.33 * project-tasks :project:org:
1.34 List all project tasks.
1.35 #+name: project-tasks
1.36-#+begin_src emacs-lisp :results replace
1.37- `((todo item tags scheduled deadline effort)
1.38- hline)
1.39+#+begin_src emacs-lisp :results replace :var project="."
1.40+ (let ((name (project-name (project-current nil project)))
1.41+ (hdr (list '(todo item tags scheduled deadline)
1.42+ 'hline))
1.43+ (tbl))
1.44+ (save-excursion
1.45+ (with-current-buffer (find-file-noselect
1.46+ (join-paths company-org-directory
1.47+ "plan/tasks/"
1.48+ (format "%s.org" name)))
1.49+ (org-with-wide-buffer
1.50+ (org-map-entries (lambda ()
1.51+ (let ((row))
1.52+ (push (or (org-get-todo-state) "") row)
1.53+ (push (org-get-heading t t t t) row)
1.54+ (push (or (remove name (org-get-tags)) "") row)
1.55+ (push (if-let ((ts (org-get-scheduled-time (point) t)))
1.56+ (format-time-string (cdr org-timestamp-formats) ts)
1.57+ "")
1.58+ row)
1.59+ (push (if-let ((ts (org-get-deadline-time (point) t)))
1.60+ (format-time-string (cdr org-timestamp-formats) ts)
1.61+ "")
1.62+ row)
1.63+ (push (nreverse row) tbl)))
1.64+ "TODO<>\"DONE\"" nil)
1.65+ )))
1.66+ (append hdr (nreverse tbl))
1.67+ )
1.68 #+end_src
1.69
1.70 #+RESULTS: project-tasks
1.71-| todo | item | tags | scheduled | deadline | effort |
1.72-|------+------+------+-----------+----------+--------|
1.73+| todo | item | tags | scheduled | deadline |
1.74+|------+------+------+-----------+----------|
1.75
1.76 * env-table :os:
1.77 :PROPERTIES: