1.1--- a/babel.org Thu Aug 15 21:48:42 2024 -0400
1.2+++ b/babel.org Sun Aug 18 22:16:12 2024 -0400
1.3@@ -3,10 +3,15 @@
1.4 #+description: Core Library of Babel
1.5 #+setupfile: ../clean.theme
1.6 #+property: header-args :exports both
1.7-Welcome to the Core [[https://www.gnu.org/software/emacs/manual/html_node/org/Library-of-Babel.html][Library of Babel]]. This file contains a
1.8-collection of code blocks used throughout our Org documents.
1.9+Welcome to the CC [[https://www.gnu.org/software/emacs/manual/html_node/org/Library-of-Babel.html][Library of Babel]]. This file contains a collection of
1.10+code blocks which may be used by authors throughout our public
1.11+documentation.
1.12
1.13-To load the library use ~C-c C-v i~.
1.14+This library depends on the [[vc:comp/core][core]] being properly installed and the
1.15+=core/emacs= init system loaded in emacs. See [[vc:comp/home][home]] for details.
1.16+
1.17+To load the library itself use ~C-c C-v i~ while visiting this file in
1.18+an org-mode buffer or =org-babel-lob-ingest= from elisp.
1.19
1.20 * systemd-list-units :os:
1.21 :PROPERTIES:
1.22@@ -40,7 +45,7 @@
1.23 :ID: 670e9855-f8d2-43eb-86af-3ef7292f90b9
1.24 :END:
1.25 #+name: tokei-dir-lines
1.26-#+begin_src shell :var src=(org-sbe org-current-h1-title) :results output replace
1.27+#+begin_src shell :var src="" :results output replace
1.28 cd ~/comp/$src
1.29 input=`tokei -C -o json`
1.30 echo $input | jq -r '.["Total"] | .code, .comments, .blanks'
1.31@@ -51,7 +56,7 @@
1.32 :ID: ff9682f0-bb64-427f-a87d-e0c655f9fdc9
1.33 :END:
1.34 #+name: tokei-dir-langs
1.35-#+begin_src shell :var src=(org-sbe org-current-h1-title) :results output replace
1.36+#+begin_src shell :var src="org" :results output replace
1.37 cd ~/comp/$src
1.38 input=`tokei -C -o json`
1.39 echo $input | jq -r '.["Total"].children | keys[]'
1.40@@ -138,15 +143,15 @@
1.41 :END:
1.42 #+name: make-info-tbl
1.43 #+header: :var version="0.1.0"
1.44-#+header: :var name=(org-sbe org-current-h1-title)
1.45+#+header: :var name="org"
1.46 #+header: :var dir="/home/ellis/comp/"
1.47 #+begin_src emacs-lisp :results table replace
1.48 (let* ((src (concat dir name))
1.49- (age (org-sbe "hg-log-age" ''(dir src)))
1.50- (rev (org-sbe "hg-rev" ''(dir src)))
1.51- (num (org-sbe "hg-id-num" ''(dir src)))
1.52- (cc1 (org-sbe "tokei-dir-lines" ''((dir src))))
1.53- (cc2 (org-sbe "tokei-dir-langs" ''((dir src))))
1.54+ (age (org-sbe "hg-log-age" ''(src name)))
1.55+ (rev (org-sbe "hg-rev" ''(src name)))
1.56+ (num (org-sbe "hg-id-num" ''(src name)))
1.57+ (cc1 (org-sbe "tokei-dir-lines" ''(src name)))
1.58+ (cc2 (org-sbe "tokei-dir-langs" ''(src name)))
1.59 (nf (format "[[comp:docs/%s][%s]]" name name))
1.60 (rf (format "[[vc:comp/%s][%s:%s]]" name num rev))
1.61 ;; (gf (format "[[https://github.com/richardwesthaver/%s][github]]" name))
1.62@@ -169,9 +174,9 @@
1.63 |---------+----------------------------|
1.64 | name | [[https://compiler.company/docs/org][org]] |
1.65 | version | 0.1.0 |
1.66- | vc | [[https://vc.compiler.company/comp/org][41+:0f4d1a0415d5]] |
1.67- | updated | 3 hours ago |
1.68- | lines | 13143 = λ:12268 #:46 _:829 |
1.69+ | vc | [[https://vc.compiler.company/comp/org][44+:2b6f731f3684]] |
1.70+ | updated | nil |
1.71+ | lines | 14812 = λ:13917 #:45 _:850 |
1.72 | langs | (Html Org Svg) |
1.73 |---------+----------------------------|
1.74
1.75@@ -180,7 +185,7 @@
1.76 :ID: e2ff9dcf-8340-48b8-a1a6-e0036cbcc495
1.77 :END:
1.78 #+name: ls-files
1.79-#+begin_src sh :results silent :var dir=(expand-file-name "~/comp") name=(org-sbe org-current-h1-title)
1.80+#+begin_src sh :results silent :var dir=(expand-file-name "~/comp") name="org"
1.81 ls -lh $dir/$name --time-style=long-iso \
1.82 |awk '{if (NR!=1) print $8, $5, $6"-"$7}' \
1.83 |awk 'BEGIN{print "file size updated"}{print $0}'
1.84@@ -191,6 +196,29 @@
1.85 return tab
1.86 #+end_src
1.87
1.88+* env-table :os:
1.89+:PROPERTIES:
1.90+:ID: 4c824478-0eaa-49b9-905f-2c9a6d4220eb
1.91+:END:
1.92+#+begin_src sh :results table replace
1.93+ for i in $(env);
1.94+ do
1.95+ echo "$i|" | sed '0,/=/s//|/'
1.96+ done
1.97+#+end_src
1.98+
1.99+* get-env :os:
1.100+:PROPERTIES:
1.101+:ID: 8c1ecc68-ca25-4e72-81d8-415a43e59ae4
1.102+:END:
1.103+#+name: get-env
1.104+#+begin_src elisp :results output :var key="HOME"
1.105+(princ (getenv key))
1.106+#+end_src
1.107+
1.108+#+RESULTS: get-env
1.109+: /home/ellis
1.110+
1.111 * org-current-h1-title :org:
1.112 :PROPERTIES:
1.113 :ID: ae61e7ed-c9ed-414c-8a5f-12b1702f018e
1.114@@ -201,7 +229,7 @@
1.115 #+end_src
1.116
1.117 #+RESULTS: org-current-h1-title
1.118-: org
1.119+: org-current-h1-title
1.120
1.121 * get-emacs-version :emacs:
1.122 :PROPERTIES:
1.123@@ -218,19 +246,19 @@
1.124 :ID: 8119cf43-f2e7-4829-939c-fc4e8531ae6c
1.125 :END:
1.126 #+name: hg-rev
1.127-#+begin_src sh :var src=(org-sbe org-current-h1-title)
1.128+#+begin_src sh :var src="org"
1.129 cd ~/comp/$src && hg log -l 1 --template '{node|short}'
1.130 #+end_src
1.131
1.132 #+RESULTS: hg-rev
1.133-: 4de12ceca1c7
1.134+: 2b6f731f3684
1.135
1.136 * hg-id-num :vc:
1.137 :PROPERTIES:
1.138 :ID: 9602faee-5522-445b-a568-be603e20a978
1.139 :END:
1.140 #+name: hg-id-num
1.141-#+begin_src shell :var src=(org-sbe org-current-h1-title)
1.142+#+begin_src shell :var src="org"
1.143 cd ~/comp/$src && hg id -n
1.144 #+end_src
1.145
1.146@@ -242,12 +270,11 @@
1.147 :ID: 8492f4fb-51a6-4221-8705-a15eb5a50ed4
1.148 :END:
1.149 #+name: hg-log-age
1.150-#+begin_src shell :var src=(org-sbe org-current-h1-title)
1.151+#+begin_src shell :var src="."
1.152 cd ~/comp/$src && hg log -l1 --template "{date|age}"
1.153 #+end_src
1.154
1.155 #+RESULTS: hg-log-age
1.156-: 4 days ago
1.157
1.158 * sh-ob-tangle :org:
1.159 :PROPERTIES:
1.160@@ -289,6 +316,9 @@
1.161 }
1.162 #+end_src
1.163
1.164+#+RESULTS: gen-dot-tree
1.165+[[file:/tmp/tree.png]]
1.166+
1.167 * user-slime :lisp:
1.168 :PROPERTIES:
1.169 :ID: 9ffd1d10-ffad-486e-9d7d-82422342b9ff
1.170@@ -326,7 +356,7 @@
1.171
1.172 find "$dir/.." -name Cargo.toml -execdir cargo update \;
1.173 #+end_src
1.174-** rust-target-triple
1.175+* rust-target-triple :rust:
1.176 :PROPERTIES:
1.177 :ID: 02f96ff2-c607-4889-979c-943203b8ad65
1.178 :END:
