2 changed files with 150 additions and 117 deletions
-
117README.org
-
150modules/desktop.org
@ -0,0 +1,150 @@ |
|||
#+TITLE: Desktop |
|||
#+AUTHOR: Christopher James Hayward |
|||
#+EMAIL: chris@chrishayward.xyz |
|||
|
|||
#+PROPERTY: header-args:emacs-lisp :tangle desktop.el :comments org |
|||
#+PROPERTY: header-args :results silent :eval no-export :comments org |
|||
|
|||
#+OPTIONS: num:nil toc:nil todo:nil tasks:nil tags:nil |
|||
#+OPTIONS: skip:nil author:nil email:nil creator:nil timestamp:nil |
|||
|
|||
I use Emacs as a Desktop Environment with the *EXWM*[fn:1] https://github.com/ch11ng/exwm package. It allows Emacs to function as a complete tiling window manager for *X11*[fn:2]. |
|||
|
|||
* Startup |
|||
:PROPERTIES: |
|||
:header-args: :tangle ../config/xinitrc :comments org |
|||
:END: |
|||
|
|||
My workflow includes launching the window manager with *Xinit*[fn:3], without the use of a display manager, controlling *everything* within Emacs. |
|||
|
|||
#+begin_src conf |
|||
exec dbus-launch --exit-with-session emacs -mm --debug-init |
|||
#+end_src |
|||
|
|||
* Profile |
|||
:PROPERTIES: |
|||
:header-args: :tangle ../config/profile :comments org |
|||
:END: |
|||
|
|||
Ensure that ~~/.local/bin~ is added to the =$PATH= variable. |
|||
|
|||
#+begin_src shell |
|||
PATH=$PATH:~/.local/bin |
|||
export PATH |
|||
#+end_src |
|||
|
|||
When launching into a new session on ~TTY1~, if the display server is not running, run *StartX*[fn:3]. This will launch the window manager. |
|||
|
|||
#+begin_src shell |
|||
if [ -z "${DISPLAY}" ] && [ "${XDG_VTNR}" -eq 1 ]; then |
|||
exec startx |
|||
fi |
|||
#+end_src |
|||
|
|||
* Browser |
|||
|
|||
Write out the ~$BROWSER~ variable so other applications can pick up the custom browser. |
|||
|
|||
#+begin_src emacs-lisp |
|||
(setenv "BROWSER" dotfiles/browser) |
|||
#+end_src |
|||
|
|||
* Displays |
|||
|
|||
When the window manager first launches the ~init-hook~ executes, allowing us to define some custom logic. |
|||
|
|||
+ Display time and date |
|||
+ Display battery info (if available) |
|||
|
|||
In my personal configuration, I do not want the battery or time displayed within Emacs when it's not running as desktop environment because that information is typically already available. |
|||
|
|||
#+begin_src emacs-lisp |
|||
(defun dotfiles/init-hook () |
|||
(exwm-workspace-switch-create 1) |
|||
(setq display-time-and-date t) |
|||
(display-battery-mode 1) |
|||
(display-time-mode 1)) |
|||
#+end_src |
|||
|
|||
Using =autorandr= with pre configured profiles, switching screens (AKA hot plugging) is also handled through a hook. |
|||
|
|||
#+begin_src emacs-lisp |
|||
(defun dotfiles/update-display () |
|||
"Update the displays by forcing a change through autorandr." |
|||
(dotfiles/run-in-background "autorandr --change --force")) |
|||
#+end_src |
|||
|
|||
* Methods |
|||
|
|||
Define a method to run an external process, allowing us to launch any application on a new process without interferring with Emacs. |
|||
|
|||
#+begin_src emacs-lisp |
|||
(defun dotfiles/run (command) |
|||
"Run an external process." |
|||
(interactive (list (read-shell-command "λ "))) |
|||
(start-process-shell-command command nil command)) |
|||
#+end_src |
|||
|
|||
Apply methods to the current call process to avoid issues with hooks. |
|||
|
|||
#+begin_src emacs-lisp |
|||
(defun dotfiles/run-in-background (command) |
|||
(let ((command-parts (split-string command "[ ]+"))) |
|||
(apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts))))) |
|||
#+end_src |
|||
|
|||
Place keybindings for executing shell commands behind =SPC x=. |
|||
|
|||
+ Run shell commands with =x= |
|||
+ Run async shell commands with =z= |
|||
|
|||
#+begin_src emacs-lisp |
|||
(dotfiles/leader |
|||
"x" '(:ignore t :which-key "Run") |
|||
"xx" '(dotfiles/run :which-key "Run") |
|||
"xz" '(async-shell-command :which-key "Async")) |
|||
#+end_src |
|||
|
|||
* Initialization |
|||
|
|||
Connect our custom hooks and configure the input keys, a custom layer for key capture layers. |
|||
|
|||
+ Enable =randr= support |
|||
+ Pass through to Emacs |
|||
+ =M-x= to Emacs |
|||
+ =C-g= to Emacs |
|||
+ =C-SPC= to Emacs |
|||
+ Bindings with =S= (Super / Win) |
|||
+ Reset =S-r= |
|||
+ Launch =S-&= |
|||
+ Workspace =S-[1..9]= |
|||
|
|||
#+begin_src emacs-lisp |
|||
(use-package exwm |
|||
:custom (exwm-workspace-show-all-buffers t) |
|||
(exwm-input-prefix-keys |
|||
'(?\M-x |
|||
?\C-c |
|||
?\C-g |
|||
?\C-\ )) |
|||
(exwm-input-global-keys |
|||
`(([?\s-r] . exwm-reset) |
|||
,@(mapcar (lambda (i) |
|||
`(,(kbd (format "s-%d" i)) . |
|||
(lambda () |
|||
(interactive) |
|||
(exwm-workspace-switch-create ,i)))) |
|||
(number-sequence 1 9)))) |
|||
:config (require 'exwm-randr) |
|||
(exwm-randr-enable) |
|||
(add-hook 'exwm-init-hook #'dotfiles/init-hook) |
|||
(add-hook 'exwm-randr-screen-change-hook #'dotfiles/update-display) |
|||
(dotfiles/update-display) |
|||
(exwm-enable)) |
|||
#+end_src |
|||
|
|||
* Resources |
|||
|
|||
[fn:1] https://github.com/ch11ng/exwm |
|||
[fn:2] https://en.wikipedia.org/wiki/X_Window_System |
|||
[fn:3] https://en.wikipedia.org/wiki/Xinit |
|||
Write
Preview
Loading…
Cancel
Save
Reference in new issue