cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-01 00:57:20 +01:00
Code Issues

- fixed indentation.

Browse Source
This commit is contained in:
cage 2024-09-06 12:43:59 +02:00
parent 457b1bef9c
commit 50b0b071ea
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gempub.lisp
View File

@ -106,7 +106,7 @@
(ui:notify (format nil (_ "Syncing gempub library")))) (ui:notify (format nil (_ "Syncing gempub library"))))
(let ((all-known (db:all-gempub-metadata)) (let ((all-known (db:all-gempub-metadata))
(all-gempub-files (remove-if-not (lambda (a) (gempub:gempub-file-p a (all-gempub-files (remove-if-not (lambda (a) (gempub:gempub-file-p a
:ignore-errors t)) :ignore-errors t))
(fs:collect-files/dirs (swconf:gempub-library-directory)))) (fs:collect-files/dirs (swconf:gempub-library-directory))))
(removed-known '()) (removed-known '())
(added-file '())) (added-file '()))
@ -273,7 +273,7 @@
(unselected-line-fg unselected-line-fg) (unselected-line-fg unselected-line-fg)
(query-rows query-rows)) object (query-rows query-rows)) object
(flet ((make-rows (rows selected-bg selected-fg (flet ((make-rows (rows selected-bg selected-fg
unselected-bg unselected-fg) unselected-bg unselected-fg)
(mapcar (lambda (row) (mapcar (lambda (row)
(make-instance 'line (make-instance 'line
:normal-text (row->unselected-list-item row) :normal-text (row->unselected-list-item row)
@ -295,8 +295,8 @@
unselected-line-fg)) unselected-line-fg))
(when suggested-message-index (when suggested-message-index
(handler-bind ((conditions:out-of-bounds (handler-bind ((conditions:out-of-bounds
(lambda (e) (lambda (e)
(invoke-restart 'ignore-selecting-action e)))) (invoke-restart 'ignore-selecting-action e))))
(select-row object suggested-message-index))) (select-row object suggested-message-index)))
(when redraw (when redraw
(win-clear object) (win-clear object)