|
|
#+TITLE: Emacs Configuration#+AUTHOR: Marc Pohling
* Personal Information #+BEGIN_SRC emacs-lisp (setq user-full-name "Marc Pohling" user-mail-address "marc.pohling@googlemail.com")#+END_SRC
I need a function to know what computer emacs is running on. The display width of 1152 pixel is an oddity of hyper-v and for my usecase specific enough to tell the machine.
#+BEGIN_SRC emacs-lisp (defvar my/whoami (if (string-equal user-login-name "POH") "work_remote" (if (equal (display-pixel-width) 1152) "work_hyperv" (if (string-equal system-type "gnu/linux") "home"))))#+END_SRC* Stuff to add / to fix - smartparens a sane default configuration for navigation, manipulation etc. is still necessary - Spaceline / Powerline or similar I want a pretty status bar! - Git gutter: Do some configuration to make it useful (see given source link in the [[*Git][Section]] of gutter) Maybe only enable it for modes where it is likely I use git? - Some webmode stuff - markdown: add hooks for certain file extensions, maybe add a smart way to start gfm-mode if markdown-file is in a git-project - move package dependend configurations inside the package configuration itself, like keymaps for magit
* Update config in a running config Two options: - reload the open file: M-x load-file, then press twice to accept the default filename, which is the currently opened - Point at the end of any sexp and press C-x C-e* Customize default settings Keep the .emacs.d clean by moving user files into separate directories. - user-local: directory for machine specific files - user-global: directory for files which work on any machine - the backup and auto-save files go right to /tmp
#+BEGIN_SRC emacs-lisp (defvar PATH_USER_LOCAL (expand-file-name "~/.emacs.d/user-local/")) (defvar PATH_USER_GLOBAL (expand-file-name "~/.emacs.d/user-global/")) (setq bookmark-default-file (concat PATH_USER_LOCAL "bookmarks")) (setq recentf-save-file (concat PATH_USER_LOCAL "recentf")) (setq custom-file (concat PATH_USER_LOCAL "custom.el")) ;don't spam init.el with saved customize settings (setq abbrev-file-name (concat PATH_USER_GLOBAL "abbrev_defs")) (setq backup-directory-alist `((".*" . ,temporary-file-directory))) (setq auto-save-file-name-transforms `((".*" ,temporary-file-directory)))
(setq save-abbrevs 'silently) ; don't bother me with asking if new abbrevs should be saved#+END_SRC
These functions are useful. Activate them.#+BEGIN_SRC emacs-lisp (put 'downcase-region 'disabled nil) (put 'upcase-region 'disabled nil) (put 'narrow-to-region 'disabled nil) (put 'dired-find-alternate-file 'disabled nil) #+END_SRC
Answering just 'y' or 'n' should be enough. #+BEGIN_SRC emacs-lisp (defalias 'yes-or-no-p 'y-or-n-p)#+END_SRC
Don't ask me if I want to load themes.#+BEGIN_SRC emacs-lisp (setq custom-safe-themes t)#+END_SRC
Don't count two spaces after a period as the end of a sentence. Just one space is needed#+BEGIN_SRC emacs-lisp (setq sentence-end-double-space nil)#+END_SRC
Delete the region when typing, just like as we expect nowadays.#+BEGIN_SRC emacs-lisp (delete-selection-mode t)#+END_SRC
Auto-indent when pressing RET, just new-line when C-j#+BEGIN_SRC emacs-lisp (define-key global-map (kbd "RET") 'newline-and-indent) (define-key global-map (kbd "C-j") 'newline)#+END_SRC
Set the default window size depending on the system emacs is running on. ;; TODO: ;; This size is only reasonable for linux@home ;; hyperv is way smaller, use fullscreen here ;; pm should be fullscreen, too #+BEGIN_SRC emacs-lisp(if (display-graphic-p) (pcase my/whoami ("home" (progn (setq initial-frame-alist '((width . 165) (height . 70))) (setq default-frame-alist '((width . 165) (height . 70))))) ("work_remote" (add-to-list 'initial-frame-alist '(fullscreen . maximized))) ("work_hyperv" (add-to-list 'initial-frame-alist '(fullscreen . maximized)))))#+END_SRC * Visuals** Font Don't add the font in the work environment, which I am logged in as POH
#+BEGIN_SRC emacs-lisp(pcase my/whoami ("home" (set-face-attribute 'default nil :font "Hack-10")) ("work_hyperv" (set-face-attribute 'default nil :font "Hack-12")))#+END_SRC
** Themes*** Material Theme The [[https://github.com/cpaulik/emacs-material-theme][Material Theme]] comes in a dark and a light variant. Not too dark to be strenious though. b#+BEGIN_SRC emacs-lisp (use-package material-theme :if (window-system) :defer t :ensure t )#+END_SRC*** Apropospriate Theme Variants dark and light
#+BEGIN_SRC emacs-lisp (use-package apropospriate-theme :if (window-system) :defer t :ensure t )#+END_SRC
*** Ample Theme Variants: - ample - ample-flat - ample-light
#+BEGIN_SRC emacs-lisp(use-package ample-theme :if (window-system) :defer t :ensure t :init (load-theme 'ample-flat t))#+END_SRC** Prettier Line Wraps By default there is no line wrapping. M-q actually modifies the buffer, which might not be wanted. So: enable visual wrapping and keep indentation if there are any.
#+BEGIN_SRC emacs-lisp (global-visual-line-mode) (diminish 'visual-line-mode) (use-package adaptive-wrap :ensure t :init (when (fboundp 'adaptive-wrap-prefix-mode) (defun my-activate-adaptive-wrap-prefix-mode () "Toggle `visual-line-mode' and `adaptive-wrap-prefix-mode' simultaneously." (adaptive-wrap-prefix-mode (if visual-line-mode 1 -1))) (add-hook 'visual-line-mode-hook 'my-activate-adaptive-wrap-prefix-mode)) )#+END_SRC
** Mode Line Change the default mode line to something prettier. [[https://github.com/Malabarba/smart-mode-line][Source]]
#+BEGIN_SRC emacs-lisp(use-package smart-mode-line :ensure t :config (tool-bar-mode -1) (setq sml/theme 'respectful) (setq sml/name-width 40) (setq sml/mode-width 'full) (set-face-attribute 'mode-line nil :box nil) (sml/setup))#+END_SRC
** Line numbers
#+BEGIN_SRC emacs-lisp(use-package linum :ensure t :init (add-hook 'prog-mode-hook 'linum-mode)) #+END_SRC
** Misc UTF-8 please #+BEGIN_SRC emacs-lisp (setq locale-coding-system 'utf-8) (set-terminal-coding-system 'utf-8) (set-keyboard-coding-system 'utf-8) (set-selection-coding-system 'utf-8) (prefer-coding-system 'utf-8)#+END_SRC
Turn off blinking cursor #+BEGIN_SRC emacs-lisp (blink-cursor-mode -1)#+END_SRC
#+BEGIN_SRC emacs-lisp (show-paren-mode t) (column-number-mode t) (setq uniquify-buffer-name-style 'forward)#+END_SRC
Avoid tabs in place of multiple spaces (they look bad in TeX) and show empty lines
#+BEGIN_SRC emacs-lisp (setq-default indent-tabs-mode nil) (setq-default indicate-empty-lines t)#+END_SRC
Smooth scrolling. Emacs tends to be jumpy, this should change it.
#+BEGIN_SRC emacs-lisp(setq scroll-margin 5 scroll-conservatively 10000 scroll-preserve-screen-position 1 scroll-step 1)#+END_SRC
Highlight current line
#+BEGIN_SRC emacs-lisp(global-hl-line-mode t)#+END_SRC
* Usability ** which-key Greatly increases discovery of functions! Click [[https://github.com/justbur/emacs-which-key][here]] for source and more info. Info in Emacs: M-x customize-group which-key
#+BEGIN_SRC emacs-lisp (use-package which-key :ensure t :diminish which-key-mode :config (which-key-mode) (which-key-setup-side-window-right-bottom) (which-key-setup-minibuffer) (setq which-key-idle-delay 0.5) )#+END_SRC** Recentf Activate and configure recentf
#+BEGIN_SRC emacs-lisp (recentf-mode t) (setq recentf-max-saved-items 200)#+END_SRC** Hydra Hydra allows grouping of commands
#+BEGIN_SRC emacs-lisp (use-package hydra :ensure t :bind ("C-c f" . hydra-flycheck/body) ("C-c g" . hydra-git-gutter/body) :config (setq-default hydra-default-hint nil) )#+END_SRC
** Evil So... Evil Mode might be worth a try
#+BEGIN_SRC emacs-lisp (use-package evil :ensure t :defer .1 ;; don't block emacs when starting, load evil immediately after startup :init (setq evil-want-integration nil) ;; required by evil-collection :config (evil-mode 1)) ;; for now deactivate per default#+END_SRC
Evil-collection is a bundle of configs for different modes. 2018-05-01: evil collection causes error "Invalid function: with-helm-buffer"#+BEGIN_SRC emacs-lisp ;(use-package evil-collection ; :after evil ; :ensure t ; :config ; (evil-collection-init))#+END_SRC
Evil-goggles give visual hints when editing texts, so it's more obvious what is actually happening. [[https://github.com/edkolev/evil-goggles][Source]] #+BEGIN_SRC emacs-lisp(use-package evil-goggles :after evil :ensure t :diminish evil-goggles-mode :config (evil-goggles-mode) (evil-goggles-use-diff-faces))#+END_SRC** General (keymapper) I just use general.el to define keys and keymaps. With it I can set leader keys and create keymaps for them. It also integrates well with which-key. [[https://github.com/noctuid/general.el][Source]]
#+BEGIN_SRC emacs-lisp (use-package general :ensure t )#+END_SRC
** Custom key mappings Now some keymaps. If there is no map defined, it is considered the global key map.
#+BEGIN_SRC emacs-lisp (general-define-key :states '(normal visual insert emacs) :prefix "SPC" :non-normal-prefix "M-SPC" "TAB" '(ivy-switch-buffer :which-key "prev buffer") "SPC" '(counsel-M-x :which-key "M-x")) #+END_SRC
A map for org-mode #+BEGIN_SRC emacs-lisp (general-define-key :states '(normal visual insert emacs) :keymaps 'org-mode-map :prefix "SPC" :non-normal-prefix "M-SPC" "t" '(counsel-org-tag :which-key "org-tag"))#+END_SRC ** List buffers Ibuffer is the improved version of list-buffers. Make ibuffer the default buffer lister. [[http://ergoemacs.org/emacs/emacs_buffer_management.html][Source]]#+BEGIN_SRC emacs-lisp (defalias 'list-buffers 'ibuffer)#+END_SRC
Also auto refresh dired, but be quiet about it. [[http://whattheemacsd.com/sane-defaults.el-01.html][Source]]#+BEGIN_SRC emacs-lisp (add-hook 'dired-mode-hook 'auto-revert-mode) (setq global-auto-revert-non-file-buffers t) (setq auto-revert-verbose nil)#+END_SRC** ivy / counsel / swiper Flx is required for fuzzy-matching Is it really necessary? BEGIN_SRC emacs-lisp (use-package flx) end_src
Ivy displays a window with suggestions for hotkeys and M-x
#+BEGIN_SRC emacs-lisp (use-package ivy :ensure t :diminish (ivy-mode . "") ;; does not display ivy in the mode line :init (ivy-mode 1) :bind ("C-c C-r" . ivy-resume) :config (setq ivy-use-virtual-buffers t) ;; recent files and bookmarks in ivy-switch-buffer (setq ivy-height 20) ;; height of ivy window (setq ivy-count-format "%d/%d") ;; current and total number (setq ivy-re-builders-alist ;; regex replaces spaces with * '((t . ivy--regex-plus))) )#+END_SRC
The find-file replacement is nicer to navigate
#+BEGIN_SRC emacs-lisp (use-package counsel :ensure t :bind* ;; load counsel when pressed (("M-x" . counsel-M-x) ("C-x C-f" . counsel-find-file) ("C-x C-r" . counsel-recentf) ("C-c C-f" . counsel-git) ("C-c h f" . counsel-describe-function) ("C-c h v" . counsel-describe-variable) ("M-i" . counsel-imenu) ) )#+END_SRC
Swiper ivy-enhances isearch
#+BEGIN_SRC emacs-lisp (use-package swiper :ensure t :bind (("C-s" . swiper) ("C-c C-r" . ivy-resume) ) )#+END_SRC
Ivy-Hydra adds stuff in minibuffer when you press C-o
#+BEGIN_SRC emacs-lisp (use-package ivy-hydra :ensure t)#+END_SRC
** Helm This is just a try to see how it works differently.
#+BEGIN_SRC emacs-lisp (use-package helm :ensure t :init (helm-mode 1) :bind ; (("M-x" . helm-M-x) ; ("C-x C-f" . helm-find-files) ; ("C-x C-r" . helm-recentf) ; ("C-x b" . helm-buffers-list)) :config (setq helm-buffers-fuzzy-matching t) )
(use-package helm-descbinds :ensure t :bind ("C-h b" . helm-descbinds))
(use-package helm-projectile :ensure t :config (helm-projectile-on))#+END_SRC
** Undo Show an undo tree in a new buffer which can be navigated. #+BEGIN_SRC emacs-lisp(use-package undo-tree :ensure t :diminish undo-tree-mode :init (global-undo-tree-mode 1))#+END_SRC
** Ido (currently inactive) better completion
#+BEGIN_SRC emacs-lisp ;(use-package ido ; :init ; (setq ido-enable-flex-matching t) ; (setq ido-everywhere t) ; (ido-mode t) ; (use-package ido-vertical-mode ; :ensure t ; :defer t ; :init ; (ido-vertical-mode 1) ; (setq ido-vertical-define-keys 'C-n-and-C-p-only) ; ) ;)#+END_SRC
** Treemacs A file manager comparable to neotree. [[https://github.com/Alexander-Miller/treemacs][Github]]
It has some requirements, which gets used here anyway: - ace-window - hydra - projectile - python
I copied the configuration example from the github site. No idea what this executable-find is about. TODO check it out! #+BEGIN_SRC emacs-lisp (use-package treemacs :ensure t :defer t :config (setq treemacs-change-root-without-asking nil treemacs-collapse-dirs (if (executable-find "python") 3 0) treemacs-file-event-delay 5000 treemacs-follow-after-init t treemacs-follow-recenter-distance 0.1 treemacs-goto-tag-strategy 'refetch-index treemacs-indentation 2 treemacs-indentation-string " " treemacs-is-never-other-window nil treemacs-never-persist nil treemacs-no-png-images nil treemacs-recenter-after-file-follow nil treemacs-recenter-after-tag-follow nil treemacs-show-hidden-files t treemacs-silent-filewatch nil treemacs-silent-refresh nil treemacs-sorting 'alphabetic-desc treemacs-tag-follow-cleanup t treemacs-tag-follow-delay 1.5 treemacs-width 35) (treemacs-follow-mode t) (treemacs-filewatch-mode t) (pcase (cons (not (null (executable-find "git"))) (not (null (executable-find "python3")))) (`(t . t) (treemacs-git-mode 'extended)) (`(t . _) (treemacs-git-mode 'simple))) :bind (:map global-map ([f8] . treemacs-toggle)) )#+END_SRC
Treemacs-projectile is useful for uhh.. TODO explain!
#+BEGIN_SRC emacs-lisp (use-package treemacs-projectile :ensure t :defer t :config (setq treemacs-header-function #'treemacs-projectile-create-header) )#+END_SRC
TODO Hydrastuff or keybindings for functions: - treemacs-projectile - treemacs-projectile-toggle - treemacs-toggle - treemacs-bookmark - treemacs-find-file - treemacs-find-tag ** Window Handling Some tools to easen the navigation, creation and deletion of windows
*** Ace-Window
#+BEGIN_SRC emacs-lisp (use-package ace-window :ensure t :init (global-set-key (kbd "C-x o") 'ace-window) )#+END_SRC
*** Windmove Windmove easens the navigation between windows. Here we are setting the default keybindings (shift+arrow)
CURRENTLY NOT WORKING, defaults are blocked. Also not sure if necessary when using ace-window.#+BEGIN_SRC emacs-lisp (use-package windmove :ensure t :config (windmove-default-keybindings) )#+END_SRC
** Tramp With tramp you can handle remote files like local files. Usage example: C-x C-f /ssh:name@server:/path#+BEGIN_SRC emacs-lisp(use-package tramp :ensure t )#+END_SRC** misc Visual feedback when using regexp on the buffer#+BEGIN_SRC emacs-lisp(use-package visual-regexp :ensure t :defer t :bind (("C-c r s" . query-replace) ("C-c r R" . vr/replace) ("C-c r r" . vr/query-replace) ("C-c r m" . vr/mc-mark)))#+END_SRC Newline at the end of file
#+BEGIN_SRC emacs-lisp(setq require-final-newline t)#+END_SRC
Delete the selection with a keypress
#+BEGIN_SRC emacs-lisp(delete-selection-mode t)#+END_SRC
Remember the current location in a file
#+BEGIN_SRC emacs-lisp(use-package saveplace :unless noninteractive :config (save-place-mode))#+END_SRC
* Org Mode** Installation Although org mode ships with Emacs, the latest version can be installed externally. The configuration here follows the [[http://orgmode.org/elpa.html][Org mode ELPA Installation instructions.]] Added a hook to complete org functions, company-capf is necessary for this
#+BEGIN_SRC emacs-lisp(use-package org :ensure org-plus-contrib :init (add-hook 'org-mode-hook 'company/org-mode-hook))(add-hook 'org-mode-hook 'company/org-mode-hook)
#+END_SRC
To avoid problems executing source blocks out of the box. [[https://emacs.stackexchange.com/a/28604][Others have the same problem, too]]. The solution is to remove the .elc files form the package directory:
#+BEGIN_SRC shell var ORG_DIR=(let* ((org-v (cadr (split-string (org-version nil t) "@"))) (len (length org-v))) (substring org-v 1 (- len 2))) rm ${ORG_DIR}/*.elc#+END_SRC
** Setup*** Paths Paths need to be different for work and home
#+BEGIN_SRC emacs-lisp(if (string-equal my/whoami "work_remote") (progn (defvar PATH_ORG_FILES "p:/Eigene Dateien/Notizen/") (defvar PATH_ORG_JOURNAL "p:/Eigene Dateien/Notizen/Journal/") (defvar PATH_START "p:/Eigene Dateien/Notizen/")))
(if (string-equal my/whoami "home") (progn (setq org-default-notes-file "~/Archiv/Dokumente/Notizen/notes.org") (setq org-agenda-files (delq nil (mapcar (lambda (x) (and (file-exists-p x) x)) '("~/Archiv/Dokumente/Agenda"))))) (if (string-equal my/whoami "work_remote") (progn (setq org-default-notes-file (concat PATH_ORG_FILES "notes.org")) (setq org-agenda-files (list(concat PATH_ORG_FILES "notes.org") (concat PATH_ORG_FILES "projects.org") (concat PATH_ORG_FILES "todo.org"))))))
(setq org-id-locations-file (concat PATH_USER_LOCAL ".org-id-locations"))#+END_SRC
*** Settings Speed commands are a nice and quick way to perform certain actions while at the beginning of a heading. It's not activated by default.
See the doc for speed keys by checking out the documentation for speed keys in Org mode.
#+BEGIN_SRC emacs-lisp (setq org-use-speed-commands t) (setq org-image-actual-width 550) (setq org-highlight-latex-and-related '(latex script entities))#+END_SRC
Hide emphasis markup (e.g. / ... / for italics, etc.)
#+BEGIN_SRC emacs-lisp (setq org-hide-emphasis-markers t)#+END_SRC
The default value for the org tag column is -77, which is weird for smaller width windows. I'd rather have the tags align horizontally with the header. 45 is a good column number to do that.
#+BEGIN_SRC emacs-lisp (setq org-tags-column 45)#+END_SRC
*** Org key bindings Set up some global key bindings that integrate with Org mode features
#+BEGIN_SRC emacs-lisp (bind-key "C-c l" 'org-store-link) (bind-key "C-c c" 'org-capture) (bind-key "C-c a" 'org-agenda)#+END_SRC
Org overwrites RET and C-j, so I need to disable the rebinds#+BEGIN_SRC emacs-lisp (define-key org-mode-map (kbd "RET") nil) ;;org-return (define-key org-mode-map (kbd "C-j") nil) ;;org-return-indent#+END_SRC
*** Org agenda For a more detailed example [[https://github.com/sachac/.emacs.d/blob/83d21e473368adb1f63e582a6595450fcd0e787c/Sacha.org#org-agenda][see here]].
Custom todo-keywords, depending on environment
#+BEGIN_SRC emacs-lisp(pcase my/whoami ("work_remote") (setq org-todo-keywords '((sequence "OPEN" "TODO" "UNCLEAR" "|" "DONE" "IMPOSSIBLE"))))#+END_SRC
Sort org agenda by deadline and priority
#+BEGIN_SRC emacs-lisp (setq org-agenda-sorting-strategy (quote ((agenda deadline-up priority-down) (todo priority-down category-keep) (tags priority-down category-keep) (search category-keep))) )#+END_SRC
Customize the org agenda
#+BEGIN_SRC emacs-lisp (defun my-org-skip-subtree-if-priority (priority) "Skip an agenda subtree if it has a priority of PRIORITY.
PRIORITY may be one of the characters ?A, ?B, or ?C." (let ((subtree-end (save-excursion (org-end-of-subtree t))) (pri-value (* 1000 (- org-lowest-priority priority))) (pri-current (org-get-priority (thing-at-point 'line t)))) (if (= pri-value pri-current) subtree-end nil)))
(setq org-agenda-custom-commands '(("c" "Simple agenda view" ((tags "PRIORITY=\"A\"" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) (org-agenda-overriding-header "Hohe Priorität:"))) (agenda "" ((org-agenda-span 7) (org-agenda-start-on-weekday nil) (org-agenda-overriding-header "Nächsten 7 Tage:"))) (alltodo "" ((org-agenda-skip-function '(or (my-org-skip-subtree-if-priority ?A) (org-agenda-skip-if nil '(scheduled deadline)))) (org-agenda-overriding-header "Sonstige Aufgaben:")))))) )#+END_SRC
*** Org capture Work specific org-capture-templates
#+BEGIN_SRC emacs-lisp(pcase my/whoami ("work_remote" (setq org-capture-templates '(("t" "todo" entry (file (concat PATH_ORG_FILES "todo.org")) "** TODO %\\n%u\n%a\n") ("n" "note" entry (file org-default-notes-file)) ("p" "project" entry (file (concat PATH_ORG_FILES "projects.org")) "** OPEN %?\n%u\n** Beschreibung\n** Zu erledigen\n*** \n** Verlauf\n***" :clock-in t :clock-resume t) ("u" "Unterbrechung" entry (file org-default-notes-file) "* Unterbrechnung durch %? :Unterbrechung:\n%t" :clock-in t :clock-resume t)))))#+END_SRC
** Org babel languages This code block is linux specific. Loading languages which aren't available seems to be a problem. New: Load languages on demand. I need to test if this works as intended.#+BEGIN_SRC emacs-lisp(defadvice org-babel-execute-src-block (around load-language nil activate) "Load language if needed" (let ((language (org-element-property :language (org-element-at-point)))) (unless (cdr (assoc (intern language) org-babel-load-languages)) (add-to-list 'org-babel-load-languages (cons (intern language) t)) (org-babel-do-load-languages 'org-babel-load-languages org-babel-load-languages)) ad-do-it))#+END_SRC
BEGIN_SRC emacs-lisp(cond ((eq system-type 'gnu/linux) (org-babel-do-load-languages'org-babel-load-languages '( (C . t) (calc . t) (java . t) (ipython . t) (js . t) (latex . t) (ledger . t) (beancount . t) (lisp . t) (python . t) (R . t) (ruby . t) (scheme . t) (shell . t) (sqlite . t) ) )))END_SRC
#+BEGIN_SRC emacs-lisp(defun my-org-confirm-babel-evaluate (lang body) "Do not confirm evaluation for these languages." (not (or (string= lang "beancount") (string= lang "C") (string= lang "emacs-lisp") (string= lang "ipython") (string= lang "java") (string= lang "ledger") (string= lang "python") (string= lang "R") (string= lang "sqlite"))))(setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)#+END_SRC
TODO: ess belongs to programming languages to start an ess instance C-c C-s#+BEGIN_SRC emacs-lisp (use-package ess :ensure t :init (add-hook 'ess-mode-hook 'company/ess-mode-hook) )(add-hook 'org-babel-after-execute-hook 'org-display-inline-images)(add-hook 'org-mode-hook 'org-display-inline-images)#+END_SRC
** Org babel/source blocks I like to have source blocks properly syntax highlighted and with the editing popup window staying within the same window so all the windows don't jump around. Also, having the top and bottom trailing lines in the block is a waste of space, so we can remove them
I noticed that fontification doesn't work with markdown mode when the block is indented after editing it in the org src buffer - the leading #s for headers don't get fontified properly because they apppear as Org comments. Setting ~org-src-preserve-identation~ makes things consistent as it doesn't pad source blocks with leading spaces
#+BEGIN_SRC emacs-lisp (setq org-src-fontify-natively t org-src-window-setup 'current-window org-src-strip-leading-and-trailing-blank-lines t org-src-preserve-indentation nil ; these two lines respect the indentation of org-edit-src-content-indentation 0 ; the surrounding text around the source block org-src-tab-acts-natively t)#+END_SRC
** Org babel helper functions * Pandoc Convert between formats, like from org to html. Pandoc needs to be installed on the system#+BEGIN_EXAMPLEsudo apt install pandoc #+END_EXAMPLE
Pandoc-mode is a minor mode to interact with pandoc#+BEGIN_SRC emacs-lisp(use-package pandoc-mode :ensure t :init (add-hook 'markdown-mode-hook 'pandoc-mode))#+END_SRC
* Emails Currently following tools are required: - notmuch (edit, read, tag, delete emails) - isync /mbsync (fetch or sync emails)
After setting up mbsync, notmuch must be configured. Execute "notmuch" from the command line to launch the setup wizard. After it, "notmuch new" to create a new database, which will index the available local e-mails.
TODO: - setup of mbsync on linux - setup of notmuch on linux - shell script for installation of isync and notmuch - more config for notmuch? - hydra for notmuch? - maybe org-notmuch? - some way to refresh the notmuch db before I run notmuch?
#+BEGIN_SRC emacs-lisp(unless (string-equal my/whoami "work_remote") (use-package notmuch :defer t :ensure t ))#+END_SRC
* Personal Finances After trying ledger, I chose beancount. It is closer to real bookkeeping and has stricter rules. Since there is no debian package, it is an option to install it via pip. I picked /opt for the installation path
#+BEGIN_EXAMPLEsudo sucd /optpython3 -m venv beancountsource ./beancount/bin/activatepip3 install wheelpip3 install beancountsleep 100echo "shell running!"deactivate#+END_EXAMPLE
When using beancount, it will automatically pick the created virtual environment.
Activate the beancount mode. ATTENTION: This mode is made by myself.
#+BEGIN_SRC emacs-lisp(unless (string-equal my/whoami "work_remote") (load "/home/marc/.emacs.d/user-local/elisp/beancount-mode.el") ; somehow load-path in use-package doesn't work (use-package beancount :load-path "/home/marc/.emacs.d/elisp" :defer t :mode ("\\.beancount$" . beancount-mode) :init (add-hook 'beancount-mode-hook 'company/beancount-mode-hook) (setenv "PATH" (concat "/opt/beancount/bin:" (getenv "PATH")) ) :config (setq beancount-filename-main "/home/marc/Archiv/Finanzen/Transaktionen/transactions.beancount") ))#+END_SRC
Installing fava for reports is strongly recommended.
#+BEGIN_EXAMPLE cd /opt python3 -m venv vava source ./vava/bin/activate pip3 install wheel pip3 install fava deactivate#+END_EXAMPLE
Start fava with#+BEGIN_EXAMPLE fava my_file.beancount#+END_EXAMPLE
It is accessable on this URL: [[http://127.0.0.1:5000][Fava]] Beancount-mode can start fava and open the URL right away. * Programming** Common thingsList of plugins and settings which are shared between the language plugins
Highlight whitespaces, tabs, empty lines.
#+BEGIN_SRC emacs-lisp (use-package whitespace :demand t :ensure nil :diminish whitespace-mode;;mode shall be active, but not shown in mode line :init (dolist (hook '(prog-mode-hook text-mode-hook conf-mode-hook)) (add-hook hook #'whitespace-mode));; :hook ;;not working in use-package 2.3;; ((prog-mode . whitespace-turn-on);; (text-mode . whitespace-turn-on)) :config (setq-default whitespace-style '(face empty tab trailing)) )#+END_SRC
Disable Eldoc, it interferes with flycheck
#+BEGIN_SRC emacs-lisp (use-package eldoc :ensure nil :config (global-eldoc-mode -1) )#+END_SRC
Colorize colors as text with their value#+BEGIN_SRC emacs-lisp (use-package rainbow-mode :ensure t :init (add-hook 'prog-mode-hook 'rainbow-mode t) :diminish rainbow-mode;; :hook prog-mode ;; not working in use-package 2.3 :config (setq-default rainbow-x-colors-major-mode-list '()) )#+END_SRC
Highlight parens etc. for improved readability#+BEGIN_SRC emacs-lisp(use-package rainbow-delimiters :ensure t :config (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))#+END_SRC
Treat CamelCase combined words as individual words#+BEGIN_SRC emacs-lisp(use-package subword :diminish subword-mode :config (add-hook 'python-mode-hook 'subword-mode))#+END_SRC
** Smartparens Smartparens is a beast on its own, so it's worth having a dedicated section for it#+BEGIN_SRC emacs-lisp(use-package smartparens :ensure t :diminish smartparens-mode :config (add-hook 'prog-mode-hook 'smartparens-mode))#+END_SRC** Git*** Magit [[https://magit.vc/manual/magit/index.html][Link]] I want to do git stuff here, not in a separate terminal window
Little crashcourse in magit: - magit-init to init a git project - magit-status (C-x g) to call the status window
in status buffer: - s stage files - u unstage files - U unstage all files - a apply changed to staging - c c commit (type commit message, then C-c C-c to commit) - b b switch to another branch - P u git push - F u git pull
#+BEGIN_SRC emacs-lisp(use-package magit :ensure t :defer t :init ;; set git-path in work environment (if (string-equal user-login-name "POH") (setq magit-git-executable "P:/Eigene Dateien/Tools/Git/bin/git.exe") ) :defer t :bind (("C-x g" . magit-status)))#+END_SRC*** Git-gutter Display line changes in gutter based on git history. Enable it everywhere [[https://github.com/syohex/emacs-git-gutter][Source]]#+BEGIN_SRC emacs-lisp(use-package git-gutter :ensure t :defer t :config (global-git-gutter-mode t) :diminish git-gutter-mode)#+END_SRC Some persistent navigation in git-gutter is nice, so here's a hydra for it: #+BEGIN_SRC emacs-lisp (defhydra hydra-git-gutter (:body-pre (git-gutter-mode 1) :hint nil) "^Git Gutter^ ^Git^ ^misc^^──────────^────────^───^────────────────^────^──────────────────────────_j_: next hunk _s_tage hunk _q_uit_k_: previous hunk _r_evert hunk _g_ : call magit-status_h_: first hunk _p_opup hunk_l_: last hunk set start _R_evision^^ ^^ ^^" ("j" git-gutter:next-hunk) ("k" git-gutter:previous-hunk) ("h" (progn (goto-char (point-min)) (git-gutter:next-hunk 1))) ("l" (progn (goto-char (point-min)) (git-gutter:previous-hunk 1))) ("s" git-gutter:stage-hunk) ("r" git-gutter:revert-hunk) ("p" git-gutter:popup-hunk) ("R" git-gutter:set-start-revision) ("q" nil :color blue) ("g" magit-status))#+END_SRC
*** Git-timemachine Time machine lets me step through the history of a file as recorded in git. [[https://github.com/pidu/git-timemachine][Source]]#+BEGIN_SRC emacs-lisp(use-package git-timemachine :ensure t :defer t)#+END_SRC
** Company ModeComplete Anything!
Activate company and make it react nearly instantly
#+BEGIN_SRC emacs-lisp (use-package company :ensure t :config (setq-default company-minimum-prefix-length 1 company-tooltip-align-annotation t company-tooltop-flip-when-above t company-show-numbers t company-idle-delay 0.1);; (define-key company-active-map (kbd "TAB") #'company-complete-selection);; (define-key company-active-map (kbd "RET") nil) (company-tng-configure-default) )#+END_SRC
For a nicer suggestion box: company-box ([[https://github.com/sebastiencs/company-box][Source]])It is only available for emacs 26 and higher.
#+BEGIN_SRC emacs-lisp(when (> emacs-major-version 25) (use-package company-box :ensure t :init (add-hook 'company-mode-hook 'company-box-mode)))#+END_SRC
*** Company backend hooks
Backend configuration for python-mode
Common backends are: - company-files: files & directory - company-keywords: keywords - company-capf: ?? - company-abbrev: ?? - company-dabbrev: dynamic abbreviations - company-ispell: ??
So far I cannot differenciate a true python mode and a source block of ipython in org-mode, so the python-mode-hook should include both completion backends.
#+BEGIN_SRC emacs-lisp (defun company/python-mode-hook() (message "company/python-mode-hook activated") (set (make-local-variable 'company-backends) '((company-ob-ipython company-jedi))); '((company-jedi company-dabbrev-code company-yasnippet) company-capf company-files)); '((company-lsp company-yasnippet) company-capf company-dabbrev company-files)) (company-mode t) )#+END_SRC
I have yet to find the proper hook to call this.#+BEGIN_SRC emacs-lisp (defun company/ipython-mode-hook() (message "company/ipython-mode-hook activated") (set (make-local-variable 'company-backends) '((company-ob-ipython))) (company-mode t) )#+END_SRC
#+BEGIN_SRC emacs-lisp(defun company/ess-mode-hook() (message "company/ess-mode-hook activated"); (set (make-local-variable 'company-backends); '((company-ess-backend company-R-args company-R-objects))) (company-mode t))#+END_SRC
(defun add-pcomplete-to-capf () (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t));; (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) (add-hook 'org-mode-hook #'add-pcomplete-to-capf)
Backend for Orgmode#+BEGIN_SRC emacs-lisp(defun company/org-mode-hook() (set (make-local-variable 'company-backends) '(company-capf company-files)) (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) (message "company/org-mode-hook") (company-mode t))#+END_SRC
Backend configuration for lisp-mode
#+BEGIN_SRC emacs-lisp (defun company/elisp-mode-hook() (set (make-local-variable 'company-backends) '((company-elisp company-dabbrev) company-capf company-files)) (company-mode t) )#+END_SRC
Backend configuration for beancount
#+BEGIN_SRC emacs-lisp(defun company/beancount-mode-hook() (set (make-local-variable 'company-backends) '(company-beancount)); '((company-beancount company-dabbrev) company-capf company-files)) (company-mode t))#+END_SRC
*** Misc Company packages
Addon to sort suggestions by usage
#+BEGIN_SRC emacs-lisp (use-package company-statistics :ensure t :after company :init (setq company-statistics-file (concat PATH_USER_LOCAL "company-statistics-cache.el"));~/.emacs.d/user-dir/company-statistics-cache.el") :config (company-statistics-mode 1) )#+END_SRC
Get a popup with documentation of the completion candidate.For the popups the package pos-tip.el is used and automatically installed.[[https://github.com/expez/company-quickhelp][Company Quickhelp]][[https://www.emacswiki.org/emacs/PosTip][See here for Pos-Tip details]]
#+BEGIN_SRC emacs-lisp (use-package company-quickhelp :ensure t :after company :config (company-quickhelp-mode 1) )#+END_SRC
Maybe add [[https://github.com/hlissner/emacs-company-dict][company-dict]]? It's a dictionary based on major modes, plus it has Yasnippet integration.
** Flycheck Show errors right away!#+BEGIN_SRC emacs-lisp (use-package flycheck :ensure t :diminish flycheck-mode " ✓" :init (setq flycheck-emacs-lisp-load-path 'inherit) (add-hook 'after-init-hook #'global-flycheck-mode); (add-hook 'python-mode-hook (lambda (); (semantic-mode 1); (flycheck-select-checker 'python-pylint))) )#+END_SRC
** Projectile Brings search functions on project level
#+BEGIN_SRC emacs-lisp(use-package projectile :ensure t :defer t :bind (("C-c p p" . projectile-switch-project) ("C-c p s s" . projectile-ag)) :init (setq-default projectile-cache-file (concat PATH_USER_LOCAL ".projectile-cache") projectile-known-projects-file (concat PATH_USER_LOCAL ".projectile-bookmarks")) :config (projectile-mode t) (setq-default projectile-completion-system 'ivy projectile-enable-caching t projectile-mode-line '(:eval (projectile-project-name))) )#+END_SRC
** Yasnippet Snippets! TODO: yas-minor-mode? what's that?
#+BEGIN_SRC emacs-lisp (use-package yasnippet :ensure t :defer t :diminish yas-minor-mode :init (setq yas-snippet-dirs (concat PATH_USER_GLOBAL "snippets")) (yas-global-mode t) :mode ("\\.yasnippet" . snippet-mode); :config; (yas-reload-all) ;; ensure snippets are updated and available, necessary when not using global-mode )#+END_SRC** Lisp
#+BEGIN_SRC emacs-lisp(add-hook 'emacs-lisp-mode-hook 'company/elisp-mode-hook)#+END_SRC
Add some helpers to handle and understand macros#+BEGIN_SRC emacs-lisp(use-package macrostep :ensure t :defer t :init (define-key emacs-lisp-mode-map (kbd "C-c e") 'macrostep-expand) (define-key emacs-lisp-mode-map (kbd "C-c c") 'macrostep-collapse))#+END_SRC
** Python*** Intro Systemwide following packages need to be installed: - venv - pylint / pylint3 (depending on default python version) flycheck complains if no pylint is available and org tries to fontify python code natively.
The virtual environments need to have following modules installed: - wheel (for some reason it isn't pulled by other packages, yet they complain about missing wheel) - jedi - epc - pylint*** Python-Mode Automatically start python-mode when opening a .py-file. Not sure if python.el is better than python-mode.el. See [[https://github.com/jorgenschaefer/elpy/issues/887][here]] for info about ~python-shell-completion-native-enable~. The custom function is to run inferiour processes (do I really need that?), see [[https://emacs.stackexchange.com/questions/16361/how-to-automatically-run-inferior-process-when-loading-major-mode][here]].
Also limit the completion backends to those which make sense in Python. #+BEGIN_SRC emacs-lisp(use-package python :mode ("\\.py\\'" . python-mode) :interpreter ("python" . python-mode) :defer t :init (add-hook 'python-mode-hook (lambda () 'company/python-mode-hook (semantic-mode t) (flycheck-select-checker 'python-pylint))) :config (setq python-shell-completion-native-enable nil))#+END_SRC*** IPython-Mode Not sure if this configuraton will interfere with Python-Mode#+BEGIN_SRC emacs-lisp(use-package ob-ipython :ensure t :defer t :init (add-hook 'ob-ipython-mode-hook (lambda () 'company/ipython-mode-hook (semantic-mode t) (flycheck-select-checker 'pylint))))#+END_SRC*** Python language server (inactive) First test for lsp-python. Source python language server: [[https://github.com/palantir/python-language-server][Link]] Source lsp-mode: Source lsp-python: [[https://github.com/emacs-lsp/lsp-python][Link]] Source company-lsp: [[https://github.com/tigersoldier/company-lsp][Link]] Source lsp-ui: [[https://github.com/emacs-lsp/lsp-ui][Link]]
BEGIN_SRC emacs-lisp(use-package lsp-mode :ensure t :defer t)
(add-hook 'lsp-mode-hook #'(lambda () (customize-set-variable 'lsp-enable-eldoc nil) (flycheck-mode 1) (company-mode 1)))
(use-package lsp-ui :ensure t :defer t)
(use-package company-lsp :ensure t :defer t)
(use-package lsp-python :ensure t :after lsp-mode :defer t :init (add-hook 'python-mode-hook #'(lambda () (lsp-python-enable) (flycheck-select-checker 'python-flake8))))
END_SRC
*** Jedi / Company Jedi is a backend for python autocompletion and needs to be installed on the server: - pip install jedi Code checks need to be installed, too: - pip install flake8
If jedi doesn't work, it might be a problem with jediepcserver.py. See [[https://github.com/tkf/emacs-jedi/issues/293][here]] To fix it: - Figure out which jediepcserver is running (first guess is melpa/jedi-core../jediepcserver.py - Change some code:
#+BEGIN_SRC python100 return dict(101 # p.get_code(False) should do the job. But jedi-vim use replace.102 # So follow what jedi.vim does...103 - params=[p.get_code().replace('\n', '') for p in call_def.params],103 + params=[p.name for p in call_def.params],104 index=call-def.index,105 - call_name=call_def.call_name,105 + call_name=call_def.name,106 )#+END_SRC
#+BEGIN_SRC emacs-lisp (use-package company-jedi :defer t;; :after company :ensure t :config (setq jedi:environment-virtualenv (list (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/"))) (setq jedi:python-environment-directory (list (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/"))) (add-hook 'python-mode-hook 'jedi:setup) (setq jedi:complete-on-dot t) (setq jedi:use-shortcuts t);; (add-hook 'python-mode-hook 'company/python-mode-hook) )#+END_SRC
*** Virtual Environments A wrapper to handle virtual environments. I strongly recommend to install virtual environments on the terminal, not through this wrapper, but changing venvs is fine.
TODO: automatically start an inferior python process or switch to it if already created
#+BEGIN_SRC emacs-lisp (use-package pyvenv :ensure t :defer t :init (setenv "WORKON_HOME" (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/")) :config (pyvenv-mode t) (defun my/pyvenv-post-activate-hook() (setq jedi:environment-root pyvenv-virtual-env) (setq jedi:environment-virtualenv pyvenv-virtual-env) (setq jedi:tooltip-method '(nil)) ;; variants: nil or pos-tip and/or popup (setq python-shell-virtualenv-root pyvenv-virtual-env) ;; default traceback, other option M-x jedi:toggle-log-traceback ;; traceback is in jedi:pop-to-epc-buffer (jedi:setup);; (company/python-mode-hook) (setq jedi:server-args '("--log-traceback")) (message "pyvenv-post-activate-hook activated")) (add-hook 'pyvenv-post-activate-hooks 'my/pyvenv-post-activate-hook) )#+END_SRC
I want Emacs to automatically start the proper virtual environment. Required is a .python-version file with, content in the first line being /path/to/virtualenv/ [[https://github.com/marcwebbie/auto-virtualenv][Github source]]
Depends on pyvenv#+BEGIN_SRC emacs-lisp (use-package auto-virtualenv :ensure t;; :after pyvenv :defer t :init (add-hook 'python-mode-hook 'auto-virtualenv-set-virtualenv) ;; activate on changing buffers ;; (add-hook 'window-configuration-change-hook 'auto-virtualenv-set-virtualenv) ;; activate on focus in ;; (add-hook 'focus-in-hook 'auto-virtualenv-set-virtualenv) )#+END_SRC
*** Visuals Highlight indentations
#+BEGIN_SRC emacs-lisp(use-package highlight-indentation :init (add-hook 'python-mode-hook 'highlight-indentation-current-column-mode) (add-hook 'python-mode-hook 'highlight-indentation-mode) :config (set-face-background 'highlight-indentation-face "#454545") (set-face-background 'highlight-indentation-current-column-face "#656565"))#+END_SRCBEGIN_SRC emacs-lisp(use-package highlight-indent-guides :ensure t :defer t :init (add-hook 'python-mode-hook 'highlight-indent-guides-mode) :config (setq highlight-indent-guides-method 'column ;'character ;highlight-indent-guides-character ?\| highlight-indent-guides-auto-odd-face-perc 15 highlight-indent-guides-auto-even-face-perc 15 highlight-indent-guides-auto-character-face-perc 20))END_SRC*** Anaconda (inactive) Anaconda test
#+BEGIN_SRC emacs-lisp; (use-package anaconda-mode; :ensure t; :defer t; :init; (add-hook 'python-mode-hook 'anaconda-mode);; (add-hook 'python-mode-hook 'anaconda-eldoc-mode); :config; (setq anaconda-eldoc-mode 1); )#+END_SRC
#+BEGIN_SRC emacs-lisp; (use-package company-anaconda; :ensure t; :defer t; :init; (defun my/company-anaconda-hook(); (add-to-list 'company-backends 'company-anaconda)); (add-hook 'python-mode-hook 'my/company-anaconda-hook); )#+END_SRC
** Latex Requirements for Linux: - Latex - pdf-tools
The midnight mode hook is disabled for now, because CVs with my pic just look weird in this mode.
#+BEGIN_SRC emacs-lisp(unless (string-equal my/whoami "work_remote") (use-package pdf-tools :ensure t :defer t :mode (("\\.pdf\\'" . pdf-view-mode)) :init; (add-hook 'pdf-view-mode-hook 'pdf-view-midnight-minor-mode) :config (pdf-tools-install) (setq pdf-view-resize-factor 1.1 ;; more finegraned zoom pdf-view-midnight-colors '("#c6c6c6" . "#363636") TeX-view-program-selection '((output-pdf "pdf-tools")) TeX-view-program-list '(("pdf-tools" "Tex-pdf-tools-sync-view"))) ))#+END_SRC
For latex-preview-pane a patch might be necessary (as of 2017-10), see the issue [[https://github.com/jsinglet/latex-preview-pane/issues/37][here]] Update 2018-03: It seems to work without this patch. I will keep it here in case something breaks again.#+BEGIN_SRC latex-preview-pane-update-p() --- (doc-view-revert-buffer nil t) +++ (revert-buffer-nil t 'preserve-modes)#+END_SRC After that M-x byte-compile-file
#+BEGIN_SRC emacs-lisp(use-package latex-preview-pane :ensure t :defer t :init ;; one of these works (add-hook 'LaTeX-mode-hook 'latex-preview-pane-mode) (add-hook 'latex-mode-hook 'latex-preview-pane-mode) (setq auto-mode-alist (append '(("\\.tex$" . latex-mode)) auto-mode-alist)))
;; necessary, because linum-mode isn't compatible and prints errors(add-hook 'pdf-view-mode-hook (lambda () (linum-mode -1)))#+END_SRC
** Markdown Major mode to edit markdown files. For previews it needs markdown installed on the system. For debian:#+BEGIN_EXAMPLE sudo apt install markdown #+END_EXAMPLE
#+BEGIN_SRC emacs-lisp (use-package markdown-mode :ensure t :defer t) #+END_SRC
** Hydra FlycheckFlycheck is necessary, obviously
#+BEGIN_SRC emacs-lisp (defhydra hydra-flycheck (:color blue)
"^^Flycheck^ ^Errors^ ^Checker^^────────^──────────^──────^────────────^───────^───────────_q_ quit _<_ previous _?_ describe_m_ manual _>_ next _d_ disable_v_ verify setup _f_ check _s_ select^^ ^^ ^^" ("q" nil) ("<" flycheck-previous-error :color red) (">" flycheck-next-error :color red) ("?" flycheck-describe-checker) ("d" flycheck-disable-checker) ("f" flycheck-buffer) ("m" flycheck-manual) ("s" flycheck-select-checker) ("v" flycheck-verify-setup) )#+END_SRC
* Orchestrate the configuration Some settings should be set for all systems, some need to be specific (like my job-emacs doesn't need development tools).
** Common
** Home
** Work I mainly only use org** Work, Hyper-V For testing purproses I keep a working emacs in a debian on hyper-v. The demands here are different to the other work-emacs
* Finishing Stuff which I want to run in the end
#+BEGIN_SRC emacs-lisp(message (emacs-init-time))#+END_SRC
|
