From ce4f9a32e1bc0a5cf7db160f5daf51319ddbad42 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Wed, 8 May 2024 12:49:24 +0200 Subject: [PATCH] Fix function and parameter naming --- src/main.lisp | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index f790da4..7bc6221 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -8,10 +8,10 @@ :*l10n* :find-l10n :*use-cdn* - :*cdn-css-url* - :*cdn-js-url* + :*cdn-url-css* + :*cdn-url-js* :*local-css-url* - :*local-js-url* + :*local-url-js* :*bs-version* :*color-theme* :download-bs-css @@ -34,13 +34,13 @@ (defparameter *use-cdn* t) -(defparameter *cdn-css-url* +(defparameter *cdn-url-css* (concatenate 'string "https://cdn.jsdelivr.net/npm/bootstrap@" *bs-version* "/dist/css/bootstrap.min.css")) -(defparameter *cdn-js-url* +(defparameter *cdn-url-js* (concatenate 'string "https://cdn.jsdelivr.net/npm/bootstrap@" *bs-version* @@ -52,12 +52,12 @@ *bs-version* "/")) -(defparameter *local-css-url* +(defparameter *local-url-css* (concatenate 'string *bs-path* "bootstrap.min.css")) -(defparameter *local-js-url* +(defparameter *local-url-js* (concatenate 'string *bs-path* "bootstrap.bundle.min.js")) @@ -66,13 +66,13 @@ (defun bs-css-url () (if *use-cdn* - *cdn-css-url* - *local-css-url*)) + *cdn-url-css* + *local-url-css*)) (defun bs-js-url () (if *use-cdn* - *cdn-js-url* - *local-js-url*)) + *cdn-url-js* + *local-url-js*)) (defun download-file (url directory) "Downloads a file from a given URL and saves it to the specified directory." @@ -91,8 +91,8 @@ `(defun ,name (&optional (directory ,directory)) (download-file ,url directory))) -(define-download-function download-bs-css *cdn-css-url* *bs-path*) -(define-download-function download-bs-js *cdn-js-url* *bs-path*) +(define-download-function download-bs-css *cdn-url-css* *bs-path*) +(define-download-function download-bs-js *cdn-url-js* *bs-path*) (defun write-html-str-to-file (filename string &key (lang "en") (style :tree) (fc 120))