toki/doom-config
1
0
Fork 0
Code Issues Pull requests Activity

compat: adjust patches of modified functions

Browse source
This commit is contained in:
Kiana Sheibani 2025-04-03 06:36:29 -04:00
parent 5f114503fc
commit cdf9ae55fb
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
config.org
View file

@ -2641,6 +2641,7 @@ Emacs Everywhere is a great idea. Unfortunately, the default package on MELPA us
(pcase emacs-everywhere--display-server (pcase emacs-everywhere--display-server
(`(x11 . ,_) (emacs-everywhere--app-info-linux-x11)) (`(x11 . ,_) (emacs-everywhere--app-info-linux-x11))
(`(wayland . KDE) (emacs-everywhere--app-info-linux-kde)) (`(wayland . KDE) (emacs-everywhere--app-info-linux-kde))
(`(wayland . sway) (emacs-everywhere--app-info-linux-sway))
(el-patch-add (el-patch-add
(`(wayland . Hyprland) (emacs-everywhere--app-info-linux-hyprland))) (`(wayland . Hyprland) (emacs-everywhere--app-info-linux-hyprland)))
(_ (user-error "Unable to fetch app info with display server %S" (_ (user-error "Unable to fetch app info with display server %S"
@ -4071,7 +4072,7 @@ it defaults to `project-current'."
(require 'dirvish-side) (require 'dirvish-side)
(let ((fullframep (when-let ((dv (dirvish-curr))) (car (dv-layout dv)))) (let ((fullframep (when-let ((dv (dirvish-curr))) (car (dv-layout dv))))
(visible (dirvish-side--session-visible-p)) (visible (dirvish-side--session-visible-p))
(path (or path (dirvish--get-project-root) default-directory))) (path (or path (dirvish--vc-root-dir) default-directory)))
(cond (fullframep (user-error "Can not create side session here")) (cond (fullframep (user-error "Can not create side session here"))
(visible (select-window visible)) (visible (select-window visible))
(t (dirvish-side--new path))))) (t (dirvish-side--new path)))))