sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 11:43:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

desktop: account for arch

Browse source
This commit is contained in:
Pavel Korytov 2024-01-18 12:16:52 +03:00
parent a4f823a5f7
commit fa4a3d49f8
2 changed files with 21 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
.emacs.d/desktop.el
View file

@ -31,6 +31,9 @@
:foreground (my/color-value 'yellow) :foreground (my/color-value 'yellow)
:weight 'bold))) :weight 'bold)))
(defun my/is-arch ()
(file-exists-p "/etc/arch-release"))
(require 'windmove) (require 'windmove)
(defun my/exwm-direction-exists-p (dir) (defun my/exwm-direction-exists-p (dir)
@ -583,7 +586,9 @@ _d_: Discord
(my/exwm-run-polybar) (my/exwm-run-polybar)
(my/exwm-set-wallpaper) (my/exwm-set-wallpaper)
(my/exwm-run-shepherd) (my/exwm-run-shepherd)
(my/run-in-background "gpgconf --reload gpg-agent")) (my/run-in-background "gpgconf --reload gpg-agent")
(when (my/is-arch)
(my/run-in-background "set_layout")))
(defun my/exwm-update-class () (defun my/exwm-update-class ()
(exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name))) (exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name)))

18
Desktop.org
View file

@ -277,7 +277,7 @@ The GUI pinentry doesn't work too well with EXWM because of issues with popup wi
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package pinentry (use-package pinentry
:straight t :straight t
;; :after (exwm) :after (exwm)
:config :config
(setenv "GPG_AGENT_INFO" nil) ;; use emacs pinentry (setenv "GPG_AGENT_INFO" nil) ;; use emacs pinentry
(setq auth-source-debug t) (setq auth-source-debug t)
@ -291,10 +291,13 @@ The GUI pinentry doesn't work too well with EXWM because of issues with popup wi
#+end_src #+end_src
#+NAME: find-pinentry #+NAME: find-pinentry
#+begin_src emacs-lisp #+begin_src emacs-lisp :tangle no
(executable-find "pinentry") (executable-find "pinentry")
#+end_src #+end_src
#+RESULTS: find-pinentry
: /home/pavel/.guix-profile/bin/pinentry
#+begin_src conf-space :tangle ~/.gnupg/gpg-agent.conf :noweb yes #+begin_src conf-space :tangle ~/.gnupg/gpg-agent.conf :noweb yes
default-cache-ttl 3600 default-cache-ttl 3600
max-cache-ttl 3600 max-cache-ttl 3600
@ -315,6 +318,13 @@ Show the current workspace in the modeline.
:foreground (my/color-value 'yellow) :foreground (my/color-value 'yellow)
:weight 'bold))) :weight 'bold)))
#+end_src #+end_src
*** Misc
Check if running Arch and not Guix.
#+begin_src emacs-lisp
(defun my/is-arch ()
(file-exists-p "/etc/arch-release"))
#+end_src
** Windows ** Windows
A bunch of functions related to managing windows in EXWM. A bunch of functions related to managing windows in EXWM.
@ -1197,7 +1207,9 @@ And the EXWM config itself.
(my/exwm-run-polybar) (my/exwm-run-polybar)
(my/exwm-set-wallpaper) (my/exwm-set-wallpaper)
(my/exwm-run-shepherd) (my/exwm-run-shepherd)
(my/run-in-background "gpgconf --reload gpg-agent")) (my/run-in-background "gpgconf --reload gpg-agent")
(when (my/is-arch)
(my/run-in-background "set_layout")))
(defun my/exwm-update-class () (defun my/exwm-update-class ()
(exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name))) (exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name)))