Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 06:48:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Set the EXWM buffer's default directory to match the process's CWD (#14)

Browse source 
* exwm-manage.el (exwm-manage--update-default-directory):
  define a function to update the default-directory of an X window based on it's CID.
  (exwm-manage--manage-window):
  call `exwm-manage--update-update-default-directory` on manage (fixes #12).
This commit is contained in:
Steven Allen 2024-02-04 12:57:58 -08:00 committed by GitHub
parent c2856d15e8
commit fbc1e81ed6
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
exwm-manage.el
View file

@ -234,6 +234,23 @@ Override current hinds if FORCE is non-nil."
(elt value 2))) ;MotifWmHints.decorations (elt value 2))) ;MotifWmHints.decorations
(setq exwm--mwm-hints-decorations nil)))))))) (setq exwm--mwm-hints-decorations nil))))))))
(defun exwm-manage--update-default-directory (id)
"Update the `default-directory' of X window ID.
Sets the `default-directory' of the EXWM buffer associated with X window to
match its current working directory.
This only works when procfs is mounted, which may not be the case on some BSDs."
(with-current-buffer (exwm--id->buffer id)
(if-let* ((response (xcb:+request-unchecked+reply exwm--connection
(make-instance 'xcb:ewmh:get-_NET_WM_PID
:window id)))
(pid (slot-value response 'value))
(cwd (file-symlink-p (format "/proc/%d/cwd" pid)))
((file-accessible-directory-p cwd)))
(setq default-directory cwd)
(setq default-directory (expand-file-name "~/")))))
(defun exwm-manage--set-client-list () (defun exwm-manage--set-client-list ()
"Set _NET_CLIENT_LIST." "Set _NET_CLIENT_LIST."
(exwm--log) (exwm--log)
@ -400,6 +417,7 @@ Override current hinds if FORCE is non-nil."
(setq exwm-workspace--switch-history-outdated t) (setq exwm-workspace--switch-history-outdated t)
(exwm--update-desktop id) (exwm--update-desktop id)
(exwm-manage--update-ewmh-state id) (exwm-manage--update-ewmh-state id)
(exwm-manage--update-default-directory id)
(when (or (plist-get exwm--configurations 'fullscreen) (when (or (plist-get exwm--configurations 'fullscreen)
(exwm-layout--fullscreen-p)) (exwm-layout--fullscreen-p))
(setq exwm--ewmh-state (delq xcb:Atom:_NET_WM_STATE_FULLSCREEN (setq exwm--ewmh-state (delq xcb:Atom:_NET_WM_STATE_FULLSCREEN