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

Remove use of package local nicknames

Browse source
This commit is contained in:
David Botton 2021-11-05 13:25:42 -04:00
parent 0c5408f281
commit 8eb1bd753e
9 changed files with 32 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

12
source/clog-form.lisp
View file

@ -17,14 +17,14 @@
(defmethod form-get-data (clog-obj)
(quri:uri-query-params
(quri:uri (cc:query (connection-id clog-obj) "location.href"))))
(quri:uri (clog-connection:query (connection-id clog-obj) "location.href"))))
(defgeneric form-post-data (clog-obj)
(:documentation "Get the form data as an a-list sent by post method"))
(defmethod form-post-data (clog-obj)
(quri:url-decode-params
(cc:query (connection-id clog-obj) "clog['post-data']")))
(clog-connection:query (connection-id clog-obj) "clog['post-data']")))
(defun form-data-item (form-data item)
"Return value for ITEM from FROM-DATA a-list"
@ -379,7 +379,7 @@ have this set true. Autofocus on element when form loaded. "))
group called NAME."))
(defmethod radio-value ((obj clog-obj) name)
(cc:query (connection-id obj)
(clog-connection:query (connection-id obj)
(format nil "$('input:radio[name=~A]:checked').val()"
name)))
@ -391,7 +391,7 @@ group called NAME."))
(:documentation "Returns t or nil on the selected checkbox button."))
(defmethod checkbox-value ((obj clog-obj) name)
(js-on-p (cc:query (connection-id obj)
(js-on-p (clog-connection:query (connection-id obj)
(format nil "$('input:checkbox[name=~A]:checked').val()"
name))))
@ -404,7 +404,7 @@ group called NAME."))
be unique name on entire document."))
(defmethod select-value ((obj clog-obj) name)
(cc:query (connection-id obj)
(clog-connection:query (connection-id obj)
(format nil "$('select[name=~A] option:selected').val()" name)))
;;;;;;;;;;;;;;;;
@ -416,7 +416,7 @@ be unique name on entire document."))
be unique name on entire document."))
(defmethod name-value ((obj clog-obj) name)
(cc:query (connection-id obj)
(clog-connection:query (connection-id obj)
(format nil "$('input[name=~A]').val()" name)))
;;;;;;;;;;;;;