cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- added feature to allow users ro configure symbols rendered for each toot visibility level in main window.

Browse Source
This commit is contained in:
cage
2021-01-24 16:15:42 +01:00
parent c75efe0638
commit 1710ac5b48
4 changed files with 51 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/message-rendering-utils.lisp
View File

@ -223,12 +223,19 @@
as-text))
as-text)))
(defun visibility->mark (visibility)
(let ((mapping (swconf:message-windows-visibility-marks)))
(db-getf mapping
(make-keyword (string-upcase visibility))
:default visibility
:only-empty-or-0-are-null t)))
(defun message-original->text-header (message-row)
(let* ((date-format (swconf:date-fmt swconf:+key-message-window+))
(username (db:row-message-username message-row))
(display-name (db:row-message-user-display-name message-row))
(creation-time (db:row-message-creation-time message-row))
(visibility (db:row-message-visibility message-row))
(visibility (visibility->mark (db:row-message-visibility message-row)))
(lockedp (db-utils:db-not-nil-p (db:row-lockedp message-row)))
(locked-mark (swconf:message-window-account-locking-status-mark lockedp))
(encoded-date (db-utils:encode-datetime-string creation-time))