sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23: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)
:weight 'bold)))
(defun my/is-arch ()
(file-exists-p "/etc/arch-release"))
(require 'windmove)
(defun my/exwm-direction-exists-p (dir)
@ -583,7 +586,9 @@ _d_: Discord
(my/exwm-run-polybar)
(my/exwm-set-wallpaper)
(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 ()
(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
(use-package pinentry
:straight t
;; :after (exwm)
:after (exwm)
:config
(setenv "GPG_AGENT_INFO" nil) ;; use emacs pinentry
(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
#+NAME: find-pinentry
#+begin_src emacs-lisp
#+begin_src emacs-lisp :tangle no
(executable-find "pinentry")
#+end_src
#+RESULTS: find-pinentry
: /home/pavel/.guix-profile/bin/pinentry
#+begin_src conf-space :tangle ~/.gnupg/gpg-agent.conf :noweb yes
default-cache-ttl 3600
max-cache-ttl 3600
@ -315,6 +318,13 @@ Show the current workspace in the modeline.
:foreground (my/color-value 'yellow)
:weight 'bold)))
#+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
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-set-wallpaper)
(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 ()
(exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name)))