marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Fix function and parameter naming

Browse source
This commit is contained in:
Marcus Kammer 2024-05-08 12:49:24 +02:00
parent 3af7fa29f2
commit ce4f9a32e1
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/main.lisp
View file

@ -8,10 +8,10 @@
:*l10n* :*l10n*
:find-l10n :find-l10n
:*use-cdn* :*use-cdn*
:*cdn-css-url* :*cdn-url-css*
:*cdn-js-url* :*cdn-url-js*
:*local-css-url* :*local-css-url*
:*local-js-url* :*local-url-js*
:*bs-version* :*bs-version*
:*color-theme* :*color-theme*
:download-bs-css :download-bs-css
@ -34,13 +34,13 @@
(defparameter *use-cdn* t) (defparameter *use-cdn* t)
(defparameter *cdn-css-url* (defparameter *cdn-url-css*
(concatenate 'string (concatenate 'string
"https://cdn.jsdelivr.net/npm/bootstrap@" "https://cdn.jsdelivr.net/npm/bootstrap@"
*bs-version* *bs-version*
"/dist/css/bootstrap.min.css")) "/dist/css/bootstrap.min.css"))
(defparameter *cdn-js-url* (defparameter *cdn-url-js*
(concatenate 'string (concatenate 'string
"https://cdn.jsdelivr.net/npm/bootstrap@" "https://cdn.jsdelivr.net/npm/bootstrap@"
*bs-version* *bs-version*
@ -52,12 +52,12 @@
*bs-version* *bs-version*
"/")) "/"))
(defparameter *local-css-url* (defparameter *local-url-css*
(concatenate 'string (concatenate 'string
*bs-path* *bs-path*
"bootstrap.min.css")) "bootstrap.min.css"))
(defparameter *local-js-url* (defparameter *local-url-js*
(concatenate 'string (concatenate 'string
*bs-path* *bs-path*
"bootstrap.bundle.min.js")) "bootstrap.bundle.min.js"))
@ -66,13 +66,13 @@
(defun bs-css-url () (defun bs-css-url ()
(if *use-cdn* (if *use-cdn*
*cdn-css-url* *cdn-url-css*
*local-css-url*)) *local-url-css*))
(defun bs-js-url () (defun bs-js-url ()
(if *use-cdn* (if *use-cdn*
*cdn-js-url* *cdn-url-js*
*local-js-url*)) *local-url-js*))
(defun download-file (url directory) (defun download-file (url directory)
"Downloads a file from a given URL and saves it to the specified directory." "Downloads a file from a given URL and saves it to the specified directory."
@ -91,8 +91,8 @@
`(defun ,name (&optional (directory ,directory)) `(defun ,name (&optional (directory ,directory))
(download-file ,url directory))) (download-file ,url directory)))
(define-download-function download-bs-css *cdn-css-url* *bs-path*) (define-download-function download-bs-css *cdn-url-css* *bs-path*)
(define-download-function download-bs-js *cdn-js-url* *bs-path*) (define-download-function download-bs-js *cdn-url-js* *bs-path*)
(defun write-html-str-to-file (filename string (defun write-html-str-to-file (filename string
&key (lang "en") (style :tree) (fc 120)) &key (lang "en") (style :tree) (fc 120))