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

update learn

Browse source
This commit is contained in:
David Botton 2024-05-01 15:35:01 -04:00
parent e408e39983
commit 76468c79de
2 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
LEARN.md vendored
View file

@ -13,8 +13,9 @@ COMMON-LISP "The Tutorial" Series
* [Install Common-Lisp for Linux](https://lisp-lang.org/learn/getting-started/) * [Install Common-Lisp for Linux](https://lisp-lang.org/learn/getting-started/)
* [Install Common-Lisp For Android (Termux)](ANDROID-TERMUX.md) * [Install Common-Lisp For Android (Termux)](ANDROID-TERMUX.md)
For **Windows** users there is an easy install for full CL and CLOG - For **Windows** users there is an easy install for full CL environment using
https://github.com/rabbibotton/clog/releases/download/v2.0/clog2.0-win64.zip the CLOG Builder
https://github.com/rabbibotton/clog-win64-ez/releases
Unzip, double click make.bat and then drag the resulting builder.exe to your Unzip, double click make.bat and then drag the resulting builder.exe to your
application bar or double click. Update regularly by running update.bat application bar or double click. Update regularly by running update.bat
If you change directories you need to run make.bat or update.bat If you change directories you need to run make.bat or update.bat

11
tools/clog-builder.lisp
View file

@ -11,10 +11,10 @@
;; Global Internal Config ;; Global Internal Config
(defparameter *app-mode* nil (defparameter *app-mode* nil
"If *app-mode* is t terminates the clog-builder process on exit of the all "If *app-mode* is t terminates the clog-builder process on exit of the all
clog-builder window.") clog-builder window.")
(defparameter *clogframe-mode* nil (defparameter *clogframe-mode* nil
"If *clogframe-mode* is t no popup or tabs possible.") "If *clogframe-mode* is t no popup or tabs possible.")
(defparameter *preferances-file* nil "Location of the preferance file") (defparameter *preferances-file* nil "Location of the preferance file")
(defparameter *start-project* nil "Set the project to start with") (defparameter *start-project* nil "Set the project to start with")
@ -144,9 +144,10 @@ clog-builder window.")
(progn (progn
(setf (hiddenp (copy-history-win app)) nil) (setf (hiddenp (copy-history-win app)) nil)
(window-focus (copy-history-win app))) (window-focus (copy-history-win app)))
(let* ((win (create-gui-window obj :title "Copy History" (let* ((win (create-gui-window obj :title "Copy History"
:height 400 :width 600 :height 400 :width 600
:has-pinner t :client-movement *client-side-movement*))) :has-pinner t
:client-movement *client-side-movement*)))
(window-center win) (window-center win)
(setf (hiddenp win) t) (setf (hiddenp win) t)
(setf (overflow (window-content win)) :scroll) (setf (overflow (window-content win)) :scroll)