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

add declare ignores

Browse source
This commit is contained in:
David Botton 2022-07-18 22:58:52 -04:00
parent 25a9462f1f
commit 1cf6758abb
7 changed files with 22 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
demos/02-demo.lisp
View file

@ -26,16 +26,16 @@
(name-entry (create-form-element start-form :input :label (name-entry (create-form-element start-form :input :label
(create-label start-form :content "Chat Handle:"))) (create-label start-form :content "Chat Handle:")))
(ok-button (create-button start-form :content "OK")) (ok-button (create-button start-form :content "OK"))
(p (create-p start-form)) (p1 (create-p start-form))
(chat-box (create-form form-box)) (chat-box (create-form form-box))
(br (create-br chat-box)) (br1 (create-br chat-box))
(messages (create-div chat-box)) (messages (create-div chat-box))
(br (create-br chat-box)) (br2 (create-br chat-box))
(out-entry (create-form-element chat-box :input)) (out-entry (create-form-element chat-box :input))
(out-ok (create-button chat-box :content "OK")) (out-ok (create-button chat-box :content "OK"))
(p (create-p chat-box)) (p2 (create-p chat-box))
(user-name)) (user-name))
(declare (ignore caption)(ignore br)(ignore p)) (declare (ignore p1 p2 caption br1 br2))
(setf (hiddenp chat-box) t) (setf (hiddenp chat-box) t)
(setf (background-color backdrop) :blue) (setf (background-color backdrop) :blue)
(setf (height backdrop) "100vh") (setf (height backdrop) "100vh")

1
source/clog-auth.lisp
View file

