cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-29 00:30:16 +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"))))
(let ((all-known (db:all-gempub-metadata))
(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))))
(removed-known '())
(added-file '()))
@ -273,7 +273,7 @@
(unselected-line-fg unselected-line-fg)
(query-rows query-rows)) object
(flet ((make-rows (rows selected-bg selected-fg
unselected-bg unselected-fg)
unselected-bg unselected-fg)
(mapcar (lambda (row)
(make-instance 'line
:normal-text (row->unselected-list-item row)
@ -295,8 +295,8 @@
unselected-line-fg))
(when suggested-message-index
(handler-bind ((conditions:out-of-bounds
(lambda (e)
(invoke-restart 'ignore-selecting-action e))))
(lambda (e)
(invoke-restart 'ignore-selecting-action e))))
(select-row object suggested-message-index)))
(when redraw
(win-clear object)