mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

Added graphic check for pinned

Browse source
This commit is contained in:
David Botton 2021-02-19 14:40:22 -05:00
parent 19adb38982
commit 39e375da38
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-gui.lisp
View file

@ -711,7 +711,7 @@ on-window-resize-done at end of resize."))
(if has-pinner ; pinner
(format nil "<span id='~A-pinner'
style='cursor:pointer;user-select:none;'>
(Un)pin&nbsp;&nbsp;&nbsp;</span>" html-id)
☐</span><span>&nbsp;&nbsp;&nbsp;</span>" html-id)
"")
html-id ; closer
html-id content ; body
@ -914,6 +914,8 @@ always unpinned."))
(if (pinnedp win)
;; Toggle the pinned state of this window
(progn
(when (pinner win)
(setf (inner-html (pinner win)) "☐"))
(setf (pinnedp win) nil)
(set-on-window-can-close win nil)
(set-on-window-can-size win nil)
@ -921,6 +923,8 @@ always unpinned."))
(set-on-window-can-maximize win nil)
(set-on-window-can-normalize win nil))
(flet ((no-op (obj) (declare (ignore obj))))
(when (pinner win)
(setf (inner-html (pinner win)) "☑"))
(setf (pinnedp win) t)
(set-on-window-can-close win #'no-op)
(set-on-window-can-size win #'no-op)