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

Add clog manual to builder

Browse source
This commit is contained in:
David Botton 2022-01-28 14:24:49 -05:00
parent ff69a7a67d
commit 900f5e28ce
4 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
doc/clog-manual.html
View file

@ -145,8 +145,8 @@ https://www.sqlite.org/download.html to portaclewinlib</p>
<pre><code><span class="code">CL-USER&gt; <span class="paren1">(<span class="code">ql:quickload <span class="keyword">:clog</span></span>)</span> <pre><code><span class="code">CL-USER&gt; <span class="paren1">(<span class="code">ql:quickload <span class="keyword">:clog</span></span>)</span>
CL-USER&gt; <span class="paren1">(<span class="code">clog:run-tutorial 1</span>)</span></span></code></pre> CL-USER&gt; <span class="paren1">(<span class="code">clog:run-tutorial 1</span>)</span></span></code></pre>
<p>Tip for Windows WSL linux user. Create a symbolic link from wslview to xdg-open <p>Tip for Windows WSL linux user. Install &quot;sudo apt install xdg-utils&quot;
in /usr/local/bin so that run-tutorial uses the windows browser.</p> to install xdg-open so that run-tutorial uses the windows browser.</p>
<p>To see where the source, tutorial and demo files are:</p> <p>To see where the source, tutorial and demo files are:</p>
@ -397,7 +397,7 @@ function. If <code>BOOT-FILE</code> is nil path is removed.</p></li>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AOPEN-BROWSER-20FUNCTION-29" >OPEN-BROWSER</a></span></span> <span class="locative-args">&amp;KEY (URL &quot;http://127.0.0.1:8080&quot;)</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AOPEN-BROWSER-20FUNCTION-29" >OPEN-BROWSER</a></span></span> <span class="locative-args">&amp;KEY (URL &quot;http://127.0.0.1:8080&quot;)</span></span></p>
<p>Launch on os a web browser on local machine to <code>URL</code>. See BROWSER-OPEN <p>Launch on os a web browser on local machine to <code>URL</code>. See <a href="#x-28CLOG-3AOPEN-WINDOW-20GENERIC-FUNCTION-29" title="(CLOG:OPEN-WINDOW GENERIC-FUNCTION)"><code>OPEN-WINDOW</code></a>
for openning windows on remote machines.</p></li> for openning windows on remote machines.</p></li>
</ul> </ul>

5
source/clog-docs.lisp
View file

@ -141,8 +141,8 @@ CL-USER> (ql:quickload :clog)
CL-USER> (clog:run-tutorial 1) CL-USER> (clog:run-tutorial 1)
``` ```
Tip for Windows WSL linux user. Create a symbolic link from wslview to xdg-open Tip for Windows WSL linux user. Install \"sudo apt install xdg-utils\"
in /usr/local/bin so that run-tutorial uses the windows browser. to install xdg-open so that run-tutorial uses the windows browser.
To see where the source, tutorial and demo files are: To see where the source, tutorial and demo files are:
@ -203,7 +203,6 @@ needed for mastering CLOG.")
design work. design work.
- You have installed CLOG and (ql:quickload :clog) is working for you. - You have installed CLOG and (ql:quickload :clog) is working for you.
* Simple REPL techniques Tutorial * Simple REPL techniques Tutorial
We first need to load CLOG We first need to load CLOG

2
source/clog-system.lisp
View file

@ -113,7 +113,7 @@ function. If BOOT-FILE is nil path is removed."
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;
(defun open-browser (&key (url "http://127.0.0.1:8080")) (defun open-browser (&key (url "http://127.0.0.1:8080"))
"Launch on os a web browser on local machine to URL. See BROWSER-OPEN "Launch on os a web browser on local machine to URL. See OPEN-WINDOW
for openning windows on remote machines." for openning windows on remote machines."
(handler-case (handler-case
(trivial-open-browser:open-browser url) (trivial-open-browser:open-browser url)

4
tools/clog-builder.lisp
View file

@ -1151,6 +1151,9 @@ z.html()"
(setf (visiblep about) t) (setf (visiblep about) t)
(set-on-window-can-size about (lambda (obj) (set-on-window-can-size about (lambda (obj)
(declare (ignore obj))())))) (declare (ignore obj))()))))
(defun on-help-open-manual (obj)
(let* ((body (connection-data-item obj "clog-body")))
(open-window (window body) "https://rabbibotton.github.io/clog/clog-manual.html")))
(defun on-new-builder (body) (defun on-new-builder (body)
"Launch instance of the CLOG Builder" "Launch instance of the CLOG Builder"
@ -1180,6 +1183,7 @@ z.html()"
(create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows) (create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows)
(create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows) (create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows)
(create-gui-menu-window-select win) (create-gui-menu-window-select win)
(create-gui-menu-item help :content "CLOG Manual" :on-click #'on-help-open-manual)
(create-gui-menu-item help :content "About" :on-click #'on-help-about-builder) (create-gui-menu-item help :content "About" :on-click #'on-help-about-builder)
(create-gui-menu-full-screen menu)) (create-gui-menu-full-screen menu))
(on-show-control-pallete-win body) (on-show-control-pallete-win body)