cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-22 03:25:41 +01:00
Code Issues

- improved generated gemini pages for the gemlog;

Browse Source 
- 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

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

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

4
src/api-client.lisp
View File

@ -434,7 +434,7 @@ Returns nil if the user did not provided a server in the configuration file"
:min-id nil
:limit limit)))))
(defun-api-call update-timeline-tag (tag folder &key
(defun update-timeline-tag (tag folder &key
(recover-count 0)
min-id
(limit 20))
@ -486,7 +486,7 @@ become an emty string (\"\")
(when-let ((tag-info (tooter:tag-information *client* tag)))
(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'"
(loop
for tag in all-tags