@ -74,6 +74,7 @@ for CLOG")
(defun set-on-authentication-change (body handler) (defun set-on-authentication-change (body handler)
(check-type body clog-body) (check-type body clog-body)
(set-on-storage (window body) (lambda (obj data) (set-on-storage (window body) (lambda (obj data)
(declare (ignore obj))
(set-on-storage (window body) nil) (set-on-storage (window body) nil)
(when (equalp (getf data :key) (when (equalp (getf data :key)
"clog-auth-token") "clog-auth-token")

1
source/clog-connection.lisp
View file

@ -649,6 +649,7 @@ the browser contents in case of connection loss."
;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
(defun compiled-boot-html (path content) (defun compiled-boot-html (path content)
(declare (ignore path content))
"Returns a compiled version version of boot.html. The compiled boot.html "Returns a compiled version version of boot.html. The compiled boot.html
uses the jQuery CDN instead of the static js files." uses the jQuery CDN instead of the static js files."
"<!doctype HTML> "<!doctype HTML>

1
source/clog-web-themes.lisp
View file

@ -113,6 +113,7 @@ Page properties:
(new-comment (get-property properties :new-comment nil)) (new-comment (get-property properties :new-comment nil))
(save-edit (get-property properties :save-edit nil)) (save-edit (get-property properties :save-edit nil))
(do-delete (get-property properties :do-delete nil))) (do-delete (get-property properties :do-delete nil)))
(declare (ignore anchor))
(when new-comment (when new-comment
(labels ((start-add (obj) (labels ((start-add (obj)
(create-br obj) (create-br obj)

8
test/test-clog.lisp
View file

@ -20,7 +20,7 @@
(when (draggablep tmp) (when (draggablep tmp)
(setf (property tmp "innerHTML") "<h2>I am draggable</h2>")) (setf (property tmp "innerHTML") "<h2>I am draggable</h2>"))
(setf tmp (create-child win "<button>test</botton>")) (setf tmp (create-child win "<button>test</botton>"))
(set-on-click tmp (lambda (obj) (alert (window win) "clicked"))) (set-on-click tmp (lambda (obj) (declare (ignore obj)) (alert (window win) "clicked")))
(setf (box-sizing tmp) :border-box) (setf (box-sizing tmp) :border-box)
(setf (width tmp) 300) (setf (width tmp) 300)
(setf (height tmp) 50) (setf (height tmp) 50)
@ -31,18 +31,23 @@
(setf *last-obj* (create-child win "<button>********</button>")) (setf *last-obj* (create-child win "<button>********</button>"))
(set-on-mouse-enter *last-obj* (set-on-mouse-enter *last-obj*
(lambda (obj) (lambda (obj)
(declare (ignore obj))
(setf (property *last-obj* "innerHTML") "Inside"))) (setf (property *last-obj* "innerHTML") "Inside")))
(set-on-mouse-leave *last-obj* (set-on-mouse-leave *last-obj*
(lambda (obj) (lambda (obj)
(declare (ignore obj))
(setf (property *last-obj* "innerHTML") "Outside"))) (setf (property *last-obj* "innerHTML") "Outside")))
(set-on-mouse-click *last-obj* (set-on-mouse-click *last-obj*
(lambda (obj data) (lambda (obj data)
(declare (ignore obj))
(print data))) (print data)))
(set-on-mouse-move *last-obj* (set-on-mouse-move *last-obj*
(lambda (obj data) (lambda (obj data)
(declare (ignore obj))
(format t "x=~A Y=~A~%" (getf data ':x) (getf data ':y)))) (format t "x=~A Y=~A~%" (getf data ':x) (getf data ':y))))
(set-on-key-down win (set-on-key-down win
(lambda (obj data) (lambda (obj data)
(declare (ignore obj))
(print data)) :disable-default t) (print data)) :disable-default t)
(create-div win :content "Hello World! p") (create-div win :content "Hello World! p")
(create-div win :content "Hello World! div") (create-div win :content "Hello World! div")
@ -72,6 +77,7 @@
(let* ((tbl (create-table win)) (let* ((tbl (create-table win))
(cap (create-table-caption tbl :content "My Table")) (cap (create-table-caption tbl :content "My Table"))
(rw)) (rw))
(declare (ignore cap))
(set-border tbl :thin :solid :black) (set-border tbl :thin :solid :black)

9
tools/clog-builder.lisp
View file

@ -501,7 +501,7 @@ replaced."
:cancel-event t) :cancel-event t)
(set-on-mouse-double-click placer (set-on-mouse-double-click placer
(lambda (obj data) (lambda (obj data)
(declare (ignore obj)) (declare (ignore obj data))
(setf (hiddenp placer) t) (setf (hiddenp placer) t)
(on-populate-control-list-win content :win win))) (on-populate-control-list-win content :win win)))
(set-on-event placer "resize" (set-on-event placer "resize"
@ -940,6 +940,7 @@ of controls and double click to select control."
(setf (inner-html lwin) "") (setf (inner-html lwin) "")
(set-on-mouse-click (create-div lwin :content (attribute content "data-clog-name")) (set-on-mouse-click (create-div lwin :content (attribute content "data-clog-name"))
(lambda (obj data) (lambda (obj data)
(declare (ignore obj data))
(deselect-current-control app) (deselect-current-control app)
(on-populate-control-properties-win content :win win) (on-populate-control-properties-win content :win win)
(on-populate-control-list-win content :win win))) (on-populate-control-list-win content :win win)))
@ -1059,6 +1060,7 @@ of controls and double click to select control."
(setf (control-properties-win app) content) (setf (control-properties-win app) content)
(setf (properties-list app) control-list) (setf (properties-list app) control-list)
(set-on-click side-panel (lambda (obj) (set-on-click side-panel (lambda (obj)
(declare (ignore obj))
(cond (is-hidden (cond (is-hidden
(setf (width panel) "400px") (setf (width panel) "400px")
(setf is-hidden nil)) (setf is-hidden nil))
@ -1148,6 +1150,7 @@ of controls and double click to select control."
(jquery (event-editor app)))) (jquery (event-editor app))))
(set-on-event-with-data (event-editor app) "clog-find" (set-on-event-with-data (event-editor app) "clog-find"
(lambda (obj data) (lambda (obj data)
(declare (ignore obj))
(ignore-errors (ignore-errors
(let* ((*PACKAGE* (find-package "CLOG-USER")) (let* ((*PACKAGE* (find-package "CLOG-USER"))
(SWANK::*buffer-package* (find-package "CLOG-USER")) (SWANK::*buffer-package* (find-package "CLOG-USER"))
@ -1982,8 +1985,7 @@ of controls and double click to select control."
(defun on-quick-start (obj) (defun on-quick-start (obj)
"Open quick start" "Open quick start"
(let* ((app (connection-data-item obj "builder-app-data")) (let* ((win (create-gui-window obj :title "Quick Start"
(win (create-gui-window obj :title "Quick Start"
:top 40 :left 225 :top 40 :left 225
:width 600 :height 400 :width 600 :height 400
:client-movement t))) :client-movement t)))
@ -2073,7 +2075,6 @@ of controls and double click to select control."
(form-data-item params "filename") (form-data-item params "filename")
(create-div body :content (format nil "filename = ~A - (contents printed in REPL)" fname)) (create-div body :content (format nil "filename = ~A - (contents printed in REPL)" fname))
(let ((s (flexi-streams:make-flexi-stream stream)) (let ((s (flexi-streams:make-flexi-stream stream))
(b (make-string 1000))
(pic-data "")) (pic-data ""))
(setf pic-data (format nil "data:~A;base64,~A" content-type (setf pic-data (format nil "data:~A;base64,~A" content-type
(with-output-to-string (out) (with-output-to-string (out)

1
tools/clog-db-admin.lisp
View file

@ -141,6 +141,7 @@
(results-window app "select tbl_name as 'Table', sql as SQL from sqlite_master where type='table'" (results-window app "select tbl_name as 'Table', sql as SQL from sqlite_master where type='table'"
:title "Click for Table" :title "Click for Table"
:on-click-row (lambda (obj names data) :on-click-row (lambda (obj names data)
(declare (ignore obj names))
(results-window app (results-window app
(format nil "select rowid,* from ~A" (format nil "select rowid,* from ~A"
(car data)) (car data))