Message too long. Click here to view full text.
(defun my/wn-layout ()
"Create a layout for owrking on WeatherNews."
(interactive)
(let* ((query-file (concat (getenv "WN") "/sql/queries.sql"))
(db-file (concat (getenv "CGI") "/wn.db"))
(esh2 (get-buffer "*eshell*<2>")))
(find-file query-file)
(delete-other-windows)
(split-window-below)
(sql-connect "wn.db")
(windmove-down)
(eshell)
(split-window-right)
(windmove-right)
(if esh2
(switch-to-buffer esh2)
(eshell 2))))
Message too long. Click here to view full text.
Message too long. Click here to view full text.
Message too long. Click here to view full text.
'
‐-、/‐、_ / け
Message too long. Click here to view full text.
Message too long. Click here to view full text.
Message too long. Click here to view full text.