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

menu option for emacs, about box, confirm dialog fix

Browse source
This commit is contained in:
David Botton 2024-03-27 19:29:22 -04:00
parent da9ad8c83c
commit 0d87519b64
5 changed files with 29 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

23
tools/clog-builder.lisp
View file

@ -161,12 +161,17 @@ clog-builder window.")
<center>CLOG</center>
<center>The Common Lisp Omnificent GUI</center></div>
<div><p><center>
<a target=_blank href='https://github.com/sponsors/rabbibotton'>CLOG Builder</a>
<a target=_blank href='https://github.com/rabbibotton/clog'>CLOG Builder</a>
</center>
<center>(c) 2022-2024 - David Botton</center></p></div>"
<center>(c) 2022-2024 - David Botton</center></p>
<p>
<center>
<a target=_blank href='https://github.com/sponsors/rabbibotton'>Sponsor CLOG</a>
</center>
</div>"
img-clog-icon)
:width 220
:height 230
:width 400
:height 250
:hidden t)))
(add-class about "w3-animate-opacity")
(window-center about)
@ -375,6 +380,16 @@ clog-builder window.")
(declare (ignore obj))
(open-window (window body) "/dbadmin")))
(create-gui-menu-item opts :content "Edit preferences.lisp" :on-click 'on-opts-edit)
(let ((exter (create-button opts :content "-" :class *builder-menu-button-class*)))
(flet ((exter-text ()
(if *open-external-with-emacs*
"open external files in emacs"
"open all files in builder")))
(setf (text-value exter) (exter-text))
(set-on-click exter (lambda (obj)
(declare (ignore obj))
(setf *open-external-with-emacs* (not *open-external-with-emacs*))
(setf (text-value exter) (exter-text))))))
(create-gui-menu-item win :content "Maximize" :on-click
(lambda (obj)
(when (current-window obj)