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

open clog tutorials dir

Browse source
This commit is contained in:
David Botton 2024-04-01 15:32:18 -04:00
parent a1ba1c9fc9
commit 6bb417a7ad
2 changed files with 22 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tools/clog-builder-dir-win.lisp
View file

@ -1,5 +1,21 @@
(in-package :clog-tools) (in-package :clog-tools)
(defun on-dir-win (obj &key dir top left)
"Open dir window"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "Directory Window"
:top top :left left
:width 600 :height 400
:has-pinner t
:client-movement *client-side-movement*))
(d (create-dir-view (window-content win))))
(set-geometry d :top 0 :left 0 :right 0 :bottom 0 :width "" :height "")
(when *open-external*
(setf (checkedp (open-file-ext d)) t))
(when dir
(populate-dir-win d dir))))
(defun on-setup-dir-win (panel) (defun on-setup-dir-win (panel)
(populate-dir-win panel "./") (populate-dir-win panel "./")
(when *open-external* (when *open-external*

23
tools/clog-builder.lisp
View file

@ -277,22 +277,6 @@ clog-builder window.")
:title-class "w3-red" :title-class "w3-red"
:text c)))))))) :text c))))))))
(defun on-dir-win (obj &key dir top left)
"Open dir window"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "Directory Window"
:top top :left left
:width 600 :height 400
:has-pinner t
:client-movement *client-side-movement*))
(d (create-dir-view (window-content win))))
(set-geometry d :top 0 :left 0 :right 0 :bottom 0 :width "" :height "")
(when *open-external*
(setf (checkedp (open-file-ext d)) t))
(when dir
(populate-dir-win d dir))))
(defun on-opts-edit (body) (defun on-opts-edit (body)
(let ((pref (read-file (format nil "~A.sample" *preferances-file*)))) (let ((pref (read-file (format nil "~A.sample" *preferances-file*))))
(unless pref (unless pref
@ -431,10 +415,15 @@ clog-builder window.")
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(open-window (window body) "https://rabbibotton.github.io/clog/clog-manual.html"))) (open-window (window body) "https://rabbibotton.github.io/clog/clog-manual.html")))
(create-gui-menu-item help :content "CLOG Tutorials" :on-click (create-gui-menu-item help :content "Learn CLOG" :on-click
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(open-window (window body) "https://github.com/rabbibotton/clog/blob/main/LEARN.md"))) (open-window (window body) "https://github.com/rabbibotton/clog/blob/main/LEARN.md")))
(create-gui-menu-item help :content "Tutorials DIR" :on-click
(lambda (obj)
(declare (ignore obj))
(on-dir-win obj :dir (setf static-root (merge-pathnames "./tutorial/"
(asdf:system-source-directory :clog))))))
(create-gui-menu-item help :content "ParenScript Reference" :on-click (create-gui-menu-item help :content "ParenScript Reference" :on-click
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))