# HG changeset patch # User Richard Westhaver # Date 1726276913 14400 # Node ID 65bf0057ca359b7facfcbbe6609fda450edccae3 # Parent 995df3d48af0c4a13f572b782f40d3f387d0e83a style updates diff -r 995df3d48af0 -r 65bf0057ca35 babel.org --- a/babel.org Sat Sep 07 22:38:02 2024 -0400 +++ b/babel.org Fri Sep 13 21:21:53 2024 -0400 @@ -262,9 +262,39 @@ #+RESULTS: trim : a b c -* skel-show +* files :fs: +:PROPERTIES: +:ID: e2ff9dcf-8340-48b8-a1a6-e0036cbcc495 +:END: +#+name: format-files +#+begin_src python :var tab="" :results table :colnames yes :hlines yes :exports results :eval no-export +return tab +#+end_src + +#+name: files +#+begin_src sh :results replace table :dir "." :colnames yes :hlines yes :post format-files(*this*) + ls -lh $PWD --time-style=long-iso \ + |awk '{if (NR!=1) print $8, $5, $6"-"$7}' \ + |awk 'BEGIN{print "file size updated"}{print $0}' +#+end_src + +#+RESULTS: files +| file | size | updated | +|---------------+------+------------------| +| babel.org | 24K | 2024-09-07-19:45 | +| business.org | 803 | 2024-08-19-21:19 | +| glossary.org | 1.2K | 2024-09-06-15:35 | +| mindset.org | 119 | 2024-08-15-21:20 | +| pitch.org | 1.6K | 2024-08-11-17:16 | +| readme.org | 1.1K | 2024-08-27-21:13 | +| style.org | 3.2K | 2024-08-21-16:18 | +| tech.org | 3.6K | 2024-08-21-18:16 | +| ulang.org | 12K | 2024-09-06-16:12 | +| workflows.org | 7.5K | 2024-09-03-16:59 | + +* skel-show :skel: #+name: skel-show -#+begin_src shell :dir "~/comp/core" :var key=":id" :results replace +#+begin_src shell :var key=":id" :results replace echo $(skel show $key) #+end_src @@ -364,11 +394,12 @@ (let* ((project (project-current nil project)) (name (project-name project)) (root (project-root project)) + (default-directory root) (vc-type (downcase (symbol-name (cadr project)))) (age (org-sbe hg-log-age ''(dir root))) (rev (org-sbe hg-rev ''(dir root))) (num (org-sbe hg-id-num ''(dir root))) - (tags (org-sbe skel-show (key "':tags'") ''(dir root))) + (tags (org-sbe skel-show (key "':tags'"))) (id (org-sbe skel-show (key "':id'") ''(dir root))) (version (org-sbe skel-show (key "':version'") ''(dir root))) (description (org-sbe skel-show (key "':description'") ''(dir root))) @@ -396,46 +427,65 @@ #+RESULTS: project-details |-------------+---------------------------------------------------| | name | meta | -| version | 0.1.0 | -| description | The Compiler Company Core | -| skel-id | 15bc-b763-ec92-1cf5 | +| version | | +| description | | +| skel-id | | | root | ~/comp/org/meta/ | -| vc | :hg [[https://vc.compiler.company/meta][vc.compiler.company/meta]] :rev [[https://vc.compiler.company/meta/rev/06698c6708de][06698c6708de:8+]] | -| tags | (core lisp rust emacs c) | -| updated | 3 days ago | +| vc | :hg [[https://vc.compiler.company/meta][vc.compiler.company/meta]] :rev [[https://vc.compiler.company/meta/rev/995df3d48af0][995df3d48af0:9+]] | +| tags | | +| updated | Sat Sep 07 22:38:02 2024 -0400 | | langs | (org) | -| lines | 1768 :λ 1632 :# 3 :_ 133 | +| lines | 1828 :λ 1685 :# 4 :_ 139 | |-------------+---------------------------------------------------| -* files :fs: -:PROPERTIES: -:ID: e2ff9dcf-8340-48b8-a1a6-e0036cbcc495 -:END: -#+name: format-files -#+begin_src python :var tab="" :results table :colnames yes :hlines yes :exports results :eval no-export -return tab +* project-files :project:fs: +List all files found in current project. Ignores files which don't +exist locally. +#+name: project-files +#+begin_src emacs-lisp :var project="." :results replace + (let* ((project (project-current nil project)) + (name (project-name project)) + (root (expand-file-name (project-root project))) + (project-files-relative-names t) + (project-vc-include-untracked nil)) + `((file size modified) + hline + ,@(mapcar (lambda (x) + ;; don't rely on project/vc - only include files which exist locally + (when-let ((attr (file-attributes x))) + (list (format "[[https://vc.compiler.company/%s/file/tip/%s][%s]]" name x x) + (when-let ((size (file-attribute-size attr))) + (file-size-human-readable size)) + (format-time-string "%Y-%m-%d %H:%M:%S" (file-attribute-modification-time attr))))) + (project-files project)))) #+end_src -#+name: files -#+begin_src sh :results replace table :dir "." :colnames yes :hlines yes :post format-files-tbl(*this*) - ls -lh $PWD --time-style=long-iso \ - |awk '{if (NR!=1) print $8, $5, $6"-"$7}' \ - |awk 'BEGIN{print "file size updated"}{print $0}' +#+RESULTS: project-files +| file | size | modified | +|---------------+------+---------------------| +| [[https://vc.compiler.company/meta/file/tip/babel.org][babel.org]] | 30k | 2024-09-08 20:35:41 | +| [[https://vc.compiler.company/meta/file/tip/.hgignore][.hgignore]] | 7 | 2024-08-11 10:08:57 | +| [[https://vc.compiler.company/meta/file/tip/business.org][business.org]] | 803 | 2024-08-19 21:19:33 | +| [[https://vc.compiler.company/meta/file/tip/glossary.org][glossary.org]] | 1.1k | 2024-09-06 15:35:52 | +| [[https://vc.compiler.company/meta/file/tip/mindset.org][mindset.org]] | 119 | 2024-08-15 21:20:13 | +| [[https://vc.compiler.company/meta/file/tip/pitch.org][pitch.org]] | 1.6k | 2024-08-11 17:16:04 | +| [[https://vc.compiler.company/meta/file/tip/readme.org][readme.org]] | 1k | 2024-08-27 21:13:01 | +| [[https://vc.compiler.company/meta/file/tip/style.org][style.org]] | 3.2k | 2024-08-21 16:18:55 | +| [[https://vc.compiler.company/meta/file/tip/tech.org][tech.org]] | 3.5k | 2024-08-21 18:16:26 | +| [[https://vc.compiler.company/meta/file/tip/ulang.org][ulang.org]] | 11k | 2024-09-06 16:12:00 | +| [[https://vc.compiler.company/meta/file/tip/workflows.org][workflows.org]] | 7.4k | 2024-09-03 16:59:05 | + +* project-tasks :project:org: +List all project tasks. +#+name: project-tasks +#+begin_src emacs-lisp :results replace + `((todo item tags scheduled deadline effort) + hline) #+end_src -#+RESULTS: files -| file | size | updated | -|---------------+------+------------------| -| babel.org | 24K | 2024-09-07-19:45 | -| business.org | 803 | 2024-08-19-21:19 | -| glossary.org | 1.2K | 2024-09-06-15:35 | -| mindset.org | 119 | 2024-08-15-21:20 | -| pitch.org | 1.6K | 2024-08-11-17:16 | -| readme.org | 1.1K | 2024-08-27-21:13 | -| style.org | 3.2K | 2024-08-21-16:18 | -| tech.org | 3.6K | 2024-08-21-18:16 | -| ulang.org | 12K | 2024-09-06-16:12 | -| workflows.org | 7.5K | 2024-09-03-16:59 | +#+RESULTS: project-tasks +| todo | item | tags | scheduled | deadline | effort | +|------+------+------+-----------+----------+--------| * env-table :os: :PROPERTIES: @@ -534,17 +584,27 @@ #+RESULTS: hg-id-num : 8+ -* hg-log-age :vc: +* hg-log-since :vc: :PROPERTIES: :ID: 8492f4fb-51a6-4221-8705-a15eb5a50ed4 :END: -#+name: hg-log-age +#+name: hg-log-since #+begin_src shell :dir "." hg log -l1 --template "{date|age}" #+end_src +#+RESULTS: hg-log-since +: 3 days ago + +* hg-log-age :vc: +#+name: hg-log-age +#+begin_src shell :dir "." + # hg log -l1 --template "{date(date, '%Y-%m-%d %H:%M:%S')}\n" + hg log -l1 --template "{date(date)}\n" +#+end_src + #+RESULTS: hg-log-age -: 3 days ago +: Sat Sep 07 22:38:02 2024 -0400 * hg-churn :vc: #+name: hg-churn @@ -568,7 +628,7 @@ 2024-09 2430 ** #+end_example -* hg-status +* hg-status :vc: #+name: hg-status #+begin_src shell :dir "." hg status @@ -579,7 +639,7 @@ | M | glossary.org | | M | ulang.org | -* homer +* homer :homer: #+begin_src shell homer #+end_src