dotfiles/.config/emacs/desktop.org

Desktop

• Exwm Desktop
• Configuration
  • EXWM
  • Polybar
  • App Launcher

Exwm Desktop

[Desktop Entry]
Name=EXWM
Comment=Emacs Window Manager
Exec=sh /home/jaeus/.config/emacs/exwm/start-exwm.sh
TryExec=sh
Type=Application
X-LightDM-DesktopName=exwm
DesktopNames=exwm

  #!/bin/sh
  # Fire it up for WSL
  source ~/scripts/wsl_get_display.sh
  picom -b --config $HOME/.xmonad/scripts/picom.conf &
  exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.config/emacs/desktop.el

Configuration

EXWM

  (defun efs/run-in-background (command)
    (let ((command-parts (split-string command "[ ]+")))
      (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
  (defun vifon/exwm-terminal ()
    (interactive)
    (let ((default-directory (if (derived-mode-p 'dired-mode)
                                 (dired-current-directory)
                               default-directory)))
      (start-process "alacritty" nil "alacritty")))
  (defun efs/exwm-init-hook ()
    ;; Make workspace 1 be the one where we land at startup
    (exwm-workspace-switch-create 1)
    ;;(efs/start-panel)
    ;; if not wsl
    ;;(efs/run-in-background "xsetroot -cursor_name left_ptr")
    ;;(efs/run-in-background "nm-applet")
    ;;(efs/run-in-background "pamac-tray")
    ;;(efs/run-in-background "volumeicon")
    ;;(efs/run-in-background "numlockx on")
    ;;(efs/run-in-background "blueberry-tray")
    ;;(efs/run-in-background "enpass -minimize")

    ;; Launch apps that will run in the background
    ;;(efs/run-in-background "fcitx"))
  )

  (defun efs/exwm-update-class ()
    (exwm-workspace-rename-buffer exwm-class-name))

  (defun efs/exwm-update-title ()
    (pcase exwm-class-name
      ("Firefox" (exwm-workspace-rename-buffer (format "Firefox: %s" exwm-title)))))

  ;; This function isn't currently used, only serves as an example how to
  ;; position a window
  (defun efs/position-window ()
    (let* ((pos (frame-position))
           (pos-x (car pos))
           (pos-y (cdr pos)))

      (exwm-floating-move (- pos-x) (- pos-y))))
  (use-package exwm
    :ensure t)

  ;;(use-package exwm
  ;;  :config
  ;;  ;; Set the default number of workspaces
  ;;  (setq exwm-workspace-number 10)

  ;;  ;; When window "class" updates, use it to set the buffer name
  ;;  (add-hook 'exwm-update-class-hook #'efs/exwm-update-class)

  ;;  ;; When window title updates, use it to set the buffer name
  ;;  (add-hook 'exwm-update-title-hook #'efs/exwm-update-title)

  ;;  ;; Configure windows as they're created
  ;;  ;;(add-hook 'exwm-manage-finish-hook #'efs/configure-window-by-class)

  ;;  ;; When EXWM starts up, do some extra confifuration
  ;;  (add-hook 'exwm-init-hook #'efs/exwm-init-hook)

  ;;  ;; Automatically send the mouse cursor to the selected workspace's display
  ;;  (setq exwm-workspace-warp-cursor t)

  ;;  ;; Window focus should follow the mouse pointer
  ;;  (setq mouse-autoselect-window t
  ;;        focus-follows-mouse t)

  ;;  (add-hook 'exwm-floating-setup-hook
  ;;            (lambda ()
  ;;              (exwm-layout-hide-mode-line)))

  ;;  ;; These keys should always pass through to Emacs
  ;;  (setq exwm-input-prefix-keys
  ;;        '(?\C-x
  ;;          ?\C-u
  ;;          ?\C-h
  ;;          ?\M-x
  ;;          ?\M-`
  ;;          ?\M-&
  ;;          ?\M-:
  ;;          ?\C-\M-j  ;; Buffer list
  ;;          ?\C-\ ))  ;; Ctrl+Space

  ;;  ;; Ctrl+Q will enable the next key to be sent directly
  ;;  (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)

  ;;  ;; Set up global key bindings.  These always work, no matter the input state!
  ;;  ;; Keep in mind that changing this list after EXWM initializes has no effect.
  ;;  (setq exwm-input-global-keys
  ;;        `(
  ;;          ;; Reset to line-mode (C-c C-k switches to char-mode via exwm-input-release-keyboard)
  ;;          ([?\s-r] . exwm-reset)

  ;;          ;; Move between windows
  ;;          ([?\s-h] . windmove-left)
  ;;          ([?\s-l] . windmove-right)
  ;;          ([?\s-k] . windmove-up)
  ;;          ([?\s-j] . windmove-down)

  ;;          ;;([s-space] . toggle-frame-fullscreen)
  ;;          ([?\s-f] . exwm-floating-toggle-floating)

  ;;          ;; Launch applications via shell command
  ;;          ([?\s-&] . (lambda (command)
  ;;                       (interactive (list (read-shell-command "$ ")))
  ;;                       (start-process-shell-command command nil command)))

  ;;          ([?\s-C] . (lambda () (interactive) (kill-buffer)))

  ;;          ;; App
  ;;          (,(kbd "<s-return>") . vifon/exwm-terminal)
  ;;          (,(kbd "<s-SPC>") . app-launcher-run-app)
  ;;          ;; Switch workspace
  ;;          ([?\s-w] . exwm-workspace-switch)
  ;;          ([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))

  ;;          ;; 's-N': Switch to certain workspace with Super (Win) plus a number key (0 - 9)
  ;;          ,@(mapcar (lambda (i)
  ;;                      `(,(kbd (format "s-%d" i)) .
  ;;                        (lambda ()
  ;;                          (interactive)
  ;;                          (exwm-workspace-switch-create ,i))))
  ;;                    (number-sequence 0 9))))

  ;;  (exwm-enable))

  ;; if not wsl
  ;;(use-package desktop-environment
  ;;  :after exwm
  ;;  :config (desktop-environment-mode)
  ;;  :custom
  ;;  (desktop-environment-brightness-small-increment "2%+")
  ;;  (desktop-environment-brightness-small-decrement "2%-")
  ;;  (desktop-environment-brightness-normal-increment "5%+")
  ;;  (desktop-environment-brightness-normal-decrement "5%-"))

  ;; Make sure the server is started (better to do this in your main Emacs config!)
  (server-start)

Polybar

  ;;:tangle ~/.config/emacs/desktop.el

  (defvar efs/polybar-process nil
    "Holds the process of the running Polybar instance, if any")

  (defun efs/kill-panel ()
    (interactive)
    (when efs/polybar-process
      (ignore-errors
        (kill-process efs/polybar-process)))
    (setq efs/polybar-process nil))

  (defun efs/start-panel ()
    (interactive)
    (efs/kill-panel)
    (setq efs/polybar-process (start-process-shell-command "polybar" nil "polybar panel")))

  (defun efs/send-polybar-hook (module-name hook-index)
    (start-process-shell-command "polybar-msg" nil (format "polybar-msg hook %s %s" module-name hook-index)))

  (defun efs/send-polybar-exwm-workspace ()
    (efs/send-polybar-hook "exwm-workspace" 1))

  ;; Update panel indicator when workspace changes
  (add-hook 'exwm-workspace-switch-hook #'efs/send-polybar-exwm-workspace)

App Launcher

  (straight-use-package
   '(app-launcher :type git :host github :repo "SebastienWae/app-launcher"))