jadedctrl/ mirror-img
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Add --base and --downloads parameters to cli

This commit is contained in:
Jaidyn Ann 2024-05-31 15:06:49 -05:00
parent 74acf3fa2d
commit 1097b4d0b3
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/unix.lisp
View File

@ -43,30 +43,36 @@
"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))
(let* ((input-stream (pathname (car free)))) (let* ((input-file (pathname (car free)))
(when (not input-stream) (url-base (or (getf opts :url-base) (getf opts :download-dir) "mirror/"))
(download-dir (or (getf opts :download-dir) url-base)))
(when (not input-file)
(format *error-output* "No file provided.~%") (format *error-output* "No file provided.~%")
(help 2)) (help 2))
(format (format
't 't
(mirror-img:mirror-img (mirror-img:mirror-img
input-stream input-file
#p"mirror/"))))) download-dir
:url-dir url-base)))))
(opts:define-opts (opts:define-opts
(:name :help (:name :help
:description "print this help text." :description "print this help text."
:short #\h :long "help") :short #\h :long "help")
(:name :base (:name :url-base
:description "path to mirror directory used in URLs"
:short #\b :long "base")
(:name :download-dir
:description "directory for all mirrored files" :description "directory for all mirrored files"
:short #\b :long "base" :short #\d :long "downloads"
:arg-parser (lambda (dir) :arg-parser (lambda (dir)
(car (directory dir))))) (car (directory dir)))))
;; number stream → nil ;; number stream → nil
(defun help (&optional (exit-code 0) (stream *standard-output*)) (defun help (&optional (exit-code 0) (stream *standard-output*))
"Prints help message and dies." "Prints help message and dies."
(unix-opts:describe :prefix "usage: mirror-img [-h] [-b DIR] HTML_FILE" (unix-opts:describe :prefix "usage: mirror-img [-h] [-d DIR] [-b BASE] HTML_FILE"
:stream stream) :stream stream)
(unix-opts:exit exit-code)) (unix-opts:exit exit-code))