cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- moved function definition to remove a warning.

Browse Source
This commit is contained in:
cage
2024-05-24 21:48:36 +02:00
parent ef368d7e62
commit 16d3595ea7
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
data/scripts/generate-gemlog.lisp
View File

@@ -406,6 +406,18 @@
stream)
(write-char #\Newline stream))))
(defun generate-antenna-submit-url ()
(multiple-value-bind (actual-iri host path query port fragment)
(gemini-client:displace-iri (iri-parser:iri-parse (getenv +environment-variable-antenna-url+
nil)))
(declare (ignore actual-iri fragment query))
(iri-parser:make-iri gemini-constants:+gemini-scheme+
nil
host
port
path
(getenv +environment-variable-antenna-target-url+ nil))))
(defun generate-gemlog (bulk-posts-dir output-directory)
(multiple-value-bind (all-posts all-topics)
(create-archive bulk-posts-dir output-directory)
@@ -487,18 +499,6 @@
(finish-output)
(read-line))
(defun generate-antenna-submit-url ()
(multiple-value-bind (actual-iri host path query port fragment)
(gemini-client:displace-iri (iri-parser:iri-parse (getenv +environment-variable-antenna-url+
nil)))
(declare (ignore actual-iri fragment query))
(iri-parser:make-iri gemini-constants:+gemini-scheme+
nil
host
port
path
(getenv +environment-variable-antenna-target-url+ nil))))
(if (ui:tui-active-p)
(generate-on-tui)
(let* ((bulk-posts-dir (or (getenv +environment-variable-gemlog-posts-archive+ nil)