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

adjust package

Browse source
This commit is contained in:
David Botton 2024-07-28 11:29:22 -04:00
parent 73157f85fc
commit 27c6a36455
6 changed files with 15 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-gui.lisp
View file

@ -2394,9 +2394,9 @@ If time-out return result of on-file-name, cancels dialog if time runs out."
(caret-at-end ()
(focus input)
(js-execute win (format nil "~A.setSelectionRange(~A.value.length,~A.value.length)"
(clog::script-id input)
(clog::script-id input)
(clog::script-id input)))))
(script-id input)
(script-id input)
(script-id input)))))
(populate-dirs initial-dir)
(populate-files initial-dir)
(when initial-filename

2
source/clog-helpers.lisp
View file

@ -132,7 +132,7 @@ and debugger display for clog events."
;; save-body-to-file ;;
;;;;;;;;;;;;;;;;;;;;;;;
(defun save-body-to-file (file-name &key (body clog-user::*body*)
(defun save-body-to-file (file-name &key (body clog-user:*body*)
(if-exists :error)
if-does-not-exist
external-format)

2
tools/clog-builder-control-list.lisp
View file

@ -34,7 +34,7 @@
"Remove any deleted control from control-list"
(maphash (lambda (html-id control)
(when (equalp (js-query control (format nil "$.contains(document.documentElement, ~A)"
(clog::script-id control))) "false")
(script-id control))) "false")
(remove-from-control-list app panel-id html-id)))
(get-control-list app panel-id)))

2
tools/clog-builder-panels.lisp
View file

@ -421,7 +421,7 @@ manipulation of the control's location and size."
(when control
(clog::make-clog-element (clog::connection-id control)
(format nil "p-~A" (html-id control))
:clog-type 'clog::clog-element)))
:clog-type 'clog:clog-element)))
(defun deselect-current-control (app)
"Remove selection on current control and remove visual ques on its placer."

6
tools/clog-builder-repl.lisp
View file

@ -102,11 +102,11 @@
:height 400 :width 600
:has-pinner t
:client-movement *client-side-movement*)))
(setf clog-user::*body* (window-content win))
(setf clog-user:*body* (window-content win))
(set-on-window-close win
(lambda (obj)
(when (eq obj clog-user::*body*)
(setf clog-user::*body* nil))))
(when (eq obj clog-user:*body*)
(setf clog-user:*body* nil))))
(clog-terminal:echo target "Use clog-user:*body* to access the clog-builder-repl window.")))
(t
(multiple-value-bind (result new-package first-eval-result)

16
tools/clog-builder-settings-controls.lisp
View file

@ -149,11 +149,7 @@
(setf (top control) "")
(setf (left control) ""))
(setf (positioning control) (value dd))
(set-geometry (get-placer control)
:top (position-top control)
:left (position-left control)
:width (client-width control)
:height (client-height control))
(adjust-control-placer control)
(on-populate-control-properties-win obj)))
nil)))))
@ -548,19 +544,15 @@
(set-on-change dd (lambda (obj)
(declare (ignore obj))
(setf (attribute control "type") (value dd))
(set-geometry (get-placer control)
:top (position-top control)
:left (position-left control)
:width (client-width control)
:height (client-height control))))
(adjust-control-placer control)))
nil)))
(:name "data list"
:get ,(lambda (control)
(clog::js-query control (format nil "$('#~A').attr('data-clog-name')"
(js-query control (format nil "$('#~A').attr('data-clog-name')"
(attribute control "list"))))
:set ,(lambda (control obj)
(setf (attribute control "list")
(clog::js-query control (format nil "$(\"[data-clog-name='~A']\").attr('id')"
(js-query control (format nil "$(\"[data-clog-name='~A']\").attr('id')"
(text obj))))))
,@*props-form-values*
,@*props-css*