A
Size: a a a
A
VL
VI
PS
A
VI
DL
A
DL
DL
PS
A
PG
(let ((default-directory ...))
...)
S
VL
(defun hlpr-compile (marker-root cmd-build &optional mode-change)
(with-current-buffer (buffer-name)
(interactive)
(let ((default-directory (hlpr-find-root-marker marker-root))
(compile-command cmd-build))
(recompile)
(other-window 1)
(delete-other-windows)
(if mode-change
(funcall (intern mode-change)))
(local-set-key (kbd "q") 'kill-this-buffer))))
PG