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

tab adjust

Browse source
This commit is contained in:
David Botton 2024-04-17 12:25:38 -04:00
parent fd2afcefd9
commit 1faedda116
5 changed files with 286 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
tools/clog-builder-files.lisp
View file

@ -116,12 +116,13 @@
(m-efrm (create-gui-menu-item m-lisp :content "evaluate form (cmd/alt-[)"))
(m-esel (create-gui-menu-item m-lisp :content "evaluate selection"))
(m-test (create-gui-menu-item m-lisp :content "evaluate all"))
(m-brwsp (create-gui-menu-item m-lisp :content "systen browse at point"))
(m-brws (create-gui-menu-item m-lisp :content "systen browse selection"))
(m-brwsp (create-gui-menu-item m-lisp :content "system browse at point"))
(m-brws (create-gui-menu-item m-lisp :content "system browse selection"))
(m-desc (create-gui-menu-item m-lisp :content "describe selection"))
(m-doc (create-gui-menu-item m-lisp :content "documentation on selection"))
(m-apro (create-gui-menu-item m-lisp :content "apropos on selection"))
(m-ppr (create-gui-menu-item m-lisp :content "pretty print"))
(m-ppr (create-gui-menu-item m-lisp :content "adjust tabs file"))
(m-pprs (create-gui-menu-item m-lisp :content "adjust tabs selection"))
(m-help (create-gui-menu-drop-down menu :content "Help"))
(m-helpk (create-gui-menu-item m-help :content "keyboard help"))
(tool-bar (create-div (top-panel box) :class title-class))
@ -434,14 +435,22 @@
:fill-pointer 0 :adjustable t)))
(with-output-to-string (s r)
(with-input-from-string (n (text-value ace))
(let ((*standard-output* s)
(*print-case* :downcase))
(loop
(let ((l (read n nil)))
(unless l (return))
(pprint l))))))
(let ((*standard-output* s))
(indentify:indentify n))))
(setf (text-value ace) r)
(setf is-dirty t))))
(set-on-click m-pprs (lambda (obj)
(declare (ignore obj))
(let ((r (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t)))
(with-output-to-string (s r)
(with-input-from-string (n (clog-ace:selected-text ace))
(let ((*standard-output* s))
(indentify:indentify n))))
(js-execute ace (format nil "~A.insert('~A',true)"
(clog-ace::js-ace ace)
(escape-string r)))
(setf is-dirty t))))
(labels ((eval-form (obj)
(let ((p (parse-integer
(js-query obj