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

- added docstring for 'status-tree->text'.

This commit is contained in:
cage 2022-11-13 16:19:13 +01:00
parent c2042a06e7
commit 90b16ad7f7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ui-goodies.lisp
View File

@ -953,6 +953,11 @@ If some posts was deleted before, download them again."
(expand-status-tree t)) (expand-status-tree t))
(defun status-tree->text () (defun status-tree->text ()
"Convert a thread to a text representation, if a file path is
provided will be created, with the thread's content, otherwise the
text will be printed on the main window.
It an existing file path is provided the command will refuse to run."
(let* ((thread "") (let* ((thread "")
(message-max-width (truncate (/ (win-width-no-border *message-window*) 3))) (message-max-width (truncate (/ (win-width-no-border *message-window*) 3)))
(padding-step (truncate (/ message-max-width 4)))) (padding-step (truncate (/ message-max-width 4))))