summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfpi2020-01-29 17:53:34 +0100
committerfpi2020-01-29 17:54:03 +0100
commit77c344c9f18408fd4b84c126c82ccf1707289c71 (patch)
tree03e072ad068d08a877f2b160ba1a50959bbaa47d
parentAdd a .gitignore (diff)
A fresh emacs config
Diffstat (limited to '')
-rw-r--r--emacs-init.org2885
-rw-r--r--emacs-private.el.gpgbin0 -> 784 bytes
-rw-r--r--init-exwm.org412
3 files changed, 3297 insertions, 0 deletions
diff --git a/emacs-init.org b/emacs-init.org
new file mode 100644
index 0000000..f72403f
--- /dev/null
+++ b/emacs-init.org
@@ -0,0 +1,2885 @@
+#+PROPERTY: header-args:emacs-lisp :tangle tangle/emacs-init.el :results silent
+* Overview
+** About this document
+This files contains all the elisp code normally placed in the .emacs
+file. It and the =init.el= file are then symlinked to my =~/.emacs.d/=
+directory. Instead of symlinking the files could also be directly
+tangled to =~/.emacs.d/=.
+#+BEGIN_SRC shell :results silent
+ln -sf $(pwd)/emacs-init.org ~/.emacs.d/
+ln -sf $(pwd)/tangle/emacs-init.el ~/.emacs.d/
+ln -sf $(pwd)/emacs-private.el.gpg ~/.emacs.d/
+ln -sf $(pwd)/tangle/init.el ~/.emacs.d/
+#+END_SRC
+
+An often seen setup is to use ~org-babel-load-file~ in =init.el= to
+load this =.org= configuration file. Instead I chose to auto-tangle
+the =.org= file on every save and load the tangled =.el= file
+directly. This saves time on startup as tangling does not occur
+everytime and also allows for more flexibility regarding tangling file
+locations in this configuration file. Namely I can include the content
+of =init.el= in this file without problems.
+
+I use =.org= configuration files also for my other dotfiles. To ensure
+they are tangled upon save I use this function.
+#+BEGIN_SRC emacs-lisp
+(defun fpi/tangle-dotfiles ()
+ "If the current file is in '~/.dotfiles' tangle all code blocks."
+ (when (equal (file-name-directory (directory-file-name buffer-file-name))
+ (expand-file-name "git/projects/dotfiles/" (getenv "HOME")))
+ (org-babel-tangle)
+ (message "%s tangled" buffer-file-name)))
+
+(add-hook 'after-save-hook #'fpi/tangle-dotfiles)
+#+END_SRC
+
+To share this configuration publicly, even though it contains private
+information, several solutions are possible. To keep everything in one
+file, [[elisp:(find-library "org-crypt")][org-crypt]] is a possible solution. Marking the headings with
+private information with the tag =:crypt:= and adding the following to
+=init.el= works as a basic setup for =org-crypt=. Also make sure to
+disable ~buffer-auto-save-file-name~ in this file.
+#+begin_src emacs-lisp :tangle no :eval never
+(require 'org-crypt)
+(org-crypt-use-before-save-magic)
+(setq org-tags-exclude-from-inheritance (quote ("crypt")))
+(setq org-crypt-key my-gpg-key-id)
+#+end_src
+To properly tangle this configuration all blocks need to be decrypted
+before tangling. Given the structure of =org-babel-tangle= this leads
+to saving the file twice each time. The first time unencrypted and
+then after tangling is complete once again encrypted. The following
+code can achieve this.
+#+begin_src emacs-lisp :tangle no :eval never
+;; Make sure buffers are decrypted before tangling
+(defun save-buffer-without-tangle ()
+ (interactive)
+ (let ((b (current-buffer)))
+ (with-temp-buffer
+ (let ((after-save-hook (remove 'fpi/tangle-dotfiles after-save-hook)))
+ (with-current-buffer b
+ (let ((after-save-hook (remove 'fpi/tangle-dotfiles after-save-hook)))
+ (save-buffer)))))))
+
+;; before tangling: decrypt all and save without encrypt
+(advice-add 'org-babel-tangle :before '(lambda (&rest r)
+ (remove-hook 'before-save-hook 'org-encrypt-entries t)
+ (org-decrypt-entries)
+ (save-buffer-without-tangle)))
+;; after tangling: encrypt all entries and re-add hook
+(advice-add 'org-babel-tangle :after '(lambda (&rest r)
+ (org-encrypt-entries)
+ (add-hook 'before-save-hook 'org-encrypt-entries nil t)
+ (save-buffer-without-tangle)))
+#+end_src
+Unfortunately this leads to unusable diffs in =git= for the encrypted
+parts. The approach of using a separate =.el.gpg= or =.org.gpg= file
+has the same problem. But git can be told to decrypt =.gpg= files
+before creating the diff using the following settings (see [[https://magit.vc/manual/magit/How-to-show-diffs-for-gpg_002dencrypted-files_003f.html][here]]).
+#+begin_src shell
+git config --global diff.gpg.textconv "gpg --no-tty --decrypt"
+echo "*.gpg filter=gpg diff=gpg" > .gitattributes
+#+end_src
+A similar behaviour can be achieved using [[https://github.com/AGWA/git-crypt][git-crypt]]. I save private
+details in =emacs-private.el.gpg= and load this file here.
+#+begin_src emacs-lisp
+(setq secret-file (expand-file-name "emacs-private.el.gpg"
+ user-emacs-directory))
+(load secret-file)
+#+end_src
+
+This is the content of =init.el=. Notice the ~:tangle tange/init.el~
+header argument in the source code.
+#+begin_src emacs-lisp :tangle tangle/init.el
+(require 'package)
+(package-initialize)
+;; (setq safe-local-variable-values (list (cons 'buffer-auto-save-file-name nil)
+ ;; (cons 'header-line-format " ")))
+(setq vc-follow-symlinks t)
+(load (expand-file-name "emacs-init.el" user-emacs-directory))
+#+end_src
+
+I always wanted to reorganize my old init file with >5000 lines, but
+never managed to do it completely. So I decided to start from scratch.
+The structure and some of the base content is loosely based on the
+[[https://gitlab.com/protesilaos/dotemacs/][config of Protesilaos Stavrou]]. Several functions and definitions are
+from other configs as well. They are mentioned in the appropriate
+places.
+
+Notable configs:
+- [[https://gitlab.com/protesilaos/dotemacs/][Protesilaos Stavrou]]
+- [[http://doc.rix.si/cce/cce.html][Ryan Rix]]
+- [[http://doc.norang.ca/org-mode.html][Bernt Hansen]]
+
+* Base settings
+** Setup some paths
+#+BEGIN_SRC emacs-lisp
+(add-to-list 'load-path "~/.emacs.d/lisp")
+(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
+(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") nil)
+#+END_SRC
+** Meta packages
+Packages that don't do anything by themselves, but can be used to help
+with other package definition and customization.
+*** Use-package
+#+begin_src emacs-lisp
+(unless (package-installed-p 'use-package)
+ (package-refresh-contents)
+ (package-install 'use-package))
+(eval-when-compile
+ (require 'use-package))
+#+end_src
+*** Hydra
+#+begin_src emacs-lisp
+(use-package hydra
+ :ensure t)
+#+end_src
+This package allows hydra definitions in use-package.
+#+begin_src emacs-lisp
+(use-package use-package-hydra
+ :ensure t)
+#+end_src
+*** which-key
+In Emacs you can press =?= or =C-h= after starting a key combination
+to get a list of available commands. =which-key= shows these in a
+small popup, which I think is more handy.
+#+begin_src emacs-lisp
+(use-package which-key
+ :ensure t
+ :custom (which-key-idle-delay 0.4)
+ :config (which-key-mode 1))
+#+end_src
+*** Try
+Sometimes I stumble over a package and want to try it out without
+commiting to it and installing it fully – possibly forgetting to
+remove it. =Try= installs packages temporarily for this emacs session
+only.
+#+begin_src emacs-lisp
+(use-package try
+ :ensure t)
+#+end_src
+** GUI Interface
+Disable most of the user interface.
+
+#+BEGIN_SRC emacs-lisp
+(use-package emacs
+ :config
+ (tooltip-mode -1)
+ (tool-bar-mode -1)
+ (menu-bar-mode -1)
+ (scroll-bar-mode -1)
+ )
+#+END_SRC
+In /awesomewm/ and other tiling window managers the emacs window
+leaves a gap at the bottom. This removes it.
+#+BEGIN_SRC emacs-lisp
+(setq frame-resize-pixelwise t)
+#+END_SRC
+*** Remove mode line clutter
+#+begin_src emacs-lisp
+(use-package delight
+ :ensure t
+ :after use-package)
+#+end_src
+If removing mode symbols with =delight= is not enough, the mode line
+can also be completely removed by setting ~mode-line-format~ to ~nil~.
+=hide-mode-line= is a small minor mode that can toggle the mode-line
+on and off. I added ~redraw-display~, because i had problems with the
+mode-line not being redisplayed, when turning the mode off even though
+it calls ~force-mode-line-update~.
+#+begin_src emacs-lisp
+(use-package hide-mode-line
+ :ensure t
+ :hook
+ (hide-mode-line-mode . redraw-display)
+ (help-mode . hide-mode-line-mode))
+(global-set-key (kbd "C-c m") 'hide-mode-line-mode)
+#+end_src
+** Font
+I am still not quite sure on my choice of font.
+
+=fpi/set-font= is a safe way to choose a font based on
+availability. When starting with =emacs --daemon= it does not work as
+=(font-family-list)= won't return anything.
+#+begin_src emacs-lisp :tangle no
+ (use-package emacs
+ :config
+ (defun fpi/set-font ()
+ (interactive)
+ (cond
+ ((member "Hack" (font-family-list)e)
+ (add-to-list 'default-frame-alist '(font . "Hack-12")))
+ ((member "Source Code Pro" (font-family-list))
+ (add-to-list 'default-frame-alist '(font . "Source Code Pro-12")))))
+ (add-to-list 'default-frame-alist '(font . "Hack-12"))
+ ;; :hook (after-init . fpi/set-font)
+ )
+#+end_src
+
+Instead of the above code I set the font directly using =set-face-attribute=.
+#+begin_src emacs-lisp
+(set-face-attribute 'default nil :font "Hack-11")
+#+end_src
+
+** Theme
+=hc-zenburn= is the theme I chose for a long time. Lately I started to
+appreciate light themes more. [[https://gitlab.com/protesilaos/modus-themes][modus-operandi]] is an interesting light
+theme promising high color contrast. I ended up using the
+=spacemacs-light= and =spacemacs-dark= themes.
+#+begin_src emacs-lisp
+(package-install 'spacemacs-theme)
+#+end_src
+
+To do some custom adjustments to it I use the following macro which
+adds an advice to ~load-theme~.
+#+begin_src emacs-lisp
+(defmacro set-pair-faces (themes consts faces-alist)
+ "Macro for pair setting of custom faces.
+THEMES name the pair (theme-one theme-two). CONSTS sets the variables like
+ ((sans-font \"Some Sans Font\") ...). FACES-ALIST has the actual faces
+like:
+ ((face1 theme-one-attr theme-two-atrr)
+ (face2 theme-one-attr nil )
+ (face3 nil theme-two-attr)
+ ...)"
+ (defmacro get-proper-faces ()
+ `(let* (,@consts)
+ (backquote ,faces-alist)))
+ `(progn
+ ,@(mapcar
+ (lambda (theme)
+ `(defadvice load-theme
+ (after ,(gensym theme) last (loaded-theme &rest args) activate)
+ (when (equal loaded-theme (quote ,theme))
+ (custom-theme-set-faces
+ (quote ,theme) ;; maybe instead use =user= theme?
+ ,@(cl-remove-if
+ (lambda (x) (equal x "NA"))
+ (mapcar
+ (lambda (face)
+ (let ((face-name (car face))
+ (face-attrs (nth (cl-position theme themes) (cdr face))))
+ (if face-attrs
+ `(quote (,face-name ((t ,face-attrs))))
+ "NA"))) (get-proper-faces)))
+ ))))
+ themes)))
+#+end_src
+
+The above macro can be used like this.
+#+begin_src emacs-lisp
+(set-pair-faces
+ ;; Themes to cycle in
+ (spacemacs-dark spacemacs-light)
+ ;; Variables
+ ((bg-white "#fbf8ef")
+ (bg-light "#222425")
+ (bg-dark "#1c1e1f")
+ (bg-darker "#1c1c1c")
+ (fg-white "#ffffff")
+ (shade-white "#efeae9")
+ (fg-light "#655370")
+ (dark-cyan "#008b8b")
+ (region-dark "#2d2e2e")
+ (region "#39393d")
+ (slate "#8FA1B3")
+ (keyword "#f92672")
+ (comment "#525254")
+ (builtin "#fd971f")
+ (purple "#9c91e4")
+ (doc "#727280")
+ (type "#66d9ef")
+ (string "#b6e63e")
+ (gray-dark "#999")
+ (gray "#bbb")
+ (sans-font "Source Sans Pro")
+ (serif-font "Merriweather")
+ (et-font "EtBookOt")
+ (sans-mono-font "Hack")
+ ;; (serif-mono-font "Verily Serif Mono")
+ (serif-mono-font "cmu typewriter text")
+ )
+
+ ;; (set-face-attribute 'default nil :font "Hack-11")
+;; (set-face-attribute 'variable-pitch nil :font "EtBookOt-11")
+ ;; Settings
+ ((default
+ ()
+ (:foreground ,bg-dark))
+ (variable-pitch
+ (:family ,sans-font)
+ (:family ,et-font
+ :background nil
+ :foreground ,bg-dark
+ :height 1.2))
+ (header-line
+ (:background nil :inherit nil)
+ (:background nil :inherit nil))
+ ;; (company-tooltip
+ ;; (:background ,bg-darker
+ ;; :foreground ,gray)
+ ;; nil)
+ ;; (company-scrollbar-fg
+ ;; (:background ,comment)
+ ;; nil)
+ ;; (company-scrollbar-bg
+ ;; (:background ,bg-darker)
+ ;; nil)
+ ;; (company-tooltip-common
+ ;; (:foreground ,keyword)
+ ;; nil)
+ ;; (company-tootip-annotation
+ ;; (:foreground ,type)
+ ;; nil)
+ ;; (company-tooltip-selection
+ ;; (:background ,region)
+ ;; nil)
+ (show-paren-match
+ (:background ,keyword
+ :foreground ,bg-dark)
+ nil)
+ (magit-section-heading
+ (:foreground ,keyword)
+ nil)
+ (magit-header-line
+ (:background nil
+ :foreground ,bg-dark
+ :box nil)
+ (:background nil
+ :foreground ,bg-white
+ :box nil))
+ (magit-diff-hunk-heading
+ (:background ,comment
+ :foreground ,gray)
+ nil)
+ (magit-diff-hunk-heading-highlight
+ (:background ,comment
+ :foreground ,fg-white)
+ nil)
+ (tooltip
+ (:foreground ,gray
+ :background ,bg-darker)
+ nil)
+ (mode-line
+ (:background ,bg-darker)
+ (:background ,bg-white
+ :box nil))
+ (mode-line-inactive
+ nil
+ (:box nil))
+ (powerline-active1
+ nil
+ (:background ,bg-white))
+ (powerline-active2
+ nil
+ (:background ,bg-white))
+ (powerline-inactive1
+ nil
+ (:background ,bg-white))
+ (powerline-inactive2
+ nil
+ (:background ,bg-white))
+ (highlight
+ (:background ,region
+ :foreground ,fg-white)
+ (:background ,shade-white))
+ (hl-line
+ (:background ,region-dark)
+ nil)
+ (org-document-title
+ (:inherit variable-pitch
+ :height 1.3
+ :weight normal
+ :foreground ,gray)
+ (:inherit nil
+ :family ,et-font
+ :height 1.8
+ :foreground ,bg-dark
+ :underline nil))
+ (org-document-info
+ (:foreground ,gray
+ :slant italic)
+ (:height 1.2
+ :slant italic))
+ (org-level-1
+ (:inherit variable-pitch
+ :height 1.3
+ :weight bold
+ :foreground ,keyword
+ :background ,bg-dark)
+ (:inherit nil
+ :family ,et-font
+ :height 1.6
+ :weight normal
+ :slant normal
+ :foreground ,bg-dark))
+ (org-level-2
+ (:inherit variable-pitch
+ :weight bold
+ :height 1.2
+ :foreground ,gray
+ :background ,bg-dark)
+ (:inherit nil
+ :family ,et-font
+ :weight normal
+ :height 1.3
+ :slant italic
+ :foreground ,bg-dark))
+ (org-level-3
+ (:inherit variable-pitch
+ :weight bold
+ :height 1.1
+ :foreground ,slate
+ :background ,bg-dark)
+ (:inherit nil
+ :family ,et-font
+ :weight normal
+ :slant italic
+ :height 1.2
+ :foreground ,bg-dark))
+ (org-level-4
+ (:inherit variable-pitch
+ :weight bold
+ :height 1.1
+ :foreground ,slate
+ :background ,bg-dark)
+ (:inherit nil
+ :family ,et-font
+ :weight normal
+ :slant italic
+ :height 1.1
+ :foreground ,bg-dark))
+ (org-level-5
+ (:inherit variable-pitch
+ :weight bold
+ :height 1.1
+ :foreground ,slate
+ :background ,bg-dark)
+ nil)
+ (org-level-6
+ (:inherit variable-pitch
+ :weight bold
+ :height 1.1
+ :foreground ,slate
+ :background ,bg-dark)
+ nil)
+ (org-level-7
+ (:inherit variable-pitch
+ :weight bold
+ :height 1.1
+ :foreground ,slate
+ :background ,bg-dark)
+ nil)
+ (org-level-8
+ (:inherit variable-pitch
+ :weight bold
+ :height 1.1
+ :foreground ,slate
+ :background ,bg-dark)
+ nil)
+ (org-headline-done
+ (:strike-through t)
+ (:family ,et-font
+ :strike-through t))
+ (org-quote
+ (:background ,bg-dark
+ :family ,sans-mono-font)
+ nil)
+ (org-block
+ (:background ,bg-dark
+ :family ,sans-mono-font)
+ (:background nil
+ :height 0.9
+ :foreground ,bg-dark
+ :family ,sans-mono-font))
+ (org-block-begin-line
+ (:background ,bg-dark)
+ (:background nil
+ :height 0.8
+ :family ,sans-mono-font
+ :foreground ,slate))
+ (org-block-end-line
+ (:background ,bg-dark)
+ (:background nil
+ :height 0.8
+ :family ,sans-mono-font
+ :foreground ,slate))
+ (org-document-info-keyword
+ (:foreground ,comment)
+ (:height 0.8
+ :foreground ,gray))
+ (org-link
+ (:underline nil
+ :weight normal
+ :foreground ,slate)
+ (:foreground ,bg-dark))
+ (org-special-keyword
+ (:height 0.9
+ :foreground ,comment)
+ (:family ,sans-mono-font
+ :height 0.8))
+ (org-todo
+ (:foreground ,builtin
+ :background ,bg-dark)
+ nil)
+ (org-done
+ (:inherit variable-pitch
+ :foreground ,dark-cyan
+ :background ,bg-dark)
+ nil)
+ (org-agenda-current-time
+ (:foreground ,slate)
+ nil)
+ (org-hide
+ nil
+ (:foreground ,bg-white))
+ (org-indent
+ (:inherit org-hide)
+ (:inherit (org-hide fixed-pitch)))
+ (org-time-grid
+ (:foreground ,comment)
+ nil)
+ (org-warning
+ (:foreground ,builtin)
+ nil)
+ (org-date
+ nil
+ (:family ,sans-mono-font
+ :height 0.8))
+ (org-agenda-structure
+ (:height 1.3
+ :foreground ,doc
+ :weight normal
+ :inherit variable-pitch)
+ nil)
+ (org-agenda-date
+ (:foreground ,doc
+ :inherit variable-pitch)
+ (:inherit variable-pitch
+ :height 1.1))
+ (org-agenda-date-today
+ (:height 1.5
+ :foreground ,keyword
+ :inherit variable-pitch)
+ nil)
+ (org-agenda-date-weekend
+ (:inherit org-agenda-date)
+ nil)
+ (org-scheduled
+ (:foreground ,gray)
+ nil)
+ (org-upcoming-deadline
+ (:foreground ,keyword)
+ nil)
+ (org-scheduled-today
+ (:foreground ,fg-white)
+ nil)
+ (org-scheduled-previously
+ (:foreground ,slate)
+ nil)
+ (org-agenda-done
+ (:inherit nil
+ :strike-through t
+ :foreground ,doc)
+ (:strike-through t
+ :foreground ,doc))
+ (org-ellipsis
+ (:underline nil
+ :foreground ,comment)
+ (:underline nil
+ :foreground ,comment))
+ (org-tag
+ (:foreground ,doc)
+ (:foreground ,doc))
+ (org-table
+ (:background nil
+ :family ,sans-mono-font)
+ (:family ,serif-mono-font
+ :height 0.9
+ :background ,bg-white))
+ (org-code
+ (:inherit font-lock-builtin-face)
+ (:inherit nil
+ :family ,serif-mono-font
+ :foreground ,comment
+ :height 0.9))
+ (font-latex-sectioning-0-face
+ (:foreground ,type
+ :height 1.2)
+ nil)
+ (font-latex-sectioning-1-face
+ (:foreground ,type
+ :height 1.1)
+ nil)
+ (font-latex-sectioning-2-face
+ (:foreground ,type
+ :height 1.1)
+ nil)
+ (font-latex-sectioning-3-face
+ (:foreground ,type
+ :height 1.0)
+ nil)
+ (font-latex-sectioning-4-face
+ (:foreground ,type
+ :height 1.0)
+ nil)
+ (font-latex-sectioning-5-face
+ (:foreground ,type
+ :height 1.0)
+ nil)
+ (font-latex-verbatim-face
+ (:foreground ,builtin)
+ nil)
+ (spacemacs-normal-face
+ (:background ,bg-dark
+ :foreground ,fg-white)
+ nil)
+ (spacemacs-evilified-face
+ (:background ,bg-dark
+ :foreground ,fg-white)
+ nil)
+ (spacemacs-lisp-face
+ (:background ,bg-dark
+ :foreground ,fg-white)
+ nil)
+ (spacemacs-emacs-face
+ (:background ,bg-dark
+ :foreground ,fg-white)
+ nil)
+ (spacemacs-motion-face
+ (:background ,bg-dark
+ :foreground ,fg-white)
+ nil)
+ (spacemacs-visual-face
+ (:background ,bg-dark
+ :foreground ,fg-white)
+ nil)
+ (spacemacs-hybrid-face
+ (:background ,bg-dark
+ :foreground ,fg-white)
+ nil)
+ (bm-persistent-face
+ (:background ,dark-cyan
+ :foreground ,fg-white)
+ nil)
+ (helm-selection
+ (:background ,region)
+ nil)
+ (helm-match
+ (:foreground ,keyword)
+ nil)
+ (cfw:face-title
+ (:height 2.0
+ :inherit variable-pitch
+ :weight bold
+ :foreground ,doc)
+ nil)
+ (cfw:face-holiday
+ (:foreground ,builtin)
+ nil)
+ (cfw:face-saturday
+ (:foreground ,doc
+ :weight bold)
+ nil)
+ (cfw:face-sunday
+ (:foreground ,doc)
+ nil)
+ (cfw:face-periods
+ (:foreground ,dark-cyan)
+ nil)
+ (cfw:face-annotation
+ (:foreground ,doc)
+ nil)
+ (cfw:face-select
+ (:background ,region)
+ nil)
+ (cfw:face-toolbar-button-off
+ (:foreground ,doc)
+ nil)
+ (cfw:face-toolbar-button-on
+ (:foreground ,type
+ :weight bold)
+ nil)
+ (cfw:face-day-title
+ (:foreground ,doc)
+ nil)
+ (cfw:face-default-content
+ (:foreground ,dark-cyan)
+ nil)
+ (cfw:face-disable
+ (:foreground ,doc)
+ nil)
+ (cfw:face-today
+ (:background ,region
+ :weight bold)
+ nil)
+ (cfw:face-toolbar
+ (:inherit default)
+ nil)
+ (cfw:face-today-title
+ (:background ,keyword
+ :foreground ,fg-white)
+ nil)
+ (cfw:face-grid
+ (:foreground ,comment)
+ nil)
+ (cfw:face-header
+ (:foreground ,keyword
+ :weight bold)
+ nil)
+ (cfw:face-default-day
+ (:foreground ,fg-white)
+ nil)
+ (dired-subtree-depth-1-face
+ (:background nil)
+ nil)
+ (dired-subtree-depth-2-face
+ (:background nil)
+ nil)
+ (dired-subtree-depth-3-face
+ (:background nil)
+ nil)
+ (dired-subtree-depth-4-face
+ (:background nil)
+ nil)
+ (dired-subtree-depth-5-face
+ (:background nil)
+ nil)
+ (dired-subtree-depth-6-face
+ (:background nil)
+ nil)
+ (nlinum-current-line
+ (:foreground ,builtin)
+ (:foreground ,bg-dark))
+ (vertical-border
+ (:background ,region
+ :foreground ,region)
+ nil)
+ (which-key-command-description-face
+ (:foreground ,type)
+ nil)
+ (flycheck-error
+ (:background nil)
+ nil)
+ (flycheck-warning
+ (:background nil)
+ nil)
+ (font-lock-string-face
+ (:foreground ,string)
+ nil)
+ (font-lock-comment-face
+ (:foreground ,doc
+ :slant italic)
+ (:background nil
+ :foreground ,doc
+ :slant italic))
+ (elfeed-search-unread-title-face
+ (:weight bold)
+ (:weight bold))
+ (helm-ff-symlink
+ (:foreground ,slate)
+ nil)
+ (region
+ (:background ,region)
+ nil)
+ (header-line
+ (:background nil
+ :inherit nil)
+ (:background nil
+ :inherit nil))))
+#+end_src
+
+Finally load the theme.
+#+begin_src emacs-lisp
+(load-theme 'spacemacs-light t)
+#+end_src
+** User info
+Set ~user-full-name~ and ~user-mail-address~. These are set in
+[[file:emacs-private.el.gpg::1][emacs-private.el.gpg]].
+
+#+begin_src emacs-lisp
+(setq user-full-name private/user-full-name
+ user-mail-address private/user-mail-address)
+#+end_src
+
+** Desktop module
+This saves the state emacs was in.
+#+begin_src emacs-lisp
+(use-package desktop
+ :init
+ (setq desktop-dirname user-emacs-directory)
+ (setq desktop-base-file-name "desktop")
+ (setq desktop-globals-to-clear nil)
+ (setq desktop-missing-file-warning t)
+ (setq desktop-restore-eager 5)
+ (setq desktop-restore-frames nil)
+ (setq desktop-save 'ask-if-new)
+ :config
+ (desktop-save-mode 1))
+#+end_src
+** Customize
+#+BEGIN_SRC emacs-lisp
+(use-package cus-edit
+ :custom
+ (custom-file (expand-file-name "custom.el" user-emacs-directory))
+ :hook
+ (after-init . (lambda ()
+ (unless (file-exists-p custom-file)
+ (write-region "" nil custom-file))
+ (load custom-file))))
+#+END_SRC
+** File and input history
+*** Recentf
+#+begin_src emacs-lisp
+(use-package recentf
+ :init
+ (setq recentf-save-file (expand-file-name "recentf" user-emacs-directory))
+ (setq recentf-max-menu-items 10)
+ (setq recentf-max-saved-items 200)
+ (setq recentf-show-file-shortcuts-flag nil)
+ :config
+ (recentf-mode 1))
+#+end_src
+*** Minibuffer
+#+begin_src emacs-lisp
+(use-package savehist
+ :init
+ (setq savehist-file (expand-file-name "savehist" user-emacs-directory))
+ (setq history-length 1000)
+ (setq savehist-save-minibuffer-history t)
+ :config
+ (savehist-mode 1))
+#+end_src
+*** Point
+Remember where point is in a file.
+#+begin_src emacs-lisp
+(use-package saveplace
+ :init
+ (setq save-place-file (expand-file-name "saveplace" user-emacs-directory))
+ :config
+ (save-place-mode 1))
+#+end_src
+*** Backups
+#+begin_src emacs-lisp
+(use-package emacs
+ :custom
+ (backup-directory-alist '(("." . "~/.emacs.d/backups")))
+ (version-control t)
+ (delete-old-versions t)
+ (kept-new-versions 6)
+ (kept-old-versions 2)
+ (create-lockfiles nil))
+#+end_src
+** Personal keymap
+
+Unfortunately =C-c [a-z]= is not always a safe place for user-defined
+key bindings. I use a special keymap to aggregate common functions. I
+rebind the =C-z= binding for this.
+*** Toggle map to toggle common options
+This was inspired from [[http://endlessparentheses.com/the-toggle-map-and-wizardry.html][this post]] and I bind it to a key on my personal keymap.
+#+BEGIN_SRC emacs-lisp :results silent
+(define-prefix-command 'fpi/toggle-map)
+(define-key fpi/toggle-map "c" #'column-number-mode)
+;;(define-key fpi/toggle-map "d" #'toggle-debug-on-error)
+(define-key fpi/toggle-map "f" #'auto-fill-mode)
+(define-key fpi/toggle-map "l" #'scroll-lock-mode)
+(define-key fpi/toggle-map "s" #'flyspell-mode)
+(define-key fpi/toggle-map "t" #'toggle-truncate-lines)
+(define-key fpi/toggle-map "q" #'toggle-debug-on-quit)
+(define-key fpi/toggle-map "r" #'dired-toggle-read-only)
+(autoload 'dired-toggle-read-only "dired" nil t)
+(define-key fpi/toggle-map "w" #'whitespace-mode)
+(define-key fpi/toggle-map "W" #'whitespace-toggle-options)
+#+END_SRC
+*** fpi-map
+#+BEGIN_SRC emacs-lisp
+(define-prefix-command 'fpi-map)
+(unbind-key (kbd "C-z"))
+(global-set-key (kbd "C-z") 'fpi-map)
+
+;;(define-key fpi-map (kbd "1") 'org-global-cycle)
+(define-key fpi-map (kbd "a") 'org-agenda-show-agenda-and-todo)
+(define-key fpi-map (kbd "b") 'bury-buffer)
+(define-key fpi-map (kbd "c") 'compile)
+;;(define-key fpi-map (kbd "u") 'multiple-cursors-hydra/body)
+(define-key fpi-map (kbd "e") 'elfeed)
+(define-key fpi-map (kbd "h") 'dfeich/context-hydra-launcher)
+(define-key fpi-map (kbd "m") 'notmuch)
+(define-key fpi-map (kbd "t") fpi/toggle-map)
+(define-key fpi-map (kbd "n") 'sauron-toggle-hide-show)
+(define-key fpi-map (kbd "j") (lambda () (interactive) (find-file org-journal-file)))
+#+END_SRC
+
+* Selection and search methods
+** Completion frameworks
+Having used ido, ivy, icicles and helm in the past, I'm trying to
+settle for something simple and go back to ido. The settings below
+are for now mostly copied from [[https://gitlab.com/protesilaos/dotemacs/][Protesilaos Stavrou]].
+#+BEGIN_SRC emacs-lisp
+(use-package ido
+ :init
+ (setq ido-everywhere t)
+ (setq ido-enable-flex-matching t)
+ (setq ido-enable-regexp nil)
+ (setq ido-enable-prefix nil)
+ (setq ido-all-frames nil)
+ (setq ido-buffer-disable-smart-matches t)
+ (setq ido-completion-buffer "*Ido Completions*")
+ (setq ido-completion-buffer-all-completions nil)
+ (setq ido-confirm-unique-completion nil)
+ (setq ido-create-new-buffer 'prompt)
+ (setq ido-default-buffer-method 'selected-window)
+ (setq ido-default-file-method 'selected-window)
+ (setq ido-enable-last-directory-history t)
+ (setq ido-use-filename-at-point nil)
+ (setq ido-use-url-at-point nil)
+ (setq ido-use-virtual-buffers t)
+ (setq ido-use-faces t)
+ (setq ido-max-window-height 1)
+ (setq ido-decorations
+ '(" "
+ " "
+ " | "
+ " | …"
+ "["
+ "]"
+ " [No match]"
+ " [Matched]"
+ " [Not readable]"
+ " [Too big]"
+ " [Confirm]"
+ " "
+ " "))
+ (setq ido-auto-merge-work-directories-length -1)
+ :config
+ (ido-mode 1)
+ :hook
+ (minibuffer-setup . (lambda ()
+ (visual-line-mode 1)
+ (setq-local truncate-lines nil)
+ (setq-local resize-mini-windows nil)
+ (setq-local max-mini-window-height 1))))
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp
+(use-package ido-completing-read+
+ :ensure t
+ :after ido
+ :config
+ (ido-ubiquitous-mode 1))
+#+END_SRC
+*** amx
+Ido completion for =M-x=.
+#+BEGIN_SRC emacs-lisp :tangle no
+(use-package amx
+ :ensure t
+ :after (ido ido-completing-read+)
+ :init
+ (setq amx-backend 'ido)
+ (setq amx-save-file "~/.emacs.d/amx-items")
+ (setq amx-history-length 10)
+ (setq amx-show-key-bindings nil)
+ :config
+ (amx-mode 1))
+#+END_SRC
+** isearch enhancements
+
+Once again this is mostly taken from [[https://gitlab.com/protesilaos/dotemacs/][Protesilaos Stavrou]].
+
+#+BEGIN_SRC emacs-lisp
+(use-package isearch
+ :init
+ (setq search-whitespace-regexp ".*")
+ ;; Or use the following for non-greedy matches
+ ;; (setq search-whitespace-regexp ".*?")
+ (setq isearch-lax-whitespace t)
+ (setq isearch-regexp-lax-whitespace nil)
+ :config
+ (defun prot/isearch-mark-and-exit ()
+ "Marks the current search string. Can be used as a building
+block for a more complex chain, such as to kill a region, or
+place multiple cursors."
+ (interactive)
+ (push-mark isearch-other-end t 'activate)
+ (setq deactivate-mark nil)
+ (isearch-done))
+
+ (defun stribb/isearch-region (&optional not-regexp no-recursive-edit)
+ "If a region is active, make this the isearch default search
+pattern."
+ (interactive "P\np")
+ (when (use-region-p)
+ (let ((search (buffer-substring-no-properties
+ (region-beginning)
+ (region-end))))
+ (message "stribb/ir: %s %d %d" search (region-beginning) (region-end))
+ (setq deactivate-mark t)
+ (isearch-yank-string search))))
+ (advice-add 'isearch-forward-regexp :after 'stribb/isearch-region)
+ (advice-add 'isearch-forward :after 'stribb/isearch-region)
+ (advice-add 'isearch-backward-regexp :after 'stribb/isearch-region)
+ (advice-add 'isearch-backward :after 'stribb/isearch-region)
+
+ (defun contrib/isearchp-remove-failed-part-or-last-char ()
+ "Remove failed part of search string, or last char if successful.
+Do nothing if search string is empty to start with."
+ (interactive)
+ (if (equal isearch-string "")
+ (isearch-update)
+ (if isearch-success
+ (isearch-delete-char)
+ (while (isearch-fail-pos) (isearch-pop-state)))
+ (isearch-update)))
+
+ (defun contrib/isearch-done-opposite-end (&optional nopush edit)
+ "End current search in the opposite side of the match.
+Particularly useful when the match does not fall within the
+confines of word boundaries (e.g. multiple words)."
+ (interactive)
+ (funcall #'isearch-done nopush edit)
+ (when isearch-other-end (goto-char isearch-other-end)))
+
+ :bind (:map isearch-mode-map
+ ("C-SPC" . prot/isearch-mark-and-exit)
+ ("DEL" . contrib/isearchp-remove-failed-part-or-last-char)
+ ("<C-return>" . contrib/isearch-done-opposite-end)))
+#+END_SRC
+* Directory, project, buffer, window management
+** Dired
+*** Base settings
+- Always do recursive copies and deletions.
+- Be smart about searching file names or the whole buffer.
+- Use the system trash for now.
+- Customize dired output switches.
+- Dont try to be smart about rename and copy target locations when
+ having two open dired buffers. Setting the target to the other
+ directory is just as easy using =M-n= twice.
+- Hide details by default. =(= to toggle.
+- Highlight current line.
+- Let the relevant =find= commands use case-insensitive names.
+- Enable asynchronous mode for copying/renaming.
+#+BEGIN_SRC emacs-lisp
+(use-package dired
+ :custom
+ (dired-recursive-copies 'always)
+ (dired-recursive-deletes 'always)
+ (dired-isearch-filenames 'dwim)
+ (delete-by-moving-to-trash t)
+ (dired-listing-switches "-AFlh --group-directories-first")
+ (dired-dwim-target nil)
+ :hook
+ (dired-mode . dired-hide-details-mode)
+ (dired-mode . hl-line-mode)
+ (dired-mode . auto-revert-mode))
+
+(use-package find-dired
+ :after dired
+ :custom
+ (find-ls-option ;; applies to `find-name-dired'
+ '("-ls" . "-AFlv --group-directories-first"))
+ (find-name-arg "-iname"))
+
+(use-package async
+ :ensure t)
+
+(use-package dired-async
+ :after (dired async)
+ :config
+ (dired-async-mode 1))
+#+END_SRC
+*** Narrowing
+#+BEGIN_SRC emacs-lisp
+(use-package dired-narrow
+ :ensure t
+ :after dired
+ :bind (:map dired-mode-map
+ ("SPC" . dired-narrow-regexp)))
+#+END_SRC
+*** wdired
+Start with =C-x C-q=.
+- Allow to change permissions.
+- Interpret forward slash in renamed files as new subdirectory to
+ create.
+
+#+BEGIN_SRC emacs-lisp
+(use-package wdired
+ :after dired
+ :init
+ (setq wdired-allow-to-change-permissions t)
+ (setq wdired-create-parent-directories t))
+#+END_SRC
+*** peep-dired (file previews including images)
+By default, dired does not show previews of files, while =image-dired=
+is intended for a different purpose. We just want to toggle the
+behaviour while inside a regular dired buffer.
+
+#+BEGIN_SRC emacs-lisp
+(use-package peep-dired
+ :ensure t
+ :after dired
+ :bind (:map dired-mode-map
+ ("P" . peep-dired))
+ :custom
+ (peep-dired-cleanup-on-disable t)
+ (peep-dired-ignored-extensions
+ '("mkv" "webm" "mp4" "mp3" "ogg" "iso")))
+#+END_SRC
+*** dired-x
+Some additional features that are shipped with Emacs.
+
+#+BEGIN_SRC emacs-lisp
+(use-package dired-x
+ :after dired
+ :bind (("C-x C-j" . dired-jump)
+ ("C-x 4 C-j" . dired-jump-other-window))
+ :hook
+ (dired-mode . (lambda ()
+ (setq dired-clean-confirm-killing-deleted-buffers t))))
+#+END_SRC
+
+
+*** dired-subtree
++ The tab key will expand or contract the subdirectory at point.
++ =C-TAB= will behave just like org-mode handles its headings: hit it
+ once to expand a subdir at point, twice to do it recursively, thrice
+ to contract the tree.
++ I also have Shift-TAB for contracting the subtree /when the point is
+ inside of it/.
+
+At any rate, this does not override the action of inserting a
+subdirectory listing in the current dired buffer (with =i= over the
+target dir).
+
+#+BEGIN_SRC emacs-lisp
+(use-package dired-subtree
+ :ensure t
+ :after dired
+ :bind (:map dired-mode-map
+ ("<tab>" . dired-subtree-toggle)
+ ("<C-tab>" . dired-subtree-cycle)
+ ("<S-iso-lefttab>" . dired-subtree-remove)))
+#+END_SRC
+*** dired-sidebar
+Open a small sidebar window showing the current directory.
+#+BEGIN_SRC emacs-lisp
+(use-package dired-sidebar
+ :bind (("C-x C-n" . dired-sidebar-toggle-sidebar))
+ :ensure t
+ :commands (dired-sidebar-toggle-sidebar)
+ :hook
+ (dired-sidebar-mode . (lambda ()
+ (unless (file-remote-p default-directory)
+ (auto-revert-mode))))
+ :config
+ ;; (setq dired-sidebar-theme 'vscode)
+ (setq dired-sidebar-use-term-integration t))
+#+END_SRC
+
+*** dired-du
+Recursive directory sizes. Toggle with =C-x M-r=. This will take a
+while for directories with lots of nested files.
+#+BEGIN_SRC emacs-lisp
+(use-package dired-du
+ :ensure t
+ :config (setq dired-du-size-format 't))
+#+END_SRC
+** Magit
+
+#+BEGIN_SRC emacs-lisp
+(use-package magit
+ :ensure t
+ :custom (magit-completing-read-function 'magit-ido-completing-read)
+ :init (global-magit-file-mode))
+#+END_SRC
+
+The following package is configured in accordance with the guidelines
+provided by this article on [[https://chris.beams.io/posts/git-commit/][writing a Git commit message]].
+
+#+BEGIN_SRC emacs-lisp
+(use-package git-commit
+ :after magit
+ :custom
+ (git-commit-fill-column 72)
+ (git-commit-summary-max-length 50)
+ (git-commit-known-pseudo-headers
+ '("Signed-off-by"
+ "Acked-by"
+ "Modified-by"
+ "Cc"
+ "Suggested-by"
+ "Reported-by"
+ "Tested-by"
+ "Reviewed-by"))
+ (git-commit-style-convention-checks
+ '(non-empty-second-line
+ overlong-summary-line)))
+#+END_SRC
+
+Only highlight the changes within a line, not the whole line.
+
+#+BEGIN_SRC emacs-lisp
+(use-package magit-diff
+ :after magit
+ :custom
+ (magit-diff-refine-hunk 'all))
+#+END_SRC
+*** diff-hl
+Indicates changed lines in the left fringe. The Hydra can be used to
+navigate and revert hunks directly from the buffer. Use =g= to open
+=magit-status=. I also bind this hydra to =g= in my personal keymap.
+
+#+begin_src emacs-lisp
+(use-package diff-hl
+ :ensure t
+ :defer t
+ :bind (:map fpi-map ("g" . hydra-diff-hl/body))
+ :init (global-diff-hl-mode 1)
+ :config (defhydra hydra-diff-hl (:body-pre (diff-hl-mode 1)
+ :hint nil)
+ "
+ Diff-hl:
+ _n_: next hunk _s_tage hunk _g_: Magit status
+ _p_: previous hunk _r_evert hunk _q_uit
+ ^ ^ _P_opup hunk _Q_uit and deactivate git-gutter
+ _a_: first hunk
+ _e_: last hunk _A_mend mode
+ "
+ ("n" diff-hl-next-hunk)
+ ("p" diff-hl-previous-hunk)
+ ("a" (progn (goto-char (point-min))
+ (diff-hl-next-hunk)))
+ ("e" (progn (goto-char (point-max))
+ (diff-hl-previous-hunk)))
+ ("s" git-gutter:stage-hunk)
+ ("r" diff-hl-revert-hunk)
+ ("P" diff-hl-diff-goto-hunk)
+ ("A" diff-hl-amend-mode)
+ ("g" magit-status :color blue)
+ ("q" nil :color blue)
+ ("Q" (diff-hl-mode -1)
+ :color blue))
+)
+#+end_src
+*** gitflow
+Add support for [[https://nvie.com/posts/a-successful-git-branching-model/][gitflow]].
+#+begin_src emacs-lisp
+(use-package magit-gitflow
+ :ensure t
+ :hook (magit-mode . turn-on-magit-gitflow))
+#+end_src
+** Projectile
+
+#+BEGIN_SRC emacs-lisp
+(use-package projectile
+ :ensure t
+ :delight '(:eval (concat " " (projectile-project-name)))
+ :init
+ (setq projectile-project-search-path '("~/git/projects/"))
+ (setq projectile-indexing-method 'alien)
+ (setq projectile-enable-caching t)
+ (setq projectile-completion-system 'ido)
+ :config
+ (projectile-mode 1)
+ :bind (("C-c p" . projectile-command-map)))
+#+END_SRC
+** Working with buffers
+
+This renames buffers with the same name and uniqifies them using angled
+brackets containing their path.
+#+BEGIN_SRC emacs-lisp
+(use-package uniquify
+ :custom
+ (uniquify-buffer-name-style 'forward)
+ (uniquify-strip-common-suffix t)
+ (uniquify-after-kill-buffer-p t))
+#+END_SRC
+*** ibuffer
+
+#+BEGIN_SRC emacs-lisp
+(use-package ibuffer
+ :custom
+ (ibuffer-display-summary nil)
+ (ibuffer-use-other-window nil)
+ (ibuffer-auto-mode -1)
+ :bind ("C-x C-b" . ibuffer)
+ :hook
+ (ibuffer-mode . ibuffer-auto-mode))
+#+END_SRC
+
+Sort buffers in project groups using projectile.
+#+BEGIN_SRC emacs-lisp :tangle no
+(use-package ibuffer-projectile
+ :ensure t
+ :after (ibuffer projectile)
+ :hook
+ (ibuffer-mode . (lambda ()
+ (ibuffer-projectile-set-filter-groups)
+ (unless (eq ibuffer-sorting-mode 'recency)
+ (ibuffer-do-sort-by-recency)))))
+#+END_SRC
+=ibuffer-projectile= updates can be fairly slow. =ibuffer-vc= provides
+better performance.
+#+begin_src emacs-lisp
+(use-package ibuffer-vc
+ :ensure t
+ :custom
+ (ibuffer-formats
+ '((mark modified read-only vc-status-mini " "
+ (name 18 18 :left :elide)
+ " "
+ (size 9 -1 :right)
+ " "
+ (mode 16 16 :left :elide)
+ " "
+ (vc-status 16 16 :left)
+ " "
+ vc-relative-file)))
+ :hook
+ (ibuffer . (lambda ()
+ (ibuffer-vc-set-filter-groups-by-vc-root)
+ (unless (eq ibuffer-sorting-mode 'alphabetic)
+ (ibuffer-do-sort-by-alphabetic)))))
+#+end_src
+** Window configuration
+=fit-window-to-buffer= automatically shrinks the current buffer based
+on the amount of displayed text.
+#+begin_src emacs-lisp
+(use-package window
+ :custom
+ (fit-window-to-buffer-horizontally t)
+ :bind (:map fpi-map ("s" . fit-window-to-buffer)))
+#+end_src
+*** window-numbering
+This is a nice package for easy window focus switching. I prefer it
+over =windmove=, as it does not interfere with org keybindings.
+#+begin_src emacs-lisp
+(use-package window-numbering
+ :ensure t
+ :config (window-numbering-mode 1))
+#+end_src
+*** Winner-mode
+#+begin_src emacs-lisp
+(use-package winner
+ :hook (after-init . winner-mode)
+ :hydra (winner-hydra
+ (global-map "C-c" :color red)
+ "Winner undo/redo"
+ ("<left>" winner-undo "undo")
+ ("<right>" winner-redo "redo"))
+ :bind (:map winner-mode-map
+ ("C-c <left>" . winner-hydra/winner-undo)
+ ("C-c <right>" . winner-hydra/winner-redo)))
+#+end_src
+* Applications and utilities
+** Calendar
+Some basic calendar options for date format und location to provide
+correct sunrise/-set times.
+#+begin_src emacs-lisp
+(use-package calendar
+ :custom
+ (calendar-date-style 'european)
+ (calendar-latitude 52.3667)
+ (calendar-longitude 9.7167))
+#+end_src
+
+Set the holidays to consider. I only use german and christian
+holidays. Note the =:init= keyword. The individual holiday lists have
+to be set before =holidays= is loaded and ~calendar-holidays~ is
+initialized.
+#+begin_src emacs-lisp
+(use-package holidays
+ :init
+ (setq holiday-bahai-holidays nil
+ holiday-christian-holidays
+ (quote
+ ((holiday-float 12 0 -4 "1. Advent" 24)
+ (holiday-float 12 0 -3 "2. Advent" 24)
+ (holiday-float 12 0 -2 "3. Advent" 24)
+ (holiday-float 12 0 -1 "4. Advent" 24)
+ (holiday-fixed 12 25 "1. Weihnachtstag")
+ (holiday-fixed 12 26 "2. Weihnachtstag")
+ (holiday-fixed 1 6 "Heilige Drei Könige")
+ (holiday-easter-etc -48 "Rosenmontag")
+ (holiday-easter-etc -2 "Karfreitag")
+ (holiday-easter-etc 0 "Ostersonntag")
+ (holiday-easter-etc 1 "Ostermontag")
+ (holiday-easter-etc 39 "Christi Himmelfahrt")
+ (holiday-easter-etc 49 "Pfingstsonntag")
+ (holiday-easter-etc 50 "Pfingstmontag")
+ (holiday-easter-etc 60 "Fronleichnam")
+ (holiday-fixed 8 15 "Mariae Himmelfahrt")
+ (holiday-fixed 11 1 "Allerheiligen")
+ (holiday-float 11 0 1 "Totensonntag" 20)))
+ holiday-general-holidays
+ (quote
+ ((holiday-fixed 1 1 "Neujahr")
+ (holiday-fixed 2 14 "Valentinstag")
+ (holiday-fixed 5 1 "1. Mai")
+ (holiday-float 5 0 2 "Muttertag")
+ (holiday-fixed 10 3 "Tag der Deutschen Einheit")))
+ holiday-hebrew-holidays nil
+ holiday-islamic-holidays nil
+ holiday-oriental-holidays nil))
+(use-package solar
+ :custom
+ (solar-n-hemi-seasons '("Frühlingsanfang" "Sommeranfang" "Herbstanfang" "Winteranfang")))
+#+end_src
+** PDFs
+=PDF-Tools= provides better rendering than =DocView=, which is only
+png based. It also provides pdf syncing with a tex source. To use this
+make sure to compile the tex document with the option ~--synctex=1~.
+
+#+BEGIN_SRC emacs-lisp
+(use-package pdf-tools
+ :ensure t
+ :config
+ (setq pdf-info-epdfinfo-program (concat user-emacs-directory "epdfinfo"))
+ (pdf-tools-install))
+#+END_SRC
+
+Add support for pdf annotations.
+#+BEGIN_SRC emacs-lisp
+(use-package pdf-annot
+ :bind (:map pdf-annot-minor-mode-map ("C-c C-a d" . pdf-annot-delete)))
+#+END_SRC
+** Latex
+#+begin_src emacs-lisp
+(use-package auctex
+ :ensure t)
+#+end_src
+
+=cdlatex= depends on =texmath.el=. The docstring of =cdlatex= says
+=texmath= is supposed to be part of Emacs. However my installation
+does not have it. So =auctex= has to deliver this dependency instead.
+#+begin_src emacs-lisp
+(use-package cdlatex
+ :ensure t
+ :custom
+ (cdlatex-env-alist
+ (list '("equation*" "\\begin{equation*}\nAUTOLABEL\n?\n\\end{equation*}" nil)
+ '("tikzpicture" "\\begin{tikzpicture}\nAUTOLABEL\n?\n\\end{tikzpicture}" nil)
+ '("circuitikz" "\\begin{circuitikz}\nAUTOLABEL\n?\n\\end{circuitikz}" nil))))
+#+end_src
+** Programming languages
+*** Emacs lisp
+=Speed of thought= makes writing lisp so easy. No more snippets
+needed.
+#+begin_src emacs-lisp
+(use-package sotlisp
+ :ensure t
+ :init
+ (add-hook 'emacs-lisp-mode-hook 'speed-of-thought-mode))
+#+end_src
+** Org mode
+Org is the mode you never need to leave, if you do not want to. My org
+TODO and clocking setup is largely inspired by [[http://doc.rix.si/cce/cce-org.html][Ryan Rix's]] and [[http://doc.norang.ca/org-mode.html][Bernt
+Hansen's]] configs.
+- Scale latex previews :: The default is just a little bit too
+ small
+- org-plus-contrib :: Install the =org-plus-contrib= package which
+ contains many extra org-modules.
+- Startup indented :: Enable =org-indent-mode= in every org file. This
+ shows the content of headings indented to the headings level, but
+ does not actually insert whitespace at the start of the line.
+- Enable Speed commands :: With the custom function speed commands are
+ enabled on any star of an headline.
+- Set fast tag selection :: By defining default tags they can be set
+ just with one key press, similar to TODO states.
+- Code blocks :: Open code blocks in the current window and use native
+ settings for the code blocks.
+- Custom link abbrevs :: Define any expansion and use them as normal
+ org links like [[ddg:emacs]].
+- Babel languages :: Enable more languages to use in org-babel blocks.
+- Youtube links :: See [[http://endlessparentheses.com/embedding-youtube-videos-with-org-mode-links.html][this blog post]] for more info.
+- Ellipsis :: I currently use =" "= and previously used ="⚡⚡⚡"=.
+#+begin_src emacs-lisp
+(use-package org
+ :ensure org-plus-contrib
+ :defer t
+ :bind
+ (("C-c c" . org-capture)
+ ("C-c a" . org-agenda)
+ ("C-c l" . org-store-link))
+ :custom
+ (org-format-latex-options '(:foreground default :background default :scale 1.5 :html-foreground "Black" :html-background "Transparent" :html-scale 1.0 :matchers
+ ("begin" "$1" "$" "$$" "\\(" "\\[")))
+ (org-catch-invisible-edits 'smart)
+ (org-agenda-diary-file "~/sync/diary.org")
+ (org-startup-indented t)
+ (org-use-speed-commands (lambda () (and (looking-at org-outline-regexp) (looking-back "^\**"))))
+ (org-pretty-entities t)
+ (org-fast-tag-selection-single-key t)
+ (org-tag-alist (quote ((:startgroup)
+ ("@errand" . ?e)
+ ("@office" . ?o)
+ ("@home" . ?H)
+ (:endgroup)
+ ("IDLE" . ?i)
+ ("shelf" . ?s)
+ ("soon" . ?t)
+ ("project" . ?p)
+ ;; ("HOLD" . ?h)
+ ;; ("PERSONAL" . ?P)
+ ("WORK" . ?W)
+ ;; ("ORG" . ?O)
+ ("crypt" . ?E)
+ ("NOTE" . ?n)
+ ;; ("CANCELLED" . ?c)
+ ("FLAGGED" . ??)
+ )))
+ (org-link-abbrev-alist
+ '(("google" . "http://www.google.com/search?q=")
+ ("ddg" . "https://duckduckgo.com/?q=")
+ ("gmap" . "http://maps.google.com/maps?q=%s")
+ ("omap" . "http://nominatim.openstreetmap.org/search?q=%s&polygon=1")))
+ (org-ellipsis " ")
+ :config
+ (add-hook 'org-mode-hook 'turn-on-org-cdlatex)
+ (add-to-list 'org-structure-template-alist (cons "f" "figure"))
+ (add-to-list 'org-tags-exclude-from-inheritance "MARKED"))
+#+end_src
+#+begin_src emacs-lisp
+(use-package ob
+ :config (org-babel-do-load-languages
+ 'org-babel-load-languages
+ '((ruby . t)
+ (python . t)
+ ;;(ipython . t)
+ (emacs-lisp . t)
+ (octave . t)
+ (gnuplot . t)
+ (dot . t)
+ (spice . t)
+ (C . t)
+ (calc . t)
+ (latex . t)
+ (matlab . t)
+ (shell . t)
+ (lua . t)
+ (org . t)
+ (js . t)
+ (ditaa . t)
+ (plantuml . t)
+ ;; (hvm . t)
+ (ledger . t)
+ )))
+#+end_src
+#+BEGIN_SRC emacs-lisp
+(use-package org-noter
+ :ensure t
+ :bind (:map org-mode-map ("C-c o" . org-noter))
+ :custom (org-noter-default-notes-file-names '("notes.org"))
+ )
+#+END_SRC
+
+#+begin_src emacs-lisp
+(use-package ox
+ :custom
+ (org-export-with-broken-links 'match)
+ (org-export-backends '(ascii beamer html icalendar latex man md odt org groff koma-letter)))
+(use-package org-pdfview
+:ensure t)
+(use-package org-id
+ :custom (org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id))
+(use-package org-clock
+ :custom
+ (org-clock-out-remove-zero-time-clocks t)
+ (org-clock-persist 'history)
+ (org-clock-history-length 30)
+ :init
+ (org-clock-persistence-insinuate)
+ )
+(use-package org-src
+ :custom
+ (org-src-window-setup 'current-window)
+ (org-src-fontify-natively t)
+ (org-src-tab-acts-natively t)
+ (org-edit-src-content-indentation 0)
+)
+(use-package org-agenda
+ :custom
+ (org-agenda-files (quote ("~/s/s.org" "~/sync" "~/.emacs.d/gcal.org" "~/.emacs.d/tr.org" "~/n.org")))
+ (org-deadline-warning-days 14)
+ (org-agenda-start-on-weekday nil)
+ (org-agenda-span 14)
+ (org-agenda-start-day "+0d")
+ (org-agenda-include-diary nil)
+ (org-agenda-sticky t)
+ (org-agenda-todo-ignore-deadlines 'near) ;; or future?
+ (org-agenda-todo-ignore-scheduled 'future)
+ (org-agenda-tags-todo-honor-ignore-options t)
+ (org-agenda-todo-list-sublevels t) ;; nil to exclude sublevels of todos
+ (org-agenda-sorting-strategy '((agenda habit-down time-up priority-down category-keep)
+ (todo priority-down category-keep)
+ (tags priority-down category-keep)
+ (search category-keep)))
+ (org-agenda-skip-scheduled-if-done t)
+ (org-agenda-dim-blocked-tasks t)
+ (org-agenda-custom-commands
+ '(("n" "Agenda and all TODOs"
+ ((agenda) (tags-todo "+soon")
+ (tags-todo "+shelve")
+ (tags-todo "+habit")
+ (todo "IDLE")
+ (tags-todo "-habit-shelve-soon-idle")))
+ ("r" "Refile entries" ((tags "+REFILE")))
+ ("i" "Idle Actions"
+ ((tags-todo "IDLE-READLIST-WATCH"
+ ((org-agenda-overriding-header "Idle Tasks")
+ (org-agenda-skip-function 'bh/skip-project-tasks)
+ (org-agenda-sorting-strategy
+ '(todo-state-down effort-up))))
+ (tags-todo "READLIST"
+ ((org-agenda-overriding-header "Idle Reading List")
+ (org-agenda-sorting-strategy
+ '(todo-state-down effort-up))))
+ (tags-todo "WATCH"
+ ((org-agenda-overriding-header "Things to Watch")
+ (org-agenda-skip-function 'bh/skip-project-tasks)
+ (org-agenda-sorting-strategy
+ '(todo-state-down effort-up))))))))
+ )
+(use-package ob-core
+ :custom
+ (org-confirm-babel-evaluate nil))
+(use-package org-screenshot)
+(use-package org-collector)
+(use-package ox)
+(use-package org-notmuch)
+(use-package org-expiry
+ :custom
+ (org-expiry-handler-function 'org-expiry-archive-subtree))
+(use-package org-habit)
+#+end_src
+#+begin_src emacs-lisp
+(use-package org-inlinetask)
+#+end_src
+=org-bullets= provides better headline bullets.
+Here is a list of nice ones: ◉, ○, ►, •. The default ones are ~'("◉" "○" "✸" "✿")~.
+#+begin_src emacs-lisp
+(use-package org-bullets
+ :ensure t
+ :custom (org-bullets-bullet-list '(" "))
+ :config (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
+#+end_src
+Use imagemagick and standalone class for latex preview.
+#+begin_src emacs-lisp
+(setq org-preview-latex-default-process 'imagemagick)
+(setq
+ org-format-latex-header
+"\\documentclass{standalone}
+\\usepackage[usenames]{color}
+[PACKAGES]
+[DEFAULT-PACKAGES]
+\\pagestyle{empty} % do not remove")
+#+end_src
+*** ox-reveal
+#+BEGIN_SRC emacs-lisp
+(use-package ox-reveal
+ :ensure t)
+(use-package reveal)
+(setq org-reveal-root (concat "file:///home/fpi/" "reveal.js"))
+;;(setq org-reveal-root "http://cdn.jsdelivr.net/reveal.js/3.0.0/")
+#+END_SRC
+
+*** Org-Capture
+#+BEGIN_SRC emacs-lisp
+(use-package org-capture
+ :custom (
+ (org-journal-file (format "~/sync/journal/%s.org" (nth 2 (calendar-current-date))))
+ (org-capture-templates
+ `(("j" "Journal")
+ ("jj" "Journal Entry (Link)"
+ entry
+ (file+olp+datetree
+ ,org-journal-file)
+ ;; "** %<%H:%M> %a\n %i%? \n%:description\n%:elfeed-entry-content\n%:elfeed-entry-date\n%:elfeed-entry-meta\n%:elfeed-entry-title\n%:elfeed-entry-enclosures\n%:elfeed-entry-tags" )
+ "** %<%H:%M> %a
+%i%?" )
+ ("je" "Journal Entry"
+ entry
+ (file+olp+datetree
+ ,org-journal-file)
+ "** %<%H:%M> %?
+%i" )
+
+
+
+ ;; ("a" "Appointment" entry (file "~/sync/a.org")
+ ;; "* %i%?%(and (org-id-get-create) nil)\n:PROPERTIES:\n:CREATED: %U%(when %a \"\n:SOURCE: %a\")\n:END:\n%^t")
+ ;; ("t" "Soonish task" entry (file "~/sync/refile.org")
+ ;; "* NEXT %?%(and (org-id-get-create) nil)\n:PROPERTIES:\n:CREATED: %U%(when %a \"\n:SOURCE: %a\")\n:END:\n%i")
+ ;; ("s" "Shelve something" entry (file+headline "~/sync/t.org" "Shelf")
+ ;; "* NEXT %?%(and (org-id-get-create) nil)\n:PROPERTIES:\n:CREATED: %U%(when %a \"\n:SOURCE: %a\")\n:END:\n%i")
+ ;; ;; ("r" "respond" entry (file "~/sync/refile.org")
+ ;; ;; "* NEXT Respond to %:from on %:subject\n:PROPERTIES:\n:CREATED: %U\n:END:\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
+ ;; ("r" "respond" entry (file "~/sync/refile.org")
+ ;; "* NEXT Respond to %:from on %:subject\n:PROPERTIES:\n:CREATED: %U\n:END:\n%a\n" :immediate-finish t)
+ ;; ("n" "note" entry (file "~/sync/refile.org")
+ ;; "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
+ ;; ("j" "Journal/Interruptions" entry (file+olp+datetree "~/sync/diary.org")
+ ;; "* %?\n%U\n" :clock-in t :clock-resume t)
+ ;; ("h" "Habit" entry (file "~/sync/refile.org")
+ ;; "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n")
+ ;; ("m" "Meeting" entry (file "~/sync/refile.org")
+ ;; "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
+ ;; ("p" "Phone call" entry (file "~/sync/refile.org")
+ ;; "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
+
+ ;; ("c" "Item to Current Clocked Task" item (clock)
+ ;; "%i%?" :empty-lines 1)
+ ;; ("K" "Kill-ring to Current Clocked Task" plain (clock)
+ ;; "%c" :immediate-finish t :empty-lines 1)
+
+ ;; ("p" "Gcal Appointment" entry (file "~/.emacs.d/gcal.org")
+ ;; "* %?\n%^T\n")
+
+ ;; ("z" "Zettel" entry (file "~/zettel.org")
+ ;; "* %i%? %(and (org-id-get-create) nil)
+ ;; :PROPERTIES:\n :CREATED: %u\n :END:\n ")
+
+ ;; ("l" "Ledger")
+ ;; ("lb" "Bank" plain (file ,(format "~/.personal/f/%s.ledger" (format-time-string "%Y")))
+ ;; ,my/org-ledger-card-template
+ ;; :empty-lines 1
+ ;; :immediate-finish t)
+ ;; ("lc" "Cash" plain (file ,(format "~/.personal/f/%s.ledger" (format-time-string "%Y")))
+ ;; ,my/org-ledger-cash-template
+ ;; :empty-lines 1
+ ;; :immediate-finish t)
+ )
+ )))
+#+END_SRC
+*** Ricing
+#+begin_src emacs-lisp
+(setq line-spacing 0.1)
+(setq header-line-format " ")
+;; (set-face-attribute 'header-line nil :height 50) ;; make buffer-local first
+
+;; side padding
+(lambda ()
+ (progn
+ (setq left-margin-width 2
+ right-margin-width 2)
+ (set-window-buffer nil (current-buffer))))
+
+;; try writeroom-mode
+#+end_src
+*** Org crypt
+A small function to toggle the encryption state of the current entry.
+#+begin_src emacs-lisp
+(use-package org-crypt
+ :config
+ (defun fpi/org-toggle-crypt-entry ()
+ "Encrypt/Decrypt current headline."
+ (interactive)
+ (require 'epg)
+ (when (eq major-mode 'org-mode)
+ (unless (org-before-first-heading-p)
+ (org-with-wide-buffer
+ (org-back-to-heading t)
+ (org-end-of-meta-data)
+ (if (looking-at-p "-----BEGIN PGP MESSAGE-----")
+ (org-decrypt-entry)
+ (org-encrypt-entry))))))
+ (define-key fpi/toggle-map "e" #'fpi/org-toggle-crypt-entry))
+#+end_src
+*** org-ref
+#+begin_src emacs-lisp
+(use-package org-ref
+ :ensure t
+ :custom
+ (org-ref-bibliography-notes "~/s/ma/notes.org")
+ (org-ref-default-bibliography '("~/s/ma/ma.bib"))
+ (org-ref-pdf-directory "~/s/ma/lit/"))
+#+end_src
+*** Todo settings
+- WAITING tasks are waiting on the completion of other tasks
+- NEXT tasks can be picked up
+- INPROGRESS are current tasks with time clocked
+- DONE are complete tasks
+- ICEBOX tasks are on ice for whatever reason
+
+TODO->DONE cycle is for habits.\\
+Idle states cover things to do for time in between, checking the
+inbox, reading news, …
+
+Phonecalls?
+
+#+BEGIN_SRC dot :file /tmp/todo.png
+digraph hierarch{
+ node [shape=box]
+ // Tasks, Projects
+ PLANNING -> NEXT, INPROGRESS, ICEBOX
+ WAITING -> NEXT -> INPROGRESS -> DONE, WAITING, ICEBOX
+ NEXT -> WAITING -> INPROGRESS, ICEBOX
+ NEXT -> ICEBOX, DONE
+
+ // stuff for idle time
+ IDLE -> IDLE
+ //NEXT -> DONE
+
+ // Phonecalls, Meetings
+ PHONE -> DONE, CANCELED
+ MEETING -> DONE, CANCELED
+}
+#+END_SRC
+
+#+RESULTS:
+[[file:/tmp/todo.png]]
+
+#+BEGIN_SRC emacs-lisp
+(setq org-todo-keywords '((sequence "PLANNING(p)" "NEXT(n)" "INPROGRESS(i)" "WAITING(w@/!)" "|" "ICEBOX(x@)" "DONE(d)")
+ (sequence "PHONE(P)" "MEETING(m)" "|" "CANCELLED(c)")
+ (sequence "TODO(t)" "|" "DONE(d)")
+ (sequence "IDLE(a)")))
+(setq org-use-fast-todo-selection t)
+
+
+(setq org-todo-keyword-faces
+ '(("NEXT" :foreground "light blue" :weight bold)
+ ("INPROGRESS" :foreground "burlywood" :weight bold)
+ ("DONE" :foreground "forest green" :weight bold)
+ ("WAITING" :foreground "orange" :weight bold)
+ ("ICEBOX" :foreground "orange" :weight normal)
+ ("CANCELLED" :foreground "forest green" :weight bold)
+ ("MEETING" :foreground "yellow" :weight bold)
+ ("PHONE" :foreground "yellow" :weight bold)
+ ("IDLE" :foreground "magenta" :weight bold)))
+#+END_SRC
+
+Switch a todo entry from NEXT to INPROGRESS when clocking in.
+#+begin_src emacs-lisp
+(setq org-clock-in-switch-to-state 'bh/clock-in-to-inprogress)
+
+(defun bh/clock-in-to-inprogress (kw)
+ "Switch a task from NEXT to INPROGRESS when clocking in.
+Skips capture tasks, projects, and subprojects.
+Switch projects and subprojects from NEXT back to TODO"
+ (when (not (and (boundp 'org-capture-mode) org-capture-mode))
+ (cond
+ ((and (member (org-get-todo-state) (list "NEXT"))
+ (bh/is-task-p))
+ "INPROGRESS")
+ ((and (member (org-get-todo-state) (list "NEXT"))
+ (bh/is-project-p))
+ "INPROGRESS"))))
+#+end_src
+
+**** State changes
+Track state changes to done
+#+begin_src emacs-lisp
+(setq org-log-done 'time)
+#+end_src
+*** Toggle drawer visibility
+#+begin_src emacs-lisp
+(setq fpi/org-meta-heading-info-store nil)
+(make-variable-buffer-local 'fpi/org-meta-heading-info-store)
+(defun mw-org-hide-meta-heading-info ()
+ "Hide meta data following headings."
+ (interactive)
+ (org-save-outline-visibility t
+ (save-excursion
+ ;; (widen)
+ ;; (org-cycle '(64))
+ ;; (org-show-all '(drawers)) ; expand all props before make invisible to avoid ellipses.
+ (goto-char (point-min))
+ (unless (org-at-heading-p) (outline-next-heading))
+ (while (not (eobp))
+ (let ((beg (1+ (progn (end-of-line) (point))))
+ (end (1- (progn (org-end-of-meta-data t) (point)))))
+ (when (< beg end)
+ (push (make-overlay beg end) fpi/org-meta-heading-info-store)
+ (overlay-put (car fpi/org-meta-heading-info-store) 'invisible t)))
+ (when (not (org-at-heading-p))
+ (outline-next-heading))))))
+
+(defun mw-org-show-meta-info-lines ()
+ "Show meta info."
+ (interactive)
+ (mapc #'delete-overlay fpi/org-meta-heading-info-store)
+ (setq fpi/org-meta-heading-info-store nil))
+
+
+(defun fpi/org-toggle-meta-info-lines ()
+ (interactive)
+ (if fpi/org-meta-heading-info-store
+ (mw-org-show-meta-info-lines)
+ (mw-org-hide-meta-heading-info)))
+(define-key fpi/toggle-map "m" #'fpi/org-toggle-meta-info-lines)
+#+end_src
+*** Workflow
+My current workflow is largely inspired by [[http://doc.rix.si/cce/cce-org.html][Ryan Rix's]] and [[http://doc.norang.ca/org-mode.html][Bernt
+Hansen's]] configs.
+
+First set the ids of some default and often referenced tasks.
+#+begin_src emacs-lisp
+(setq fpi/organization-task-id "52ac704f-9cc4-4291-9721-aa3cd3b34fae")
+(setq fpi/lunch-task "e3d95e3b-416d-4265-835b-1ba57aa84704"
+ fpi/break-task "fede843d-02fc-4cdd-8a63-91905e727dab"
+ ;; fpi/prep-task "9d6279b8-c921-46e7-8ee4-b4d367dca1e0"
+ fpi/morning-flow "2bec1c12-2ee5-4f50-9eac-a018ca081d7d"
+ )
+#+end_src
+
+This hydra contains most parts of my current workflow. It has
+everything from going to certain headlines, clocking time and
+capturing notes.
+#+begin_src emacs-lisp
+(defhydra hydra-workflow (:hint nil)
+ "
+Searching ----------> Do stuff --------> Do Stuff 2 -------> Workflow ---------------> Nar/Wid ------------------>
+_i_: In-file headings _d_: Clock in _c_: Capture _m_: Prep meeting notes _n_: Narrow to Subtree
+_h_: All headings _e_: Email _<_: Last Task _M_: Mail meeting notes _w_: Widen
+_a_: Select an Agenda _l_: Lunch _j_: Jump Clock _B_: BBDB search _r_: Narrow to region
+_g_: Go to active clock _b_: Break _P_: Insert BBDB _c_: Capture _t_: Show TODO Entries
+ _k_: Morning prep _z_: Capture Note _s_: *scratch*
+ _o_: Clock out _S_: Org Scratch
+"
+ ("<" bh/clock-in-last-task)
+ ("a" org-agenda :exit t)
+ ("B" bbdb)
+ ("b" rrix/clock-in-break-task) ;; TODO
+ ("c" org-capture)
+ ("d" bh/punch-in)
+ ("e" rrix/clock-in-email-task) ;; TODO
+ ("g" org-clock-goto)
+ ("h" cce/org-goto-agenda-heading)
+ ("i" org-goto)
+ ("j" (progn
+ (interactive)
+ (setq current-prefix-arg '(4))
+ (call-interactively 'org-clock-in)))
+ ("k" rrix/clock-morning-prep)
+ ("l" rrix/clock-in-lunch-task)
+ ("M" bh/mail-subtree) ;; TODO ;; checkout org-mime
+ ("m" bh/prepare-meeting-notes) ;; TODO
+ ("n" bh/narrow-to-subtree) ;; TODO
+ ("o" bh/punch-out)
+ ("P" bh/phone-call) ;; TODO
+ ("r" narrow-to-region) ;; neccessary?
+ ("S" bh/make-org-scratch) ;; neccessary?
+ ("s" bh/switch-to-scratch) ;; neccessary?
+ ("t" bh/org-todo) ;; neccessary?
+ ("w" bh/widen) ;; neccessary?
+ ("z" cce/note-to-clock))
+
+(define-key fpi-map (kbd "f") 'hydra-workflow/body)
+#+end_src
+Basic flow:
+1. Start your work by clocking in with ~bh/punch-in~. This sets a
+ predefined "Organizational" entry as default clocking entry and
+ clocks you in on it.
+2. To start planning your day go to "Morning prep" or directly start
+ working on something and clock in on it using either "Jump clock"
+ or ~org-clock-in~ normally.
+3. Do stuff. Change clocks, capture stuff, take notes, take breaks, …
+4. At the end of the day clock out with ~bh/punch-out~.
+
+While punched in org continues to clock your time. Each time you clock
+out of an entry it clocks you in on the parent entry or the default
+organizational task.
+#+begin_src emacs-lisp
+(defun bh/clock-out-maybe ()
+ (when (and bh/keep-clock-running
+ (not org-clock-clocking-in)
+ (marker-buffer org-clock-default-task)
+ (not org-clock-resolving-clocks-due-to-idleness))
+ (rrix/clock-in-sibling-or-parent-task)))
+
+(add-hook 'org-clock-out-hook 'bh/clock-out-maybe 'append)
+
+(defun rrix/clock-in-sibling-or-parent-task ()
+ "Move point to the parent (project) task if any and clock in"
+ (let ((parent-task)
+ (parent-task-is-flow)
+ (sibling-task)
+ (curpoint (point)))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (outline-back-to-heading)
+ (org-cycle)
+ (while (and (not parent-task) (org-up-heading-safe))
+ (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
+ (setq parent-task (point))))
+ (goto-char curpoint)
+ (while (and (not sibling-task) (org-get-next-sibling))
+ (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
+ (setq sibling-task (point))))
+ (setq parent-task-is-flow (cdr (assoc "FLOW"
+ (org-entry-properties parent-task))))
+ (cond ((and sibling-task
+ parent-task-is-flow)
+ (org-with-point-at sibling-task
+ (org-clock-in))
+ (org-clock-goto))
+ (parent-task
+ (org-with-point-at parent-task
+ (org-clock-in))
+ (org-clock-goto))
+ (t (when bh/keep-clock-running
+ (bh/clock-in-default-task))))))))
+(defun bh/clock-in-default-task ()
+ (save-excursion
+ (org-with-point-at org-clock-default-task
+ (org-clock-in)
+ (org-clock-goto))))
+#+end_src
+Define the punch-in and punch-out functions.
+#+begin_src emacs-lisp
+(defun bh/punch-in (arg)
+ (interactive "p")
+ (setq bh/keep-clock-running t)
+ (if (equal major-mode 'org-agenda-mode)
+ (let* ((marker (org-get-at-bol 'org-hd-marker))
+ (tags (org-with-point-at marker (org-get-tags-at))))
+ (if (and (eq arg 4) tags)
+ (org-agenda-clock-in '(16))
+ (bh/clock-in-organization-task-as-default)))
+ (save-restriction
+ (widen)
+ (if (and (equal major-mode 'org-mode) (not (org-before-first-heading-p)) (eq arg 4))
+ (org-clock-in '(16))
+ (bh/clock-in-organization-task-as-default)))))
+
+(defun bh/clock-in-organization-task-as-default ()
+ (interactive)
+ (org-with-point-at (org-id-find fpi/organization-task-id 'marker)
+ (org-clock-in '(16))))
+
+(defun bh/punch-out ()
+ (interactive)
+ (setq bh/keep-clock-running nil)
+ (when (org-clock-is-active)
+ (org-clock-out))
+ (org-agenda-remove-restriction-lock))
+#+end_src
+Clocking into a task by id and some default clock-in functions.
+The separate functions are needed so they can be used in the hydra.
+#+begin_src emacs-lisp
+(defun bh/clock-in-task-by-id (id)
+ "Clock in a task by id"
+ (org-with-point-at (org-id-find id 'marker)
+ (org-clock-in nil)))
+(setq org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id)
+
+(defun rrix/clock-in-lunch-task ()
+ (interactive)
+ (bh/clock-in-task-by-id fpi/lunch-task)
+ (org-clock-goto)
+ (org-add-note))
+(defun rrix/clock-in-break-task ()
+ (interactive)
+ (bh/clock-in-task-by-id fpi/break-task)
+ (org-agenda nil "i"))
+
+(defun rrix/clock-morning-prep ()
+ (interactive)
+ (bh/clock-in-task-by-id fpi/morning-flow)
+ (org-clock-goto)
+ ;; (bh/narrow-to-subtree)
+ )
+#+end_src
+Function to clock into the last task.
+#+begin_src emacs-lisp
+(defun bh/clock-in-last-task (arg)
+ "Clock in the interrupted task if there is one
+Skip the default task and get the next one.
+A prefix arg forces clock in of the default task."
+ (interactive "p")
+ (let ((clock-in-to-task
+ (cond
+ ((eq arg 4) org-clock-default-task)
+ ((and (org-clock-is-active)
+ (equal org-clock-default-task (cadr org-clock-history)))
+ (caddr org-clock-history))
+ ((org-clock-is-active) (cadr org-clock-history))
+ ((equal org-clock-default-task (car org-clock-history)) (cadr org-clock-history))
+ (t (car org-clock-history)))))
+ (widen)
+ (org-with-point-at clock-in-to-task
+ (org-clock-in nil))))
+#+end_src
+Add a note to the current clock
+#+begin_src emacs-lisp
+(defun cce/note-to-clock ()
+ "Add a note to the currently clocked task."
+ (interactive)
+ (save-window-excursion
+ (org-clock-goto)
+ (org-add-note)))
+#+END_SRC
+Go to any heading in an agenda file (or more specifically in any file
+included in 'org-refile-targets)
+#+begin_src emacs-lisp
+(defun cce/org-goto-agenda-heading (&optional prompt)
+ (interactive)
+ (let* ((location (org-refile-get-location (or prompt "Goto")))
+ (file (cadr location))
+ (marker (car (last location))))
+ (find-file file)
+ (goto-char marker)
+ (org-show-context)
+ (current-buffer)))
+#+END_SRC
+
+**** Filter functions
+Various functions to determine if the current entry is a task, a
+project or neither.
+#+begin_src emacs-lisp
+(defun bh/is-task-p ()
+ "Any task with a todo keyword and no subtask"
+ (save-restriction
+ (widen)
+ (let ((has-subtask)
+ (subtree-end (save-excursion (org-end-of-subtree t)))
+ (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
+ (save-excursion
+ (forward-line 1)
+ (while (and (not has-subtask)
+ (< (point) subtree-end)
+ (re-search-forward "^\*+ " subtree-end t))
+ (when (member (org-get-todo-state) org-todo-keywords-1)
+ (setq has-subtask t))))
+ (and is-a-task (not has-subtask)))))
+(defun bh/is-project-p ()
+ "Any task with a todo keyword subtask"
+ (save-restriction
+ (widen)
+ (let ((has-subtask)
+ (subtree-end (save-excursion (org-end-of-subtree t)))
+ (is-a-task (member (nth 2 (org-heading-components)) org-todo-keywords-1)))
+ (save-excursion
+ (forward-line 1)
+ (while (and (not has-subtask)
+ (< (point) subtree-end)
+ (re-search-forward "^\*+ " subtree-end t))
+ (when (member (org-get-todo-state) org-todo-keywords-1)
+ (setq has-subtask t))))
+ (and is-a-task has-subtask))))
+(defun bh/find-project-task ()
+ "Move point to the parent (project) task if any"
+ (save-restriction
+ (widen)
+ (let ((parent-task (save-excursion (org-back-to-heading 'invisible-ok) (point))))
+ (while (org-up-heading-safe)
+ (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
+ (setq parent-task (point))))
+ (goto-char parent-task)
+ parent-task)))
+(defun bh/is-project-subtree-p ()
+ "Any task with a todo keyword that is in a project subtree.
+Callers of this function already widen the buffer view."
+ (let ((task (save-excursion (org-back-to-heading 'invisible-ok)
+ (point))))
+ (save-excursion
+ (bh/find-project-task)
+ (if (equal (point) task)
+ nil
+ t))))
+(defun bh/skip-project-tasks ()
+ "Show non-project tasks.
+Skip project and sub-project tasks, habits, and project related tasks."
+ (save-restriction
+ (widen)
+ (let* ((subtree-end (save-excursion (org-end-of-subtree t))))
+ (cond
+ ((bh/is-project-p)
+ subtree-end)
+ ((org-is-habit-p)
+ subtree-end)
+ ((bh/is-project-subtree-p)
+ subtree-end)
+ (t
+ nil)))))
+#+end_src
+** Shell
+#+begin_src emacs-lisp
+(use-package shell
+ :commands (shell shell-command))
+#+end_src
+To open and hide a shell quickly I use =shell-pop=.
+#+begin_src emacs-lisp
+(use-package shell-pop
+ :ensure t
+ :bind (("C-!" . shell-pop))
+ :custom
+ (shell-pop-shell-type (quote ("shell" "*shell*" (lambda nil (shell)))))
+ (shell-pop-term-shell "/bin/bash"))
+#+end_src
+** Proced
+Built-in process monitor.
+#+BEGIN_SRC emacs-lisp
+(use-package proced
+ :commands proced
+ :custom
+ (proced-toggle-auto-update t)
+ (proced-auto-update-interval 1)
+ (proced-descend t)
+ (proced-filter 'user))
+#+END_SRC
+** Pass
+Emacs interface & mode for the password manager [[https://www.passwordstore.org/][pass/password-store]].
+The emacs =pass= package provides a nice buffer listing all stored
+passwords files and also a good mode to edit them. The
+=password-store= package provides functions to copy and edit
+individual password files. I'm not sure which one I'll end up using. I
+bind a small function to copy a password or a field if called with a
+prefix to my custom keymap.
+#+BEGIN_SRC emacs-lisp
+(use-package pass
+ :ensure t)
+#+END_SRC
+#+begin_src emacs-lisp
+(use-package password-store
+ :ensure t
+ :commands (password-store-copy
+ password-store-edit
+ password-store-insert)
+ :custom (password-store-time-before-clipboard-restore 30)
+ :config (defun fpi/password-store-copy-pass-or-field (&optional arg)
+ (interactive "P")
+ (if arg
+ (call-interactively 'password-store-copy-field)
+ (call-interactively 'password-store-copy)))
+ :bind (:map fpi-map ("p" . fpi/password-store-copy-pass-or-field)))
+#+end_src
+*** auth-password-store/auth-source-pass
+A password-store backend for the Emacs [[info:auth#Top][auth-source]] library which
+normally uses the =~/.authinfo= file. For correct setup of
+password-store files see [[https://rkm.id.au/2015/07/07/integrating-password-store-with-emacs/#fnr.1][here]] and in its [[https://github.com/DamienCassou/auth-password-store][github repo]]. For remote hosts
+they need to contain the host and user info. The port is most of the
+time inferred. The filename must also include the hostname. For
+multiple users on the same host either use =user1@host.gpg= and
+=user2@host.gpg= or =host/user1.gpg=, =host/user2.gpg=.
+#+CAPTION: Example =pass= entry for use with =auth-source-pass=
+#+begin_src pass-view
+<password>
+host: localhost
+user: root
+#+end_src
+
+#+BEGIN_SRC emacs-lisp
+(use-package auth-source-pass
+ :ensure t
+ :config (auth-source-pass-enable))
+#+END_SRC
+** Ledger
+Here is a good [[https://www.reddit.com/r/emacs/comments/8x4xtt][reddit thread]] about using ledger
+#+BEGIN_SRC emacs-lisp
+(use-package ledger-mode
+ :ensure t
+ :init (setq ledger-clear-whole-transactions 1)
+ :mode "\\.dat\\'"
+ "\\.ledger\\'")
+;; (use-package flycheck-ledger
+;; :ensure t
+;; :after ledger-mode)
+#+END_SRC
+
+I also use some =org-capture= templates to quickly capture
+transactions. They are defined in [[file:emacs-private.el.gpg::4][emacs-private.el.gpg]].
+
+** Elfeed
+
+#+BEGIN_SRC emacs-lisp
+(use-package elfeed
+ :ensure t
+ :init
+ (setq elfeed-db-directory "~/.emacs.d/elfeed")
+ :custom
+ (elfeed-enclosure-default-dir "~/Downloads")
+ (elfeed-search-clipboard-type 'CLIPBOARD)
+ (elfeed-search-title-max-width (current-fill-column))
+ (elfeed-search-title-min-width 30)
+ (elfeed-search-trailing-width 16)
+ (elfeed-show-truncate-long-urls t)
+ (elfeed-show-unique-buffers t)
+ :config
+ (defalias 'elfeed-toggle-star
+ (elfeed-expose #'elfeed-search-toggle-all 'star))
+ (defun fpi/elfeed-search-show-entry-in-bg (entry)
+ (interactive (list (elfeed-search-selected :ignore-region)))
+ (elfeed-search-show-entry entry)
+ (bury-buffer))
+ :bind
+ (:map elfeed-search-mode-map
+ ("m" . elfeed-toggle-star)
+ ("o" . fpi/elfeed-search-show-entry-in-bg)
+ ("j" . mz/make-and-run-elfeed-hydra)
+ ))
+#+END_SRC
+Some feeds I want to automatically mark as read. This way I can look
+at them whenever I want to, but they don't show up in the unread search.
+#+BEGIN_SRC emacs-lisp
+(defun elfeed-mark-all-as-read ()
+ (interactive)
+ (save-excursion
+ (mark-whole-buffer)
+ (elfeed-search-untag-all-unread)))
+(defun elfeed-mark-search-read (search-string)
+ "Mark all results of SEARCH-STRING as read."
+ (interactive)
+ (elfeed)
+ (let ((filter elfeed-search-filter))
+ (elfeed-search-set-filter search-string)
+ (elfeed-mark-all-as-read)
+ (elfeed-search-set-filter filter)
+ (bury-buffer)))
+#+END_SRC
+Now execute this whenever feeds are fetched
+#+BEGIN_SRC emacs-lisp
+(defun my/elfeed-mark-read (entry)
+ "Tag ENTRY as read if it contains certain tags"
+ (when (member 'tRaffic (elfeed-entry-tags entry))
+ (elfeed-untag entry 'unread)
+ ))
+(add-hook 'elfeed-new-entry-hook 'my/elfeed-mark-read)
+#+END_SRC
+*** Elfeed Org
+Load elfeed org after adding ~my/elfeed-mark-read~ to
+~elfeed-new-entry-hook~. New entries need to get tagged by elfeed org
+first before marking them unread based on their tag.
+#+BEGIN_SRC emacs-lisp
+(use-package elfeed-org
+ :ensure t
+ :config
+ (elfeed-org)
+ (setq rmh-elfeed-org-files (list "~/.emacs.d/elfeed.org")))
+#+END_SRC
+*** Hydra
+This creates a smart hydra based on all available tags (see
+https://cestlaz.github.io/posts/using-emacs-31-elfeed-3/).
+#+BEGIN_SRC emacs-lisp
+(defun z/hasCap (s) ""
+ (let ((case-fold-search nil))
+ (string-match-p "[[:upper:]]" s)
+ ))
+(defun z/get-hydra-option-key (s)
+ "returns single upper case letter (converted to lower) or first"
+ (interactive)
+ (let ( (loc (z/hasCap s)))
+ (if loc
+ (downcase (substring s loc (+ loc 1)))
+ (substring s 0 1)
+ )))
+
+;; (active blogs cs eDucation emacs local misc sports star tech unread webcomics)
+(defun mz/make-elfeed-cats (tags)
+ "Returns a list of lists. Each one is line for the hydra configuratio in the form
+ (c function hint)"
+ (interactive)
+ (mapcar (lambda (tag)
+ (let* (
+ (tagstring (symbol-name tag))
+ (c (z/get-hydra-option-key tagstring))
+ )
+ (list c (append '(elfeed-search-set-filter) (list (format "@6-months-ago +%s" tagstring) ))tagstring )))
+ tags))
+(defmacro mz/make-elfeed-hydra ()
+ `(defhydra mz/hydra-elfeed ()
+ "filter"
+ ,@(mz/make-elfeed-cats (elfeed-db-get-all-tags))
+ ("*" (elfeed-search-set-filter "@6-months-ago +star") "Starred")
+ ("M" elfeed-toggle-star "Mark")
+ ("A" (elfeed-search-set-filter "@6-months-ago") "All")
+ ("T" (elfeed-search-set-filter "@1-day-ago") "Today")
+ ("Q" bjm/elfeed-save-db-and-bury "Quit Elfeed" :color blue)
+ ("q" nil "quit" :color blue)
+ ))
+(defun mz/make-and-run-elfeed-hydra ()
+ ""
+ (interactive)
+ (mz/make-elfeed-hydra)
+ (mz/hydra-elfeed/body))
+#+END_SRC
+
+*** Youtube to Vlc
+Open a entry with vlc
+#+BEGIN_SRC emacs-lisp
+(defface elfeed-youtube
+ '((t :foreground "#a9f"))
+ "Marks YouTube videos in Elfeed."
+ :group 'elfeed)
+
+(push '(youtube elfeed-youtube)
+ elfeed-search-face-alist)
+
+(defun elfeed-show-vlc ()
+ "Play the current entry with vlc."
+ (interactive)
+ (pop-to-buffer (shell-command (format "vlc %s &" (elfeed-entry-link elfeed-show-entry)))))
+
+(defun elfeed-search-vlc ()
+ "Play the current entry with vlc."
+ (interactive)
+ (let ((entries (elfeed-search-selected)))
+ (dolist (entry entries)
+ (shell-command (format "vlc %s &" (elfeed-entry-link entry)))
+ (elfeed-untag entry 'unread)
+ (elfeed-search-update-entry entry)
+ (unless (use-region-p) (forward-line)))))
+
+(define-key elfeed-show-mode-map "v" 'elfeed-show-vlc)
+(define-key elfeed-search-mode-map "v" 'elfeed-search-vlc)
+#+END_SRC
+** Plotting data
+
+=gnuplot= is a great option for plotting any kind of data, no matter
+where it comes from.
+
+#+begin_src emacs-lisp
+(use-package gnuplot
+ :ensure t)
+(use-package gnuplot-mode
+ :ensure t)
+#+end_src
+** HTML renderer
+=shr= is the /Simple HTML renderer/ library, which Emacs uses to
+display HTML. It is used by elfeed, notmuch and a variety of other
+tools.
+
+- Open links in =eww= instead of the system browser
+- Limit the entry width to the same as =fill-column=
+- Limit the size of images
+
+#+BEGIN_SRC emacs-lisp
+ ;; (lambda (url &rest args)
+ ;; (if args
+ ;; (browse-url-default-browser url)
+ ;; (eww-browse-url url)))
+
+(use-package shr
+ :commands (eww eww-browse-url)
+ :custom
+ (browse-url-browser-function 'eww-browse-url)
+ (browse-url-generic-program "firefox")
+ (shr-external-browser 'browse-url-generic)
+ (shr-width (current-fill-column))
+ (shr-max-image-proportion 0.4)
+ (shr-use-colors nil)
+ (shr-use-fonts nil) )
+#+END_SRC
+
+Support for HTML code blocks with proper syntax highlighting. See [[https://github.com/xuchunyang/shr-tag-pre-highlight.el][its GitHub project page]].
+#+BEGIN_SRC emacs-lisp
+(use-package shr-tag-pre-highlight
+ :ensure t
+ :after shr
+ :config
+ (add-to-list 'shr-external-rendering-functions
+ '(pre . shr-tag-pre-highlight))
+ (when (version< emacs-version "26")
+ (with-eval-after-load 'eww
+ (advice-add 'eww-display-html :around
+ 'eww-display-html--override-shr-external-rendering-functions))))
+#+END_SRC
+** Email
+For the setup of external mail specific programs see [[file:mail.org]].
+*** Sending mail
+I use =msmtp= to send mail.
+
+- Infer the =envelope-from= header and therefore the adress to send
+ the mail from based on the /From/ header argument.
+- Add a =-f username= flag to the sendmail command line call, as msmtp
+ needs it.
+- Enable footnote-mode when entering message-mode.
+
+#+begin_src emacs-lisp
+(use-package message
+ :custom
+ (message-send-mail-function 'message-send-mail-with-sendmail)
+ (message-sendmail-envelope-from 'header)
+ (message-sendmail-f-is-evil nil)
+ (message-kill-buffer-on-exit t)
+ :hook (message-mode . footnote-mode))
+(use-package sendmail
+ :custom
+ (send-mail-function 'smtpmail-send-it)
+ (sendmail-program "/usr/bin/msmtp")
+ (mail-specify-envelope-from t)
+ (mail-envelope-from 'header))
+#+end_src
+
+*** MUA/Notmuch
+
+After using =mu4e= as my mail user agent for a while I switched to
+=notmuch=. I like the tagging based approach and the easy & great
+searching.
+
+- Show newest messages first.
+- Set archive tags to remove/set upon archiving a mail with =a=.
+- Setup some saved searched.
+- Set my signature (defined in [[file:emacs-private.el.gpg::13][emacs-private.el.gpg]]).
+- Set the FCC directories where sent mails should be saved to (also
+ defined in [[file:emacs-private.el.gpg::20][emacs-private.el.gpg]].).
+- Setup format=flowed
+#+BEGIN_SRC emacs-lisp
+(use-package notmuch
+ :ensure t
+ :custom
+ (notmuch-search-oldest-first nil)
+ (notmuch-archive-tags '("-inbox" "-td" "+archived"))
+ (notmuch-saved-searches
+ '((:name "inbox" :query "tag:inbox" :key "i")
+ (:name "unread (inb)" :query "(tag:unread and tag:inbox) or tag:td" :key "u")
+ (:name "unread (tot)" :query "tag:unread and date:6month..0month" :key "U")
+ (:name "flagged" :query "tag:flagged" :key "f")
+ (:name "sent" :query "tag:sent" :key "s")
+ (:name "drafts" :query "tag:draft" :key "d")
+ (:name "all mail" :query "*" :key "a")
+ (:name "tr" :query "tag:tr and date:6month..0month" :key "t")))
+ (message-signature private/message-signature)
+ (notmuch-fcc-dirs private/notmuch-fcc-dirs))
+#+END_SRC
+**** f=f
+Hard new lines are identified using a ~hard~ text property and
+displayed as =⏎=. We need to make sure all newlines inserted by
+message initialization (signature, ...) also have this text property.
+For now I use this bad code.
+#+BEGIN_SRC emacs-lisp
+(use-package messages-are-flowing
+ :ensure t
+ :config (add-hook 'message-mode-hook 'messages-are-flowing-use-and-mark-hard-newlines))
+(defun message-insert-signature (&optional force)
+ (interactive)
+ (goto-char (point-max))
+ (let ((point (point)))
+ (message-insert-signature-original force)
+ (goto-char point)
+ (while (search-forward "\n" nil t)
+ (set-hard-newline-properties (- (point) 1) (point)))))
+
+(defun message-insert-signature-original (&optional force)
+ "Insert a signature. See documentation for variable `message-signature'. "
+ (interactive (list 0))
+ (let* ((signature
+ (cond
+ ((and (null message-signature)
+ (eq force 0))
+ (save-excursion
+ (goto-char (point-max))
+ (not (re-search-backward message-signature-separator nil t))))
+ ((and (null message-signature)
+ force)
+ t)
+ ((functionp message-signature)
+ (funcall message-signature))
+ ((listp message-signature)
+ (eval message-signature))
+ (t message-signature)))
+ signature-file)
+ (setq signature
+ (cond ((stringp signature)
+ signature)
+ ((and (eq t signature) message-signature-file)
+ (setq signature-file
+ (if (and message-signature-directory
+ ;; don't actually use the signature directory
+ ;; if message-signature-file contains a path.
+ (not (file-name-directory
+ message-signature-file)))
+ (expand-file-name message-signature-file
+ message-signature-directory)
+ message-signature-file))
+ (file-exists-p signature-file))))
+ (when signature
+ (goto-char (point-max))
+ ;; Insert the signature.
+ (unless (bolp)
+ (newline))
+ (when message-signature-insert-empty-line
+ (newline))
+ (insert "-- ")
+ (newline)
+ (if (eq signature t)
+ (insert-file-contents signature-file)
+ (insert signature))
+ (goto-char (point-max))
+ (or (bolp) (newline)))))
+#+END_SRC
+** Context aware hydra
+[[https://dfeich.github.io/www/org-mode/emacs/2018/05/10/context-hydra.html][dfeich]] has a nice post on this. Basically it launches a specific hydra
+based on the current mode and context around point.
+#+BEGIN_SRC emacs-lisp
+(defun dfeich/context-hydra-launcher ()
+ "A launcher for hydras based on the current context."
+ (interactive)
+ (cl-case major-mode
+ ((org-mode org-journal-mode)
+ (let* ((elem (org-element-context))
+ (etype (car elem))
+ (type (org-element-property :type elem)))
+ (cl-case etype
+ (headline (jmm/org-edna-hydra/body))
+ (src-block (hydra-babel-helper/body))
+ (link (hydra-org-link-helper/body))
+ ((table-row table-cell) (hydra-org-table-helper/body) )
+ (t (message "No specific hydra for %s/%s" etype type)
+ (hydra-org-default/body)))))
+ ('bibtex-mode (org-ref-bibtex-hydra/body))
+ ('ibuffer-mode (hydra-ibuffer-main/body))
+ (t (message "No hydra for this major mode: %s" major-mode))))
+
+;;; *** org mode hydras
+(defhydra hydra-org-default (:color pink :hint nil)
+ "
+Org default hydra
+
+_l_ insert template from last src block
+_s_ insert src block ref with helm
+
+_q_ quit
+"
+ ("l" fpi/copy-last-src-block-head :color blue)
+ ("s" helm-lib-babel-insert :color blue)
+ ("q" nil :color blue))
+
+
+(defhydra hydra-org-link-helper (:color pink :hint nil)
+ "
+org link helper
+_b_ backward slurp _f_ forward slurp _n_ next link
+_m_ backward barf _g_ forward barf _p_ previous link
+_t_ terminal at path
+
+_q_ quit
+"
+ ("b" org-link-edit-backward-slurp)
+ ("f" org-link-edit-forward-slurp)
+ ("m" org-link-edit-backward-barf)
+ ("g" org-link-edit-forward-barf)
+ ("n" org-next-link)
+ ("p" org-previous-link)
+ ("t" fpi/gnome-terminal-at-link :color blue)
+ ("q" nil :color blue))
+
+(defhydra hydra-org-table-helper (:color pink :hint nil)
+ "
+org table helper
+_r_ recalculate _w_ wrap region _c_ toggle coordinates
+_i_ iterate table _t_ transpose _D_ toggle debugger
+_B_ iterate buffer _E_ export table _d_ edit field
+_e_ eval formula _s_ sort lines
+
+_q_ quit
+"
+ ("E" org-table-export :color blue)
+ ("s" org-table-sort-lines)
+ ("d" org-table-edit-field)
+ ("e" org-table-eval-formula)
+ ("r" org-table-recalculate)
+ ("i" org-table-iterate)
+ ("B" org-table-iterate-buffer-tables)
+ ("w" org-table-wrap-region)
+ ("D" org-table-toggle-formula-debugger)
+ ("t" org-table-transpose-table-at-point)
+ ("c" org-table-toggle-coordinate-overlays :color blue)
+ ("q" nil :color blue))
+
+(defhydra hydra-babel-helper (:color pink :hint nil)
+ "
+org babel src block helper functions
+_n_ next _i_ info _I_ insert header
+_p_ prev _c_ check
+_h_ goto head _E_ expand
+^ ^ _s_ split
+_q_ quit _r_ remove result _e_ examplify region
+
+"
+ ("i" org-babel-view-src-block-info)
+ ("I" org-babel-insert-header-arg)
+ ("c" org-babel-check-src-block :color blue)
+ ("s" org-babel-demarcate-block :color blue)
+ ("n" org-babel-next-src-block)
+ ("p" org-babel-previous-src-block)
+ ("E" org-babel-expand-src-block :color blue)
+ ("e" org-babel-examplify-region :color blue)
+ ("r" org-babel-remove-result :color blue)
+ ("h" org-babel-goto-src-block-head)
+ ("q" nil :color blue))
+
+
+;;; *** ibuffer hydra
+;; from https://github.com/abo-abo/hydra/wiki/Ibuffer
+(defhydra hydra-ibuffer-main (:color pink :hint nil)
+ "
+ ^Navigation^ | ^Mark^ | ^Actions^ | ^View^
+-^----------^-+-^----^--------+-^-------^--------+-^----^-------
+ _p_: ʌ | _m_: mark | _D_: delete | _g_: refresh
+ _RET_: visit | _u_: unmark | _S_: save | _s_: sort
+ _n_: v | _*_: specific | _a_: all actions | _/_: filter
+-^----------^-+-^----^--------+-^-------^--------+-^----^-------
+"
+ ("n" ibuffer-forward-line)
+ ("RET" ibuffer-visit-buffer :color blue)
+ ("p" ibuffer-backward-line)
+
+ ("m" ibuffer-mark-forward)
+ ("u" ibuffer-unmark-forward)
+ ("*" hydra-ibuffer-mark/body :color blue)
+
+ ("D" ibuffer-do-delete)
+ ("S" ibuffer-do-save)
+ ("a" hydra-ibuffer-action/body :color blue)
+
+ ("g" ibuffer-update)
+ ("s" hydra-ibuffer-sort/body :color blue)
+ ("/" hydra-ibuffer-filter/body :color blue)
+
+ ("o" ibuffer-visit-buffer-other-window "other window" :color blue)
+ ("q" nil "quit" :color blue))
+
+(defhydra hydra-ibuffer-mark (:color teal :columns 5
+ :after-exit (hydra-ibuffer-main/body))
+ "Mark"
+ ("*" ibuffer-unmark-all "unmark all")
+ ("M" ibuffer-mark-by-mode "mode")
+ ("m" ibuffer-mark-modified-buffers "modified")
+ ("u" ibuffer-mark-unsaved-buffers "unsaved")
+ ("s" ibuffer-mark-special-buffers "special")
+ ("r" ibuffer-mark-read-only-buffers "read-only")
+ ("/" ibuffer-mark-dired-buffers "dired")
+ ("e" ibuffer-mark-dissociated-buffers "dissociated")
+ ("h" ibuffer-mark-help-buffers "help")
+ ("z" ibuffer-mark-compressed-file-buffers "compressed")
+ ("b" hydra-ibuffer-main/body "back" :color blue))
+
+(defhydra hydra-ibuffer-action (:color teal :columns 4
+ :after-exit
+ (if (eq major-mode 'ibuffer-mode)
+ (hydra-ibuffer-main/body)))
+ "Action"
+ ("A" ibuffer-do-view "view")
+ ("E" ibuffer-do-eval "eval")
+ ("F" ibuffer-do-shell-command-file "shell-command-file")
+ ("I" ibuffer-do-query-replace-regexp "query-replace-regexp")
+ ("H" ibuffer-do-view-other-frame "view-other-frame")
+ ("N" ibuffer-do-shell-command-pipe-replace "shell-cmd-pipe-replace")
+ ("M" ibuffer-do-toggle-modified "toggle-modified")
+ ("O" ibuffer-do-occur "occur")
+ ("P" ibuffer-do-print "print")
+ ("Q" ibuffer-do-query-replace "query-replace")
+ ("R" ibuffer-do-rename-uniquely "rename-uniquely")
+ ("T" ibuffer-do-toggle-read-only "toggle-read-only")
+ ("U" ibuffer-do-replace-regexp "replace-regexp")
+ ("V" ibuffer-do-revert "revert")
+ ("W" ibuffer-do-view-and-eval "view-and-eval")
+ ("X" ibuffer-do-shell-command-pipe "shell-command-pipe")
+ ("b" nil "back"))
+
+(defhydra hydra-ibuffer-sort (:color amaranth :columns 3)
+ "Sort"
+ ("i" ibuffer-invert-sorting "invert")
+ ("a" ibuffer-do-sort-by-alphabetic "alphabetic")
+ ("v" ibuffer-do-sort-by-recency "recently used")
+ ("s" ibuffer-do-sort-by-size "size")
+ ("f" ibuffer-do-sort-by-filename/process "filename")
+ ("m" ibuffer-do-sort-by-major-mode "mode")
+ ("b" hydra-ibuffer-main/body "back" :color blue))
+
+(defhydra hydra-ibuffer-filter (:color amaranth :columns 4)
+ "Filter"
+ ("m" ibuffer-filter-by-used-mode "mode")
+ ("M" ibuffer-filter-by-derived-mode "derived mode")
+ ("n" ibuffer-filter-by-name "name")
+ ("c" ibuffer-filter-by-content "content")
+ ("e" ibuffer-filter-by-predicate "predicate")
+ ("f" ibuffer-filter-by-filename "filename")
+ (">" ibuffer-filter-by-size-gt "size")
+ ("<" ibuffer-filter-by-size-lt "size")
+ ("/" ibuffer-filter-disable "disable")
+ ("b" hydra-ibuffer-main/body "back" :color blue))
+#+END_SRC
+* Language settings
+End sentences with single spaces.
+#+begin_src emacs-lisp
+(setq sentence-end-double-space nil)
+#+end_src
+* Interface
+** General
+#+begin_src emacs-lisp
+(use-package emacs
+ :custom
+ (vc-follow-symlinks t)
+ (echo-keystrokes 0.25)
+ (auto-revert-verbose nil)
+ :config
+ (defalias 'yes-or-no-p 'y-or-n-p)
+ (put 'dired-find-alternate-file 'disabled nil)
+ (put 'narrow-to-region 'disabled nil))
+#+end_src
+** Parentheses
+#+begin_src emacs-lisp
+(use-package paren
+ :custom
+ (show-paren-style 'mixed)
+ (show-paren-when-point-in-periphery t)
+ (show-paren-when-point-inside-paren t)
+ :config
+ (show-paren-mode 1))
+#+end_src
+** Whitespace
+I do not really care about spaces versus tabs most of the time. I only
+want it to be consistent within a file.
+#+begin_src emacs-lisp
+(use-package emacs
+ :custom
+ (indent-tabs-mode nil))
+#+end_src
+Instead of =$= use =⏎= to indicate newlines
+#+begin_src emacs-lisp
+(use-package whitespace
+:custom (whitespace-display-mappings '((space-mark 32
+ [183]
+ [46])
+ (space-mark 160
+ [164]
+ [95])
+ (newline-mark 10
+ [9166 10]) ;;[36 10]
+ (tab-mark 9
+ [187 9]
+ [92 9]))))
+#+end_src
+** Undo
+
+Emacs undo mechanic can be confusing. =undo-tree= is a great package
+but is prone to corruption and also does not allow undo based on the
+active region.
+
+*** Undo-propose :ARCHIVE:
+=undo-propose= shows undo changes in a temporary buffer. For the
+keybindings see [[elisp:(which-key-show-full-keymap
+'undo-propose-mode-map)]]. =undo-propose-commit= commits the cumulated
+undo changes and the traveled undo history to the original buffer.
+=undo-propose-squash-commit= omits the history.
+
+The temporary buffer messes up point and folding in org buffers.
+Therefore I don't use it anymore and should someday look into how this
+temporary buffer is created.
+
+#+begin_src emacs-lisp :tangle no
+(use-package undo-propose
+ :ensure t
+ :bind (("C-/" . undo-propose)))
+#+end_src
+** Electric stuff
+#+begin_src emacs-lisp
+(use-package electric
+ :init
+ (setq electric-pair-inhibit-predicate 'electric-pair-conservative-inhibit)
+ (setq electric-pair-pairs '((34 . 34)
+ (8216 . 8217)
+ (8220 . 8221)
+ (171 . 187)))
+ (setq electric-pair-skip-self 'electric-pair-default-skip-self)
+ (setq electric-quote-context-sensitive t)
+ (setq electric-quote-paragraph t)
+ (setq electric-quote-string nil)
+ :config
+ (electric-indent-mode 1)
+ (electric-pair-mode 1)
+ (electric-quote-mode -1))
+#+end_src
diff --git a/emacs-private.el.gpg b/emacs-private.el.gpg
new file mode 100644
index 0000000..a34ae19
--- /dev/null
+++ b/emacs-private.el.gpg
Binary files differ
diff --git a/init-exwm.org b/init-exwm.org
new file mode 100644
index 0000000..792dcbe
--- /dev/null
+++ b/init-exwm.org
@@ -0,0 +1,412 @@
+#+PROPERTY: header-args:emacs-lisp :results silent
+,#+PROPERTY: header-args:emacs-lisp :tangle tangle/init-exwm.el
+
+When stating the client from .xinitrc, `save-buffer-kill-terminal' will
+force-kill Emacs before it can run through `kill-emacs-hook'.
+#+BEGIN_SRC emacs-lisp
+(global-set-key (kbd "C-x C-c") 'save-buffers-kill-emacs)
+#+END_SRC
+
+
+
+set keyboard
+#+BEGIN_SRC emacs-lisp
+(shell-command "setxkbmap -layout \"de(neo),us,ru,de\"")
+#+END_SRC
+* functions
+#+BEGIN_SRC emacs-lisp
+(defun ambrevar/switch-to-last-buffer ()
+ "Switch to last open buffer in current window."
+ (interactive)
+ (switch-to-buffer (other-buffer (current-buffer) 1)))
+
+(defun ambrevar/toggle-window-dedicated ()
+ "Toggle whether the current active window is dedicated or not.
+Run it in each window you want to 'freeze', i.e. prevent Emacs
+from acting on it."
+ (interactive)
+ (message
+ (if (let ((window (get-buffer-window (current-buffer))))
+ (set-window-dedicated-p window
+ (not (window-dedicated-p window))))
+ "Window '%s' is dedicated"
+ "Window '%s' is normal")
+ (current-buffer)))
+
+(defun ambrevar/toggle-window-split ()
+ "Switch between vertical and horizontal split.
+It only works for frames with exactly two windows."
+ (interactive)
+ (if (= (count-windows) 2)
+ (let* ((this-win-buffer (window-buffer))
+ (next-win-buffer (window-buffer (next-window)))
+ (this-win-edges (window-edges (selected-window)))
+ (next-win-edges (window-edges (next-window)))
+ (this-win-2nd (not (and (<= (car this-win-edges)
+ (car next-win-edges))
+ (<= (cadr this-win-edges)
+ (cadr next-win-edges)))))
+ (splitter
+ (if (= (car this-win-edges)
+ (car (window-edges (next-window))))
+ 'split-window-horizontally
+ 'split-window-vertically)))
+ (delete-other-windows)
+ (let ((first-win (selected-window)))
+ (funcall splitter)
+ (if this-win-2nd (other-window 1))
+ (set-window-buffer (selected-window) this-win-buffer)
+ (set-window-buffer (next-window) next-win-buffer)
+ (select-window first-win)
+ (if this-win-2nd (other-window 1))))))
+
+(defun ambrevar/toggle-single-window ()
+ "Un-maximize current window.
+If multiple windows are active, save window configuration and
+delete other windows. If only one window is active and a window
+configuration was previously save, restore that configuration."
+ (interactive)
+ (if (= (count-windows) 1)
+ (when single-window--last-configuration
+ (set-window-configuration single-window--last-configuration))
+ (setq single-window--last-configuration (current-window-configuration))
+ (delete-other-windows)))
+#+END_SRC
+** Window swapping
+#+BEGIN_SRC emacs-lisp
+(defun ambrevar/swap-windows (&optional w1 w2)
+ "If 2 windows are up, swap them.
+Else if W1 is a window, swap it with current window.
+If W2 is a window too, swap both."
+ (interactive)
+ (unless (or (= 2 (count-windows))
+ (windowp w1)
+ (windowp w2))
+ (error "Ambiguous window selection"))
+ (let* ((w1 (or w1 (car (window-list))))
+ (w2 (or w2
+ (if (eq w1 (car (window-list)))
+ (nth 1 (window-list))
+ (car (window-list)))))
+ (b1 (window-buffer w1))
+ (b2 (window-buffer w2))
+ (s1 (window-start w1))
+ (s2 (window-start w2)))
+ (with-temp-buffer
+ ;; Some buffers like EXWM buffers can only be in one live buffer at once.
+ ;; Switch to a dummy buffer in w2 so that we don't display any buffer twice.
+ (set-window-buffer w2 (current-buffer))
+ (set-window-buffer w1 b2)
+ (set-window-buffer w2 b1))
+ (set-window-start w1 s2)
+ (set-window-start w2 s1))
+ (select-window w1))
+
+(defun ambrevar/swap-windows-left ()
+ "Swap current window with the window to the left."
+ (interactive)
+ (ambrevar/swap-windows (window-in-direction 'left)))
+(defun ambrevar/swap-windows-below ()
+ "Swap current window with the window below."
+ (interactive)
+ (ambrevar/swap-windows (window-in-direction 'below)))
+(defun ambrevar/swap-windows-above ()
+ "Swap current window with the window above."
+ (interactive)
+ (ambrevar/swap-windows (window-in-direction 'above)))
+(defun ambrevar/swap-windows-right ()
+ "Swap current window with the window to the right."
+ (interactive)
+ (ambrevar/swap-windows (window-in-direction 'right)))
+#+END_SRC
+** Volume & Brightness
+#+BEGIN_SRC emacs-lisp
+(defun exwm-brightness (incdec)
+ (shell-command (concat "xbacklight " incdec "10"))
+ (notifications-notify :title (substring (shell-command-to-string "xbacklight") 0 -1)
+ :replaces-id 6969
+ :urgency 'low
+ :timeout 550))
+
+(defun exwm-volume (incdec)
+ (notifications-notify
+ :title (format
+ "Volume %s"
+ (substring
+ (shell-command-to-string
+ (format "amixer -D pulse set Master 5%%%s|tail -n 1|cut -d '[' -f 2|cut -d ']' -f 1"
+ incdec)) 0 -1))
+ :replaces-id 6968
+ :urgency 'low
+ :timeout 550))
+(defun exwm-togglemute ()
+ (interactive)
+ (notifications-notify
+ :title (format
+ "Volume %s"
+ (substring
+ (shell-command-to-string
+ "amixer -D pulse set Master toggle|tail -n 1|cut -d '[' -f 3|cut -d ']' -f 1") 0 -1))
+ :replaces-id 6968
+ :urgency 'low
+ :timeout 550))
+#+END_SRC
+** XF86 Multimedia keys
+#+BEGIN_SRC emacs-lisp
+(defun exwm-xf86audio (cmd)
+ ;; Control Spotify
+ (shell-command (concat "dbus-send --type=method_call --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player." cmd)))
+#+END_SRC
+** Browser switching
+#+BEGIN_SRC emacs-lisp
+(defun fpi/helm-exwm-switch (class &optional program other-window)
+ "Switch to some EXWM windows belonging to CLASS.
+If current window is not showing CLASS, switch to the last open CLASS window.
+If there is none, start PROGRAM.
+
+If PROGRAM is nil, it defaults to CLASS.
+With prefix argument or if OTHER-WINDOW is non-nil, open in other window."
+ ;; If current window is not in `exwm-mode' we switch to it. Therefore we must
+ ;; also make sure that current window is not a Helm buffer, otherwise calling
+ ;; this function will lose focus in Helm.
+ (unless helm-alive-p
+ (setq program (or program class)
+ other-window (or other-window current-prefix-arg))
+ (let ((filter (lambda ()
+ (member (downcase (or exwm-class-name "")) class))))
+ (if (and (eq major-mode 'exwm-mode)
+ (funcall filter))
+ (let ((helm-buffer-details-flag nil))
+ (helm-exwm filter))
+ (let ((last (buffer-list)))
+ (while (and last
+ (not (with-current-buffer (car last)
+ (and (eq major-mode 'exwm-mode)
+ (funcall filter)))))
+ (setq last (cdr last)))
+ (if last
+ (funcall (if other-window 'switch-to-buffer-other-window 'switch-to-buffer) (car last))
+ (when other-window (select-window (split-window-sensibly)))
+ (start-process-shell-command program nil program)))))))
+
+(defun fpi/helm-exwm-switch-browser ()
+ "Switch to some `browse-url-generic-program' windows.
+
+See `helm-exwm-switch'."
+ (interactive)
+ (fpi/helm-exwm-switch (quote ("qutebrowser"
+ "firefox"))
+ browse-url-generic-program))
+#+END_SRC
+* config
+Time & Battery display
+#+BEGIN_SRC emacs-lisp
+(display-time)
+(display-battery-mode)
+#+END_SRC
+Rename buffer to window title.\\
+Spotify's title does not include "spotify" while playing music so just
+append it.
+#+BEGIN_SRC emacs-lisp
+(defun fpie/exwm-rename-buffer-to-title ()
+ (let ((newname (if (string-match "Spotify" (buffer-name))
+ (concat exwm-title " - Spotify")
+ exwm-title)))
+ (exwm-workspace-rename-buffer newname)))
+
+(add-hook 'exwm-update-title-hook 'fpie/exwm-rename-buffer-to-title)
+#+END_SRC
+#+BEGIN_SRC emacs-lisp
+(add-hook 'exwm-floating-setup-hook 'exwm-layout-hide-mode-line)
+(add-hook 'exwm-floating-exit-hook 'exwm-layout-show-mode-line)
+#+END_SRC
+
+Non-floating resizing with mouse
+#+BEGIN_SRC emacs-lisp
+(setq window-divider-default-bottom-width 2
+ window-divider-default-right-width 2)
+(window-divider-mode)
+#+END_SRC
+System tray
+#+BEGIN_SRC emacs-lisp
+(require 'exwm-systemtray)
+(exwm-systemtray-enable)
+(setq exwm-systemtray-height 16)
+#+END_SRC
++auto focus+
+#+BEGIN_SRC emacs-lisp :tangle no
+(setq mouse-autoselect-window t
+ focus-follows-mouse t)
+#+END_SRC
+List all buffers
+#+BEGIN_SRC emacs-lisp
+(setq exwm-workspace-show-all-buffers t)
+(setq exwm-layout-show-all-buffers t)
+#+END_SRC
+** Helm
+#+BEGIN_SRC emacs-lisp :results silent
+(with-eval-after-load 'helm
+ ;; Need `with-eval-after-load' here since 'helm-map is not defined in 'helm-config.
+ (define-key helm-map (kbd "s-\\") 'helm-toggle-resplit-and-swap-windows)
+ (exwm-input--set-key (kbd "s-p") 'helm-run-external-command)
+ (exwm-input-set-key (kbd "s-c") 'helm-resume)
+ (exwm-input-set-key (kbd "s-b") 'helm-mini)
+ (exwm-input-set-key (kbd "s-f") 'helm-find-files)
+ (exwm-input-set-key (kbd "s-F") 'helm-locate)
+ ;;(when (fboundp 'ambrevar/helm-locate-meta)
+ ;; (exwm-input-set-key (kbd "s-F") #'ambrevar/helm-locate-meta))
+ ;;(exwm-input-set-key (kbd "s-g") 'ambrevar/helm-grep-git-or-ag)
+ ;;(exwm-input-set-key (kbd "s-G") 'ambrevar/helm-grep-git-all-or-ag)
+ )
+
+(use-package helm-exwm)
+(exwm-input-set-key (kbd "s-w") #'fpi/helm-exwm-switch-browser)
+(exwm-input-set-key (kbd "s-W") #'helm-exwm-switch-browser-other-window)
+#+END_SRC
+** Keys
+Global bindings
+#+BEGIN_SRC emacs-lisp
+(exwm-input-set-key (kbd "s-K") #'exwm-reset)
+(exwm-input-set-key (kbd "s-x") #'exwm-input-toggle-keyboard)
+
+(exwm-input-set-key (kbd "s-s") #'windmove-left)
+(exwm-input-set-key (kbd "s-n") #'windmove-down)
+(exwm-input-set-key (kbd "s-r") #'windmove-up)
+(exwm-input-set-key (kbd "s-t") #'windmove-right)
+
+(exwm-input-set-key (kbd "M-s") #'ace-jump-word-mode)
+(exwm-input-set-key (kbd "s-B") #'ibuffer-list-buffers)
+(exwm-input-set-key (kbd "s-X") #'kill-this-buffer)
+
+(exwm-input-set-key (kbd "s-M") #'exwm-workspace-switch)
+
+(exwm-input-set-key (kbd "s-\\") 'ambrevar/toggle-window-split)
+(exwm-input-set-key (kbd "s-S") 'ambrevar/swap-windows-left)
+(exwm-input-set-key (kbd "s-N") 'ambrevar/swap-windows-below)
+(exwm-input-set-key (kbd "s-R") 'ambrevar/swap-windows-above)
+(exwm-input-set-key (kbd "s-T") 'ambrevar/swap-windows-right)
+
+(exwm-input-set-key (kbd "s-<tab>") #'ambrevar/switch-to-last-buffer)
+(exwm-input-set-key (kbd "s-<return>") (lambda ()
+ (interactive)
+ (start-process "term" nil "tilix")))
+(exwm-input-set-key (kbd "s-h") 'bury-buffer)
+
+(exwm-input-set-key (kbd "s-g") 'previous-buffer)
+(exwm-input-set-key (kbd "s-G") 'next-buffer)
+#+END_SRC
+#+BEGIN_SRC emacs-lisp
+(exwm-input-set-key (kbd "s-!") 'helm-pass)
+#+END_SRC
+Volume & Brightness
+#+BEGIN_SRC emacs-lisp
+(exwm-input-set-key [XF86AudioLowerVolume] (lambda () (interactive) (exwm-volume "-")))
+(exwm-input-set-key [XF86AudioRaiseVolume] (lambda () (interactive) (exwm-volume "+")))
+(exwm-input-set-key [XF86AudioMute] 'exwm-togglemute)
+(exwm-input-set-key [XF86MonBrightnessUp] (lambda () (interactive) (exwm-brightness "+")))
+(exwm-input-set-key [XF86MonBrightnessDown] (lambda () (interactive) (exwm-brightness "-")))
+#+END_SRC
+XF86 Multimedia Keys
+#+BEGIN_SRC emacs-lisp
+(exwm-input--set-key [XF86AudioPlay] (lambda () (interactive) (exwm-xf86audio "PlayPause")))
+(exwm-input--set-key [XF86AudioPause] (lambda () (interactive) (exwm-xf86audio "PlayPause")))
+(exwm-input--set-key [XF86AudioNext] (lambda () (interactive) (exwm-xf86audio "Next")))
+(exwm-input--set-key [XF86AudioPrev] (lambda () (interactive) (exwm-xf86audio "Previous")))
+#+END_SRC
+*** Local bindings
+#+BEGIN_SRC emacs-lisp
+(push ?\s- exwm-input-prefix-keys)
+(define-key exwm-mode-map (kbd "s-SPC") #'exwm-floating-toggle-floating)
+(define-key exwm-mode-map (kbd "s-i") #'follow-delete-other-windows-and-split) ;; any useful?
+(define-key exwm-mode-map (kbd "s-o") #'ambrevar/toggle-single-window)
+(define-key exwm-mode-map (kbd "s-O") #'exwm-layout-toggle-fullscreen)
+
+(define-key exwm-mode-map (kbd "C-q") #'exwm-input-send-next-key)
+#+END_SRC
+Allow access to my personal keymap.
+#+BEGIN_SRC emacs-lisp
+(push ?\C-z exwm-input-prefix-keys)
+#+END_SRC
+
+*** Simulation keys
+#+BEGIN_SRC emacs-lisp
+(setq exwm-input-simulation-keys
+ '(([?\C-b] . [left])
+ ([?\C-f] . [right])
+ ([?\C-p] . [up])
+ ([?\C-n] . [down])
+ ([?\C-a] . [home])
+ ([?\C-e] . [end])
+ ([?\M-v] . [prior])
+ ([?\C-v] . [next])
+ ([?\C-d] . [delete])))
+ ;;([?\C-k] . [S-end delete]))) ; doesn't work in tilix
+#+END_SRC
+** Multiple monitors
+#+BEGIN_SRC emacs-lisp
+(require 'exwm-randr)
+(setq exwm-randr-workspace-output-plist
+ '(0 "DP1" 1 "HDMI1" 2 "HDMI2" 3 "eDP1"))
+(exwm-randr-enable)
+#+END_SRC
+** Configure helm-raise-command
+~(shell-command "emacsclient -e ...")~ does not work. Advice
+~helm-run-or-raise~ instead and overshadow ~shell-command~.
+
+For now ~helm-run-or-raise~ is redefined after helm is loaded in
+~emacs-init.org~ instead of advised.
+#+begin_src emacs-lisp
+(defun fpi/get-proc-buffers (proc)
+ (let ((cand (helm-exwm-candidates)))
+ (remove
+ nil (mapcar
+ (lambda (c)
+ (if (equal
+ (downcase proc)
+ (downcase (with-current-buffer c (or exwm-class-name ""))))
+ c
+ nil)) cand))))
+(defun fpi/switch-to-proc-buffer (proc)
+ (switch-to-buffer (car (fpi/get-proc-buffers proc))))
+
+;; (setq helm-raise-command "emacsclient -e '(fpi/switch-to-proc-buffer \"%s\")'")
+(setq helm-raise-command t)
+#+end_src
+** Screenshots
+UncleDave has a nice exwm configuration in his [[https://github.com/daedreth/UncleDavesEmacs/blob/master/config.org][config]]. These snippets
+are taken from there.
+
+A nice alternative for screenshots in org-mode is ~org-screenshot.el~.
+It uses ~scrot~ to take screenshots of windows and insert a link the
+image into the current org buffer.
+
+*** Screenshotting the entire screen
+#+BEGIN_SRC emacs-lisp
+ (defun daedreth/take-screenshot ()
+ "Takes a fullscreen screenshot of the current workspace"
+ (interactive)
+ (when window-system
+ (loop for i downfrom 3 to 1 do
+ (progn
+ (message (concat (number-to-string i) "..."))
+ (sit-for 1)))
+ (message "Cheese!")
+ (sit-for 1)
+ (start-process "screenshot" nil "import" "-window" "root"
+ (concat (getenv "HOME") "/" (subseq (number-to-string (float-time)) 0 10) ".png"))
+ (message "Screenshot taken!")))
+ (global-set-key (kbd "<print>") 'daedreth/take-screenshot)
+#+END_SRC
+
+*** Screenshotting a region
+#+BEGIN_SRC emacs-lisp
+(defun daedreth/take-screenshot-region ()
+ "Takes a screenshot of a region selected by the user."
+ (interactive)
+ (when window-system
+ (call-process "import" nil nil nil ".newScreen.png")
+ (call-process "convert" nil nil nil ".newScreen.png" "-shave" "1x1"
+ (concat (getenv "HOME") "/" (subseq (number-to-string (float-time)) 0 10) ".png"))
+ (call-process "rm" nil nil nil ".newScreen.png")))
+;; (global-set-key (kbd "<Scroll_Lock>") 'daedreth/take-screenshot-region)
+#+END_SRC