diff --git a/config.org b/config.org index c1e8e99..ebdd9b1 100644 --- a/config.org +++ b/config.org @@ -136,88 +136,6 @@ Emacs Dashboard Config : ("?" "" "?/h" #'show-help nil "<" ">")) )) #+END_SRC -** EXWM -Emacs X Window Manager - -+BEGIN_SRC emacs-lisp - (use-package exwm - :ensure t - :config - (require 'exwm-config) - (exwm-config-default)) -+END_SRC - -EXWM System Tray -+BEGIN_SRC emacs-lisp - (require 'exwm-systemtray) - (exwm-systemtray-enable) -+END_SRC - -If not using EXWM, it will ask to replace the Window Manager with EXWM, I do not like this prompt when using Emacs on other Window Managers. -+BEGIN_SRC emacs-lisp - (setq exwm-replace 'nil) -+END_SRC - -Ido gets automatically enabled in the default EXWM configuration, as we're using Ivy. Let's disable it. -#+BEGIN_SRC emacs-lisp - (ido-mode -1) -#+END_SRC - -Set Number of Workspaces initially created. -+BEGIN_SRC emacs-lisp - (setq exwm-workspace-number 10) -+END_SRC - -EXWM Specific Keybindings -+BEGIN_SRC emacs-lisp - - ; Set whether workspaces wrap around or not. - (defvar exwm-workspace-switch-wrap t) - - (defun exwm/exwm-workspace-next () - "Switch to next exwm-workspace (to the right)." - (interactive) - (let* ((only-workspace? (equal exwm-workspace-number 1)) - (overflow? (= exwm-workspace-current-index (1- exwm-workspace-number)))) - (cond - (only-workspace? nil) - (overflow? (when exwm-workspace-switch-wrap - (exwm-workspace-switch 0))) - (t (exwm-workspace-switch (1+ exwm-workspace-current-index)))))) - - (defun exwm/exwm-workspace-prev () - "Switch to next exwm-workspace (to the left)." - (interactive) - (let* ((only-workspace? (equal exwm-workspace-number 1)) - (overflow? (= exwm-workspace-current-index 0))) - (cond - (only-workspace? nil) - (overflow? (when exwm-workspace-switch-wrap - (exwm-workspace-switch (1- exwm-workspace-number)))) - (t (exwm-workspace-switch (1- exwm-workspace-current-index)))))) - - (global-set-key (kbd "") 'exwm/exwm-workspace-next) - (global-set-key (kbd "") 'exwm/exwm-workspace-prev) - (global-set-key (kbd "s-e") 'evil-quit-all) - (global-set-key (kbd "s-k") 'exwm-workspace-move) - (global-set-key (kbd "s-w") 'exwm-workspace-swap) -+END_SRC -** The Emacs Application Framework -The Emacs Application Framework is a big project, please check the README before use, install dependencies etc. - -+BEGIN_SRC emacs-lisp - (use-package eaf - :load-path "~/.emacs.d/site-lisp/emacs-application-framework" - ; Set to "/usr/share/emacs/site-lisp/eaf" if installed from AUR - :bind - ("C-c C-f" . 'eaf-open) - :custom - (eaf-find-alternate-file-in-dired t) - :config - (eaf-bind-key scroll_up "C-n" eaf-pdf-viewer-keybinding) - (eaf-bind-key scroll_down "C-p" eaf-pdf-viewer-keybinding) - (eaf-bind-key take_photo "p" eaf-camera-keybinding)) -+END_SRC ** Dynamic Window Tiling *** Edwina Edwina is a dynamic window manager for Emacs. @@ -259,25 +177,6 @@ Call Function on Startup #+BEGIN_SRC emacs-lisp (fullscreen) #+END_SRC -** Symon -A system resource viewer - -Add hashtag before + to enable - -+BEGIN_SRC emacs-lisp - (use-package symon - :ensure t - :init - (symon-mode 1)) -+END_SRC -** DMenu -A recreation of the iconic Suckless Dynamic Menu. -#+BEGIN_SRC emacs-lisp - (use-package dmenu - :ensure t - :bind - ("s-d" . 'dmenu)) -#+END_SRC ** Evil Mode #+BEGIN_SRC emacs-lisp (use-package evil @@ -308,8 +207,8 @@ A recreation of the iconic Suckless Dynamic Menu. (org-latex-export-to-pdf) (update-other-buffer)) - (define-key org-mode-map (kbd "C-c lr") 'org-compile-latex-and-update-other-buffer) - (define-key org-mode-map (kbd "C-c br") 'org-compile-beamer-and-update-other-buffer) + (define-key org-mode-map (kbd "C-c rl") 'org-compile-latex-and-update-other-buffer) + (define-key org-mode-map (kbd "C-c rb") 'org-compile-beamer-and-update-other-buffer) #+END_SRC *** LateX Preview #+BEGIN_SRC emacs-lisp