From 50e88e1b86a488a84dfabd48b2a4ab03bd404788 Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 23 Aug 2022 17:00:20 -0400 Subject: [PATCH] render file name also set on load and save --- tools/clog-builder.lisp | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 04a221a..57f7354 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -1667,7 +1667,9 @@ of controls and double click to select control." (on-populate-control-list-win content :win win)))) (flet ((open-file-name (fname) (setf file-name fname) - (setf render-file-name "") + (setf render-file-name (format nil "~A~A.lisp" + (directory-namestring file-name) + (pathname-name file-name))) (setf (inner-html content) (or (read-file fname) "")) @@ -1698,6 +1700,9 @@ of controls and double click to select control." (window-focus win) (when fname (setf file-name fname) + (setf render-file-name (format nil "~A~A.lisp" + (directory-namestring file-name) + (pathname-name file-name))) (add-class btn-save "w3-animate-top") (save-panel fname content panel-id (bottom-panel box)) (sleep .5) @@ -2017,7 +2022,9 @@ of controls and double click to select control." (window-focus win) (when fname (setf file-name fname) - (setf render-file-name "") + (setf render-file-name (format nil "~A~A.lisp" + (directory-namestring file-name) + (pathname-name file-name))) (setf (inner-html content) (read-file fname)) (clrhash (get-control-list app panel-id)) @@ -2038,6 +2045,9 @@ of controls and double click to select control." (window-focus win) (when fname (setf file-name fname) + (setf render-file-name (format nil "~A~A.lisp" + (directory-namestring file-name) + (pathname-name file-name))) (add-class btn-save "w3-animate-top") (save-panel fname content panel-id (bottom-panel box)) (sleep .5)