mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-04 08:12:01 -08:00
Code Issues Projects Releases Wiki Activity

prep for 2.0 release

Browse source
This commit is contained in:
David Botton 2024-03-27 23:37:06 -04:00
parent ea4c4a07a5
commit c4a1a67329
5 changed files with 151 additions and 158 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/clog-builder-files.lisp
View file

@ -69,6 +69,7 @@
(m-save (create-gui-menu-item m-file :content "save (cmd/ctrl-s)"))
(m-saveas (create-gui-menu-item m-file :content "save as.."))
(m-emacs (create-gui-menu-item m-file :content "open in emacs"))
(m-ntab (create-gui-menu-item m-file :content "open in new tab"))
(m-edit (create-gui-menu-drop-down menu :content "Edit"))
(m-undo (create-gui-menu-item m-edit :content "undo (cmd/ctrl-z)"))
(m-redo (create-gui-menu-item m-edit :content "redo (shift cmd/ctrl-z)"))
@ -232,9 +233,6 @@
(setf last-date (file-write-date file-name))
(sleep .5)
(remove-class btn-save "w3-animate-top"))))
(set-on-click m-emacs (lambda (obj)
(declare (ignore obj))
(swank:ed-in-emacs file-name)))
(flet ((save (obj data &key save-as)
(cond ((or (equal file-name "")
(getf data :shift-key)
@ -273,6 +271,16 @@
(setf last-date (file-write-date file-name))
(sleep .5)
(remove-class btn-save "w3-animate-top"))))))))))
(set-on-click m-emacs (lambda (obj)
(when is-dirty
(save obj nil))
(swank:ed-in-emacs file-name)
(window-close win)))
(set-on-click m-ntab (lambda (obj)
(when is-dirty
(save obj nil))
(on-open-file-ext obj :open-file file-name)
(window-close win)))
(set-on-window-can-close win
(lambda (obj)
(cond (is-dirty