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

improved pinner

Browse source
This commit is contained in:
David Botton 2024-05-27 15:59:42 -04:00
parent a838075eac
commit e4361c0084
2 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

18
source/clog-gui.lisp
View file

@ -1129,7 +1129,7 @@ window-to-top-by-param or window-by-param."))
style='position:absolute;top:0;right:20px;left:5px;
user-select:none;cursor:move;'>~A</span>
<span id='~a-icons' style='position:absolute;top:0;right:15px;
cursor:pointer;user-select:none;'>~A</span>
cursor:pointer;user-select:none;'></span>
<span id='~A-closer'
style='position:absolute;top:0;right:5px;cursor:pointer;user-select:none;'>~A</span>
</div>
@ -1143,10 +1143,6 @@ window-to-top-by-param or window-by-param."))
html-id title-class html-id html-id ; title bar
title ; title
html-id ; icons area
(if has-pinner ; pinner
(format nil "<span id='~A-pinner'>~A</span>&nbsp;"
html-id (code-char 9744))
"")
html-id ; closer
closer-html
html-id
@ -1168,10 +1164,12 @@ window-to-top-by-param or window-by-param."))
(attach-as-child win (format nil "~A-title-bar" html-id)))
(when hide-title-bar
(setf (hiddenp (title-bar win)) t))
(when has-pinner
(setf (pinner win) (attach-as-child win (format nil "~A-pinner" html-id))))
(setf (closer win) (attach-as-child win (format nil "~A-closer" html-id)))
(setf (icon-area win) (attach-as-child win (format nil "~A-icons" html-id)))
(when has-pinner
(setf (pinner win) (create-span (icon-area win)
:content (format nil "~A&nbsp;</span>"
(code-char 9744)))))
(setf (closer win) (attach-as-child win (format nil "~A-closer" html-id)))
(unless no-sizer
(setf (sizer win) (attach-as-child win (format nil "~A-sizer" html-id))))
(setf (content win) (attach-as-child win (format nil "~A-body" html-id)))
@ -1467,7 +1465,7 @@ to match the pinned state. :state forces state. Returns new state"))
(pinnedp win)))
(progn
(when (pinner win)
(setf (inner-html (pinner win)) (format nil "~A" (code-char 9744))))
(setf (inner-html (pinner win)) (format nil "~A&nbsp;" (code-char 9744))))
(when keep-on-top
(window-keep-on-top win :state nil))
(setf (pinnedp win) nil)
@ -1479,7 +1477,7 @@ to match the pinned state. :state forces state. Returns new state"))
nil)
(flet ((no-op (obj) (declare (ignore obj)) nil))
(when (pinner win)
(setf (inner-html (pinner win)) (format nil "~A" (code-char 9745))))
(setf (inner-html (pinner win)) (format nil "~A&nbsp;" (code-char 9745))))
(when keep-on-top
(window-keep-on-top win))
(setf (pinnedp win) t)

5
tools/clog-builder-project-tree.lisp
View file

@ -71,11 +71,10 @@
(setf (project-tree-win app) nil)))
(setf (positioning projects) :absolute)
(set-geometry projects :height 27 :width "100%" :top 0 :left 0 :right 0)
(set-on-click (create-span (window-icon-area win) :content "&larr;&nbsp;")
(set-on-click (create-span (window-icon-area win) :content "&larr;&nbsp;" :auto-place :top)
(lambda (obj)
(declare (ignore obj))
(set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "")
:auto-place :top))
(set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "")))
(set-on-click filter-btn (lambda (obj)
(declare (ignore obj))
(if (equalp (text-value filter-btn)