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

clog:parent returns parent object used to create the clog-obj

Browse source
This commit is contained in:
David Botton 2024-04-12 13:36:40 -04:00
parent aa0e567ae4
commit 9e5f9184d7
5 changed files with 68 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

59
tools/clog-builder-shell.lisp
View file

@ -19,33 +19,36 @@
(defun shell-on-commmand (panel target data)
(handler-case
(if (and (> (length data) 3)
(equalp (subseq data 0 3) "cd "))
(let* ((dir (subseq data 3 (length data)))
(wc (when (> (length dir) 2) (char dir 1)))
(sw (char dir 0)))
(uiop:with-current-directory ((format nil "~A~A"
(if (or (equal wc #\:)
(equal sw (uiop:directory-separator-for-host))
(equal sw #\~))
dir
(format nil "~A~A~A"
(text-value (package-div panel))
(uiop:directory-separator-for-host)
dir))
(uiop:directory-separator-for-host)))
(setf (text-value (package-div panel)) (uiop:getcwd))))
(uiop:with-current-directory ((text-value (package-div panel)))
(multiple-value-bind (result new-package new-dir)
(capture-eval (format nil "(uiop:run-program \"~A\" :output *standard-output*)(uiop:getcwd)"
(ppcre:regex-replace-all "\\" data "\\\\\\"))
:clog-obj panel
:eval-form "~A"
:capture-result-form ""
:capture-console t
:capture-result nil)
(declare (ignore new-package))
(setf (text-value (package-div panel)) new-dir)
(clog-terminal:echo target result))))
(cond ((and (> (length data) 3)
(equalp (subseq data 0 3) "cd "))
(let* ((dir (subseq data 3 (length data)))
(wc (when (> (length dir) 2) (char dir 1)))
(sw (char dir 0)))
(uiop:with-current-directory ((format nil "~A~A"
(if (or (equal wc #\:)
(equal sw (uiop:directory-separator-for-host))
(equal sw #\~))
dir
(format nil "~A~A~A"
(text-value (package-div panel))
(uiop:directory-separator-for-host)
dir))
(uiop:directory-separator-for-host)))
(setf (text-value (package-div panel)) (uiop:getcwd)))))
((equalp data "exit")
(window-close (parent (parent panel))))
(t
(uiop:with-current-directory ((text-value (package-div panel)))
(multiple-value-bind (result new-package new-dir)
(capture-eval (format nil "(uiop:run-program \"~A\" :output *standard-output*)(uiop:getcwd)"
(ppcre:regex-replace-all "\\" data "\\\\\\"))
:clog-obj panel
:eval-form "~A"
:capture-result-form ""
:capture-console t
:capture-result nil)
(declare (ignore new-package))
(setf (text-value (package-div panel)) new-dir)
(clog-terminal:echo target result)))))
(error (c)
(clog-terminal:echo target (format nil "~A" c)))))