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: