cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- improved generated gemini pages for the gemlog; 

- removed another recursive thread locking.
This commit is contained in:
cage 2023-12-02 18:56:59 +01:00
parent 5e0697e58b
commit e255f87eaf
2 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -286,7 +286,8 @@
((tag= :quote node) ((tag= :quote node)
(geminize-quote child)) (geminize-quote child))
((tag= :a node) ((tag= :a node)
(geminize-link (strcat (attribute-value (find-attribute :href node)) (geminize-link (strcat " "
(attribute-value (find-attribute :href node))
" " " "
child))) child)))
((or (tag= :pre node) ((or (tag= :pre node)
@ -316,7 +317,8 @@
:if-does-not-exist :create :if-does-not-exist :create
:if-exists :supersede) :if-exists :supersede)
(sexp->gmi (content post) stream) (sexp->gmi (content post) stream)
(write-sequence (geminize-link (strcat *post-home-backlink* (write-sequence (geminize-link (strcat " "
*post-home-backlink*
" " " "
*post-home-backlink-name*)) *post-home-backlink-name*))
stream) stream)
@ -361,9 +363,10 @@
(write-char #\Newline gemlog-stream) (write-char #\Newline gemlog-stream)
(write-links all-posts gemlog-stream) (write-links all-posts gemlog-stream)
(format gemlog-stream "~%") (format gemlog-stream "~%")
(write-sequence (geminize-link (strcat *indices-home-backlink* (write-sequence (geminize-link (strcat " "
" " *indices-home-backlink*
*indices-home-backlink-name*)) " "
*indices-home-backlink-name*))
gemlog-stream) gemlog-stream)
(write-char #\Newline gemlog-stream)))) (write-char #\Newline gemlog-stream))))
@ -386,7 +389,8 @@
all-posts))) all-posts)))
(write-links in-topic-posts stream) (write-links in-topic-posts stream)
(format stream "~%"))) (format stream "~%")))
(write-sequence (geminize-link (strcat *indices-home-backlink* (write-sequence (geminize-link (strcat " "
*indices-home-backlink*
" " " "
*indices-home-backlink-name*)) *indices-home-backlink-name*))
stream) stream)

10
src/api-client.lisp
View File

@ -434,10 +434,10 @@ Returns nil if the user did not provided a server in the configuration file"
:min-id nil :min-id nil
:limit limit))))) :limit limit)))))
(defun-api-call update-timeline-tag (tag folder &key (defun update-timeline-tag (tag folder &key
(recover-count 0) (recover-count 0)
min-id min-id
(limit 20)) (limit 20))
"Update a tag timeline, this function will fetch new messages (that "Update a tag timeline, this function will fetch new messages (that
contains tag `tag') and generate and event to update the program contains tag `tag') and generate and event to update the program
reflectings the changes in the timeline (saves messages in the reflectings the changes in the timeline (saves messages in the
@ -486,7 +486,7 @@ become an emty string (\"\")
(when-let ((tag-info (tooter:tag-information *client* tag))) (when-let ((tag-info (tooter:tag-information *client* tag)))
(tooter:history tag-info))) (tooter:history tag-info)))
(defun-api-call update-subscribed-tags (all-tags all-max-id &key (limit 20)) (defun update-subscribed-tags (all-tags all-max-id &key (limit 20))
"Update all tage in the list `all-tags'" "Update all tage in the list `all-tags'"
(loop (loop
for tag in all-tags for tag in all-tags