cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- refactored functions to jump at the begin or end of the file explorer window.

Browse Source
This commit is contained in:
cage 2022-02-04 13:02:11 +01:00
parent 1fd8f1462a
commit cf6c9be420
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ui-goodies.lisp
View File

@ -2700,18 +2700,10 @@ printed, on the main window."
:prompt (_ "Delete marked items? ")))))
(defun file-explorer-scroll-begin ()
(when-let* ((win *filesystem-explorer-window*))
(when (not (line-oriented-window:rows-empty-p win))
(line-oriented-window:select-row win 0)
(windows:win-clear win)
(windows:draw win))))
(line-oriented-window-scroll-begin *filesystem-explorer-window*))
(defun file-explorer-scroll-end ()
(when-let* ((win *filesystem-explorer-window*))
(when (not (line-oriented-window:rows-empty-p win))
(line-oriented-window:select-row win (1- (line-oriented-window:rows-length win)))
(windows:win-clear win)
(windows:draw win))))
(line-oriented-window-scroll-end *filesystem-explorer-window*))
(defun file-explorer-close-window ()
(fstree:close-connection *filesystem-explorer-window*)