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

- wrote selected gempub entry in bold.

This commit is contained in:
cage 2021-08-26 21:13:58 +02:00
parent 0336d72de4
commit 2bf39530c2
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
etc/default-theme.conf
View File

@ -570,18 +570,12 @@ gemini-certificates-window.access-time.foreground = green
gempub-library-window.background = black gempub-library-window.background = black
gempub-library-window.foreground = cyan gempub-library-window.foreground = yellow
gempub-library-window.input.selected.background = cyan gempub-library-window.input.selected.background = yellow
gempub-library-window.input.selected.foreground = black gempub-library-window.input.selected.foreground = black
gempub-library-window.link.foreground = yellow
gempub-library-window.creation-time.foreground = green
gempub-library-window.access-time.foreground = green
# chats # chats
#chat list window #chat list window

13
src/gempub.lisp
View File

@ -98,6 +98,8 @@
(getf metadata :cover)))) (getf metadata :cover))))
(defun sync-library (&key (notify nil)) (defun sync-library (&key (notify nil))
(when notify
(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) (zip-info:zip-file-p a (all-gempub-files (remove-if-not (lambda (a) (zip-info:zip-file-p a
:ignore-errors t)) :ignore-errors t))
@ -193,10 +195,13 @@
(db:row-author row) (db:row-author row)
(db:row-published row))) (db:row-published row)))
(defun row->unselected-list-item (row) (defun row->selected-list-item (row fg bg)
(row->list-item row)) (tui:make-tui-string (row->list-item row)
:attributes (tui:attribute-bold)
:fgcolor fg
:bgcolor bg))
(defun row->selected-list-item (row) (defun row->unselected-list-item (row)
(row->list-item row)) (row->list-item row))
(defmethod resync-rows-db ((object gempub-library-window) (defmethod resync-rows-db ((object gempub-library-window)
@ -211,7 +216,7 @@
(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)
:selected-text (row->selected-list-item row) :selected-text (row->selected-list-item row fg bg)
:fields row :fields row
:normal-bg fg :normal-bg fg
:normal-fg bg :normal-fg bg