1.1--- a/emacs/default.el Sun Dec 03 20:01:38 2023 -0500
1.2+++ b/emacs/default.el Sun Dec 03 21:07:10 2023 -0500
1.3@@ -149,7 +149,6 @@
1.4
1.5 ;;; Desktop
1.6 (setopt desktop-dirname (expand-file-name "sessions" user-emacs-directory))
1.7-(add-hook 'kill-emacs-hook #'desktop-save-in-desktop-dir)
1.8
1.9 ;;; Multisession
1.10 (setq multisession-storage 'sqlite)
2.1--- a/emacs/util.el Sun Dec 03 20:01:38 2023 -0500
2.2+++ b/emacs/util.el Sun Dec 03 21:07:10 2023 -0500
2.3@@ -173,5 +173,11 @@
2.4
2.5 (define-key special-event-map [sigusr1] 'kill-emacs-restart)
2.6
2.7+(defun upgrade-emacs (&optional ask)
2.8+ (interactive)
2.9+ (package-refresh-contents)
2.10+ (package-install-selected-packages (not ask))
2.11+ (package-upgrade-all ask))
2.12+
2.13 (provide 'util)
2.14 ;; util.el ends here
3.1--- a/install.org Sun Dec 03 20:01:38 2023 -0500
3.2+++ b/install.org Sun Dec 03 21:07:10 2023 -0500
3.3@@ -37,66 +37,69 @@
3.4 ** Lisp
3.5 *** cli/skel
3.6 #+begin_src shell :results pp replace :exports code
3.7- sbcl --noinform --non-interactive --eval '(ql:quickload :app/cli/skel)' --eval "(asdf:operate 'asdf:program-op :app/cli/skel)"
3.8+ sbcl --noinform --non-interactive \
3.9+ --eval '(ql:quickload :cli/skel)' \
3.10+ --eval "(asdf:make :cli/skel)"
3.11+ mv lisp/app/cli/skel ~/.local/bin/
3.12 #+end_src
3.13
3.14 #+RESULTS:
3.15-: To load "app/cli/skel":
3.16+: To load "cli/skel":
3.17 : Load 1 ASDF system:
3.18-: app/cli/skel
3.19-: ; Loading "app/cli/skel"
3.20-: ...
3.21-: compressed 32768 bytes into 5093 at level 9
3.22-: compressed 236388352 bytes into 9392491 at level 9
3.23-: compressed 8355840 bytes into 2576707 at level 9
3.24+: cli/skel
3.25+: ; Loading "cli/skel"
3.26+: .....
3.27+: compressed 32768 bytes into 5073 at level 9
3.28+: compressed 236388352 bytes into 9360505 at level 9
3.29+: compressed 8388608 bytes into 2580716 at level 9
3.30 : compressed 0 bytes into 9 at level 9
3.31
3.32 *** cli/organ
3.33 #+begin_src shell :results pp replace :exports code
3.34-sbcl --noinform --non-interactive --eval '(ql:quickload :app/cli/organ)' --eval "(asdf:operate 'asdf:program-op :app/cli/organ)"
3.35+ sbcl --noinform --non-interactive \
3.36+ --eval '(ql:quickload :cli/organ)' \
3.37+ --eval "(asdf:make :cli/organ)"
3.38+ mv lisp/app/cli/organ ~/.local/bin/
3.39 #+end_src
3.40
3.41 #+RESULTS:
3.42-: To load "app/cli/organ":
3.43-: Load 1 ASDF system:
3.44-: app/cli/organ
3.45-: ; Loading "app/cli/organ"
3.46-: ...
3.47-: compressed 32768 bytes into 5097 at level 9
3.48-: compressed 236388352 bytes into 9418771 at level 9
3.49-: compressed 8421376 bytes into 2594963 at level 9
3.50-: compressed 0 bytes into 9 at level 9
3.51
3.52 *** cli/rdb
3.53 #+begin_src shell :results pp replace :exports code
3.54-sbcl --noinform --non-interactive --eval '(ql:quickload :app/cli/rdb)' --eval "(asdf:operate 'asdf:program-op :app/cli/rdb)"
3.55+ sbcl --noinform --non-interactive \
3.56+ --eval '(ql:quickload :cli/rdb)' \
3.57+ --eval "(asdf:make :cli/rdb)"
3.58+ mv lisp/app/cli/rdb ~/.local/bin/
3.59 #+end_src
3.60
3.61 #+RESULTS:
3.62-: To load "app/cli/rdb":
3.63+: To load "cli/rdb":
3.64 : Load 1 ASDF system:
3.65-: app/cli/rdb
3.66-: ; Loading "app/cli/rdb"
3.67+: cli/rdb
3.68+: ; Loading "cli/rdb"
3.69 : ..
3.70-: compressed 32768 bytes into 5081 at level 9
3.71-: compressed 236388352 bytes into 9329605 at level 9
3.72-: compressed 8355840 bytes into 2575589 at level 9
3.73+: compressed 32768 bytes into 5094 at level 9
3.74+: compressed 236388352 bytes into 9175348 at level 9
3.75+: compressed 8257536 bytes into 2543259 at level 9
3.76 : compressed 0 bytes into 9 at level 9
3.77
3.78 *** cli/homer
3.79 #+begin_src shell :results pp replace :exports code
3.80-sbcl --noinform --non-interactive --eval '(ql:quickload :app/cli/homer)' --eval "(asdf:operate 'asdf:program-op :app/cli/homer)"
3.81+ sbcl --noinform --non-interactive \
3.82+ --eval '(ql:quickload :cli/homer)' \
3.83+ --eval "(asdf:make :cli/homer)"
3.84+ mv lisp/app/cli/homer ~/.local/bin/
3.85 #+end_src
3.86
3.87 #+RESULTS:
3.88-: To load "app/cli/homer":
3.89+: To load "cli/homer":
3.90 : Load 1 ASDF system:
3.91-: app/cli/homer
3.92-: ; Loading "app/cli/homer"
3.93-:
3.94-: compressed 32768 bytes into 5085 at level 9
3.95-: compressed 236388352 bytes into 8866898 at level 9
3.96-: compressed 7864320 bytes into 2447886 at level 9
3.97+: cli/homer
3.98+: ; Loading "cli/homer"
3.99+: ...
3.100+: compressed 32768 bytes into 5082 at level 9
3.101+: compressed 236388352 bytes into 9367349 at level 9
3.102+: compressed 8388608 bytes into 2578766 at level 9
3.103 : compressed 0 bytes into 9 at level 9
3.104 ** Rust
3.105 *** cli/cc-init
4.1--- a/lisp/app/app.asd Sun Dec 03 20:01:38 2023 -0500
4.2+++ b/lisp/app/app.asd Sun Dec 03 21:07:10 2023 -0500
4.3@@ -1,71 +1,23 @@
4.4 ;;; app.asd --- application library
4.5-#+sb-core-compression
4.6-(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
4.7- (uiop:dump-image (asdf:output-file o c) :executable t :compression t))
4.8-
4.9 (defsystem :app
4.10 :class :package-inferred-system
4.11 :defsystem-depends-on (:asdf-package-system)
4.12 :depends-on
4.13 (:uiop :cl-ppcre :std/all :skel :organ :rdb
4.14- :app/cli/skel :app/cli/organ :app/cli/homer
4.15+ :cli/skel :app/cli/organ :app/cli/homer
4.16 :app/gui/skel
4.17 :app/web/index :app/web/dash)
4.18 :in-order-to ((test-op (test-op "app/tests")))
4.19 :perform (test-op (o c) (symbol-call :std/rt :do-tests :app)))
4.20
4.21-(defsystem :app/cli/skel
4.22- :class :package-inferred-system
4.23- :defsystem-depends-on (:asdf-package-system)
4.24- :build-operation "program-op"
4.25- :depends-on (:uiop :cl-ppcre :std/all :std/cli :skel)
4.26- :in-order-to ((test-op (test-op "app/tests")))
4.27- :perform (test-op (o c) (symbol-call :std/rt :do-tests :app))
4.28- :build-operation "program-op"
4.29- :build-pathname "skel"
4.30- :entry-point "app/cli/skel::main")
4.31-
4.32-(defsystem :app/cli/organ
4.33- :class :package-inferred-system
4.34- :defsystem-depends-on (:asdf-package-system)
4.35- :build-operation "program-op"
4.36- :depends-on (:uiop :cl-ppcre :std/all :std/cli :organ :nlp)
4.37- :in-order-to ((test-op (test-op "app/tests")))
4.38- :perform (test-op (o c) (symbol-call :std/rt :do-tests :app))
4.39- :build-operation program-op
4.40- :build-pathname "organ"
4.41- :entry-point "app/cli/organ::main")
4.42-
4.43-(defsystem :app/cli/homer
4.44- :class :package-inferred-system
4.45- :defsystem-depends-on (:asdf-package-system)
4.46- :build-operation "program-op"
4.47- :depends-on (:uiop :cl-ppcre :std/all :organ :skel :nlp)
4.48- :in-order-to ((test-op (test-op "app/tests")))
4.49- :perform (test-op (o c) (symbol-call :std/rt :do-tests :app))
4.50- :build-operation "program-op"
4.51- :build-pathname "homer"
4.52- :entry-point "app/cli/homer::main")
4.53-
4.54-(defsystem :app/cli/rdb
4.55- :class :package-inferred-system
4.56- :defsystem-depends-on (:asdf-package-system)
4.57- :build-operation "program-op"
4.58- :depends-on (:uiop :cl-ppcre :std/all :rdb)
4.59- :in-order-to ((test-op (test-op "app/tests")))
4.60- :perform (test-op (o c) (symbol-call :std/rt :do-tests :app))
4.61- :build-operation "program-op"
4.62- :build-pathname "rdb"
4.63- :entry-point "app/cli/rdb::main")
4.64-
4.65 (defsystem :app/web/index
4.66 :class :package-inferred-system
4.67 :defsystem-depends-on (:asdf-package-system :lass)
4.68 :depends-on (:uiop :cl-ppcre :std/all :rdb :hunchentoot :parenscript :lass :spinneret :organ)
4.69 :components ((:lass-file "web/style"))
4.70- :build-operation "program-op"
4.71 :in-order-to ((test-op (test-op "app/tests")))
4.72 :perform (test-op (o c) (symbol-call :std/rt :do-tests :app))
4.73+ :build-operation "program-op"
4.74 :build-pathname "web-index"
4.75 :entry-point "app/web/index::main")
4.76
4.77@@ -73,8 +25,8 @@
4.78 :class :package-inferred-system
4.79 :defsystem-depends-on (:asdf-package-system)
4.80 :depends-on (:uiop :cl-ppcre :std/all :rdb :lack :clack :parenscript :lass :spinneret :organ)
4.81- :build-operation "program-op"
4.82 :in-order-to ((test-op (test-op "app/tests")))
4.83 :perform (test-op (o c) (symbol-call :std/rt :do-tests :app))
4.84+ :build-operation "program-op"
4.85 :build-pathname "web-dash"
4.86 :entry-point "app/web/dash::main")
5.1--- /dev/null Thu Jan 01 00:00:00 1970 +0000
5.2+++ b/lisp/app/cli/cli.asd Sun Dec 03 21:07:10 2023 -0500
5.3@@ -0,0 +1,43 @@
5.4+#+sb-core-compression
5.5+(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
5.6+ (uiop:dump-image (asdf:output-file o c) :executable t :compression t))
5.7+
5.8+(defsystem :cli
5.9+ :depends-on (:cli/skel))
5.10+
5.11+(defsystem :cli/organ
5.12+ :build-operation program-op
5.13+ :build-pathname "organ"
5.14+ :entry-point "cli/organ::main"
5.15+ :depends-on (:uiop :cl-ppcre :std/all :std/cli :organ :nlp)
5.16+ :components ((:file "organ"))
5.17+ :in-order-to ((test-op (test-op "app/tests")))
5.18+ :perform (test-op (o c) (symbol-call :std/rt :do-tests :app)))
5.19+
5.20+
5.21+(defsystem :cli/homer
5.22+ :build-operation program-op
5.23+ :build-pathname "homer"
5.24+ :entry-point "cli/homer::main"
5.25+ :depends-on (:uiop :cl-ppcre :std/all :std/cli :organ :skel :nlp)
5.26+ :components ((:file "homer"))
5.27+ :in-order-to ((test-op (test-op "app/tests")))
5.28+ :perform (test-op (o c) (symbol-call :std/rt :do-tests :app)))
5.29+
5.30+(defsystem :cli/rdb
5.31+ :build-operation "program-op"
5.32+ :build-pathname "rdb"
5.33+ :entry-point "cli/rdb::main"
5.34+ :depends-on (:uiop :cl-ppcre :std/all :rdb)
5.35+ :components ((:file "rdb"))
5.36+ :in-order-to ((test-op (test-op "app/tests")))
5.37+ :perform (test-op (o c) (symbol-call :std/rt :do-tests :app)))
5.38+
5.39+(defsystem :cli/skel
5.40+ :build-operation program-op
5.41+ :build-pathname "skel"
5.42+ :entry-point "std/cli::main"
5.43+ :components ((:file "skel"))
5.44+ :depends-on (:uiop :cl-ppcre :std/all :std/cli :skel)
5.45+ :in-order-to ((test-op (test-op "app/tests")))
5.46+ :perform (test-op (o c) (symbol-call :std/rt :do-tests :app)))
6.1--- a/lisp/app/cli/homer.lisp Sun Dec 03 20:01:38 2023 -0500
6.2+++ b/lisp/app/cli/homer.lisp Sun Dec 03 21:07:10 2023 -0500
6.3@@ -1,7 +1,9 @@
6.4 ;;; homer.lisp --- homectl utility
6.5
6.6 ;;; Code:
6.7-(uiop:define-package :app/cli/homer
6.8- (:use :cl))
6.9+(uiop:define-package :cli/homer
6.10+ (:use :cl :std))
6.11
6.12-(in-package :app/cli/homer)
6.13+(in-package :cli/homer)
6.14+
6.15+(defmain ())
7.1--- a/lisp/app/cli/organ.lisp Sun Dec 03 20:01:38 2023 -0500
7.2+++ b/lisp/app/cli/organ.lisp Sun Dec 03 21:07:10 2023 -0500
7.3@@ -1,11 +1,11 @@
7.4 ;;; organ.lisp --- Org-mode utility
7.5
7.6 ;;; Code:
7.7-(defpackage :app/cli/organ
7.8+(defpackage :cli/organ
7.9 (:use :cl :organ :std)
7.10 (:export :main))
7.11
7.12-(in-package :app/cli/organ)
7.13+(in-package :cli/organ)
7.14
7.15 (defopt organ-help (print-help $cli))
7.16 (defopt organ-version (print-version $cli))
8.1--- a/lisp/app/cli/rdb.lisp Sun Dec 03 20:01:38 2023 -0500
8.2+++ b/lisp/app/cli/rdb.lisp Sun Dec 03 21:07:10 2023 -0500
8.3@@ -1,7 +1,9 @@
8.4 ;;; rdb.lisp --- RocksDB client
8.5
8.6 ;;; Code:
8.7-(uiop:define-package :app/cli/rdb
8.8- (:use :cl :rdb))
8.9+(uiop:define-package :cli/rdb
8.10+ (:use :cl :rdb :std))
8.11
8.12-(in-package :app/cli/rdb)
8.13+(in-package :cli/rdb)
8.14+
8.15+(defmain ())
9.1--- a/lisp/app/cli/skel.lisp Sun Dec 03 20:01:38 2023 -0500
9.2+++ b/lisp/app/cli/skel.lisp Sun Dec 03 21:07:10 2023 -0500
9.3@@ -1,9 +1,9 @@
9.4 ;;; Code:
9.5-(uiop:define-package :app/cli/skel
9.6+(uiop:define-package :cli/skel
9.7 (:use :cl :std :std/cli :skel/pkg :skel/core/vc :skel/core/virt :skel/comp/make)
9.8 (:export :main))
9.9
9.10-(in-package :app/cli/skel)
9.11+(in-package :cli/skel)
9.12
9.13 ;; HACK 2023-10-14: a bit too early to implement this, would rather
9.14 ;; use the repl. they're useful for linking up with the debugger tho.
