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

- [gemini] prevented the script 'generate-gemlog.lisp' to export files that do not match .gmi extension; 

- fixed wrong class name when printing mentions.
This commit is contained in:
cage 2022-11-19 20:46:39 +01:00
parent 4c78a0fba7
commit 89e8c73b4e
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scripts/generate-gemlog.lisp
View File

@ -41,6 +41,8 @@
(a:define-constant +archive-topic-file+ "topics.gmi" :test #'string=)
(a:define-constant +post-valid-file-extension+ "gmi$" :test #'string=)
(defparameter *gemlog-header* (format nil "# Posts~2%## Il gemlog di cage~2%"))
(defparameter *topic-index-header* (format nil "# Topics archive~2%"))
@ -126,7 +128,9 @@
(apply #'format t control args)))
(defun bulk->posts (capsule-bulk-dir)
(let* ((original-post-files (remove-if-not #'fs:regular-file-p
(let* ((original-post-files (remove-if-not (lambda (a)
(and (fs:regular-file-p a)
(cl-ppcre:scan +post-valid-file-extension+ a)))
(fs:collect-children capsule-bulk-dir)))
(parsed-posts (mapcar (lambda (a)
(handler-case

3
src/program-events.lisp
View File

@ -617,6 +617,7 @@
(new-timeline new-timeline)
(message-index message-index)
(message-status-id message-status-id)) object
(assert message-index)
(when new-timeline
(setf (thread-window:timeline-type specials:*thread-window*)
@ -1694,7 +1695,7 @@
(tooter:account-name (tooter:account notification))))
(make-rows (mentions)
(mapcar (lambda (mention)
(make-instance 'mention
(make-instance 'line-oriented-window:line
:fields (list :original-object mention)
:normal-text (print-mention mention)
:selected-text (print-mention mention)))