mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 15:00:24 -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; style='position:absolute;top:0;right:20px;left:5px;
user-select:none;cursor:move;'>~A</span> user-select:none;cursor:move;'>~A</span>
<span id='~a-icons' style='position:absolute;top:0;right:15px; <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' <span id='~A-closer'
style='position:absolute;top:0;right:5px;cursor:pointer;user-select:none;'>~A</span> style='position:absolute;top:0;right:5px;cursor:pointer;user-select:none;'>~A</span>
</div> </div>
@ -1143,10 +1143,6 @@ window-to-top-by-param or window-by-param."))
html-id title-class html-id html-id ; title bar html-id title-class html-id html-id ; title bar
title ; title title ; title
html-id ; icons area 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 html-id ; closer
closer-html closer-html
html-id 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))) (attach-as-child win (format nil "~A-title-bar" html-id)))
(when hide-title-bar (when hide-title-bar
(setf (hiddenp (title-bar win)) t)) (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))) (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 (unless no-sizer
(setf (sizer win) (attach-as-child win (format nil "~A-sizer" html-id)))) (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))) (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))) (pinnedp win)))
(progn (progn
(when (pinner win) (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 (when keep-on-top
(window-keep-on-top win :state nil)) (window-keep-on-top win :state nil))
(setf (pinnedp win) nil) (setf (pinnedp win) nil)
@ -1479,7 +1477,7 @@ to match the pinned state. :state forces state. Returns new state"))
nil) nil)
(flet ((no-op (obj) (declare (ignore obj)) nil)) (flet ((no-op (obj) (declare (ignore obj)) nil))
(when (pinner win) (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 (when keep-on-top
(window-keep-on-top win)) (window-keep-on-top win))
(setf (pinnedp win) t) (setf (pinnedp win) t)

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

@ -71,11 +71,10 @@
(setf (project-tree-win app) nil))) (setf (project-tree-win app) nil)))
(setf (positioning projects) :absolute) (setf (positioning projects) :absolute)
(set-geometry projects :height 27 :width "100%" :top 0 :left 0 :right 0) (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) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "") (set-geometry win :top (menu-bar-height win) :left 0 :height "" :bottom 5 :right "")))
:auto-place :top))
(set-on-click filter-btn (lambda (obj) (set-on-click filter-btn (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(if (equalp (text-value filter-btn) (if (equalp (text-value filter-btn)