local/share/common-lisp/source/ambrevar: Init.

.local/share/common-lisp/source/ambrevar/all.lisp

@@ -0,0 +1,27 @@
+(uiop:define-package #:ambrevar/all
+  (:nicknames #:ambrevar)
+  (:use :common-lisp)
+  ;; Packages we want available at all times:
+  (:import-from #:alexandria)
+  (:import-from #:bordeaux-threads)
+  (:import-from #:chanl)
+  (:import-from #:cl-ppcre)
+  (:import-from #:cl-ppcre-unicode)
+  (:import-from #:closer-mop)
+  (:import-from #:fset)
+  (:import-from #:iolib)
+  (:import-from #:local-time)
+  (:import-from #:log4cl)
+  (:import-from #:moptilities)
+  (:import-from #:osicat)
+  (:import-from #:quri)
+  (:import-from #:serapeum)
+  (:import-from #:series)
+  (:import-from #:str)
+  (:import-from #:trivia)
+  (:import-from #:trivial-package-local-nicknames)
+  (:import-from #:trivial-types)
+  (:import-from #:unix-opts)
+  ;; Top-level packages:
+  (:use-reexport
+   #:ambrevar/shell))

.local/share/common-lisp/source/ambrevar/ambrevar.asd

@@ -0,0 +1,5 @@
+#-asdf3.1 (error "`ambrevar' requires ASDF 3.1")
+
+(defsystem "ambrevar"
+  :class :package-inferred-system
+  :depends-on ("ambrevar/all"))

.local/share/common-lisp/source/ambrevar/shell.lisp

@@ -0,0 +1,14 @@
+(uiop:define-package #:ambrevar/shell
+  (:documentation "Shell-like utilities.")
+  (:nicknames #:$)
+  (:use :common-lisp)
+  (:import-from #:serapeum #:export-always)
+  (:import-from #:trivial-package-local-nicknames))
+(in-package #:ambrevar/shell)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
+  (trivial-package-local-nicknames:add-package-local-nickname :sera :serapeum))
+
+(serapeum:export-always 'foo)
+(defun foo ()
+  17)