jadedctrl/eksd
jadedctrl/ eksd
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Eldonoj Activity

Rename eksd-unix package, and INVOKE to MAIN 

I feel MAIN is a bit more clear a package-name,
and eksd.unis follows convention a little better
than eksd-unix, as a package-name.
This commit is contained in:
Jaidyn Ann 2024-05-26 18:00:39 -05:00
parent bea0f74d0a
commit e6fcb312b6
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
README.md
View File

@ -60,8 +60,8 @@ Making a binary requires a Lisp (I recommend SBCL) and Quicklisp
Put this repository into your `quicklisp/local-projects/`, then run, in your Put this repository into your `quicklisp/local-projects/`, then run, in your
lisp interpreter: lisp interpreter:
``` ```
# (ql:quickload '(eksd eksd-unix)) # (ql:quickload '(eksd eksd.unix))
# (save-lisp-and-die "eksd" :toplevel #'eksd-unix:invoke :executable t) # (save-lisp-and-die "eksd" :toplevel #'eksd.unix:main :executable t)
``` ```
And bam, you've made a binary. Cool. And bam, you've made a binary. Cool.

10
eksd-unix.lisp
View File

@ -1,4 +1,4 @@
;;;; eksd-unix: UNIX-style cli interface for the xxd-clone eksd. ;;;; eksd.unix: UNIX-style cli interface for the xxd-clone eksd.
;; Copyright © 2019–2024 Jaidyn Ann <jadedctrl@posteo.at> ;; Copyright © 2019–2024 Jaidyn Ann <jadedctrl@posteo.at>
;; ;;
@ -15,12 +15,12 @@
;; You should have received a copy of the GNU General Public License ;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defpackage :eksd-unix (defpackage :eksd.unix
(:use :cl :eksd) (:use :cl :eksd)
(:export :invoke (:export :main
*text-table*)) *text-table*))
(in-package :eksd-unix) (in-package :eksd.unix)
;;; ————————————————————————————————————— ;;; —————————————————————————————————————
@ -77,7 +77,7 @@
;;; Main - Invocation ;;; Main - Invocation
;;; ————————————————————————————————————— ;;; —————————————————————————————————————
;; nil → nil ;; nil → nil
(defun invoke () (defun main ()
"Actual invocation of the program. This is what you should set as :toplevel." "Actual invocation of the program. This is what you should set as :toplevel."
(multiple-value-bind (opts free) (opts:get-opts) (multiple-value-bind (opts free) (opts:get-opts)
(when-opt opts :help (help)) (when-opt opts :help (help))

2
eksd.asd
View File

@ -7,7 +7,7 @@
:depends-on () :depends-on ()
:components ((:file "eksd"))) :components ((:file "eksd")))
(defsystem "eksd-unix" (defsystem "eksd.unix"
:version "0.11" :version "0.11"
:license "GPLv3" :license "GPLv3"
:author "Jaidyn Ann <jadedctrl@posteo.at>" :author "Jaidyn Ann <jadedctrl@posteo.at>"