tastytea/.emacs.d
tastytea/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Activity
306f0e0fb0
.emacs.d/init.el
tastytea 306f0e0fb0 Prioritize elpa (unstable). 
There was a bug in the tabbar I couldn't trace to a specific package.
Whenever a tab was in an edited state and the 2nd tab in the 1st frame
was selected, all the tabs were hidden.
2019-03-26 19:11:45 +01:00

691 lines
21 KiB
EmacsLisp
Raw Blame History

;;; init.el --- tastytea's Emacs init file.
;;; Time-stamp: <2019-03-26 19:10:33 CET>
;;; Commentary:
;;; I am using this file with Emacs 26, but most of it will probably work with
;;; Emacs 24 and above.
;;; Code:
;;;;;;;;;;;;;;;;;;;; Packages ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'package)
(add-to-list 'package-archives
'("melpa-stable" . "https://stable.melpa.org/packages/") t)
(add-to-list 'package-archives
'("melpa" . "https://melpa.org/packages/") t)
(setq package-archive-priorities '(("gnu" . 1)
("melpa-stable" . 2)
("melpa" . 3)))
(package-initialize)
;; Add path for custom packages.
(add-to-list 'load-path "~/.emacs.d/custom-packages/")
;; Install use-package if necessary.
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
(eval-when-compile
(require 'use-package))
;; Always install packages if they are not present.
(require 'use-package-ensure)
(setq use-package-always-ensure t)
;; autocompile files as needed.
(use-package auto-compile
:init
;; Use uncompiled file if it is newer than the compiled one.
(setq load-prefer-newer t)
:config
(auto-compile-on-load-mode))
;; ;; Benchmark for startup-file.
;; (use-package benchmark-init
;; :config
;; ;; To disable collection of benchmark data after init is done.
;; (add-hook 'after-init-hook 'benchmark-init/deactivate))
;; Update packages if at least 7 days have passed.
(use-package auto-package-update
:custom
(auto-package-update-delete-old-versions t)
(auto-package-update-interval 7)
(auto-package-update-hide-results nil)
:config
(auto-package-update-maybe))
;;;;;;;;;;;;;;;;;;;; Global variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Determine if we run on a slow computer.
(defvar slow-computer nil)
(if (member (system-name) '("steuerbeamter" "azimuth" "localhost"))
(setq slow-computer t)) ; localhost is schnibble
;;;;;;;;;;;;;;;;;;;; Configure some essential things ;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Set garbage collection threshold to 100 MiB (or 20 MiB) to speed up init.
;; It is reset at the end of the file.
(if slow-computer
(setq gc-cons-threshold (* 20 1024 1024))
(setq gc-cons-threshold (* 100 1024 1024)))
;; Accelerate startup by not printing so much.
(setf inhibit-startup-screen t
inhibit-startup-echo-area-message t
inhibit-startup-message t)
;; Just type y/n instead of yes/no when prompted.
(defalias 'yes-or-no-p 'y-or-n-p)
;; Hide toolbar.
(tool-bar-mode -1)
;; Save cursor position.
(use-package saveplace
:config
(save-place-mode t))
;; Delete selection when you start to write.
(delete-selection-mode t)
;; Save minibuffer history.
(savehist-mode t)
;; Save backups in ~/.emacs.d/backups/ and keep more versions.
(setq backup-directory-alist
`(("." . ,(concat user-emacs-directory "backups"))))
(setq delete-old-versions t ; Delete old backups.
kept-new-versions 6 ; Keep 6 newest backups.
backup-by-copying t ; Copy to backup folder.
version-control t) ; Append version numbers to file names.
;; Save auto-saves in ~/.emacs.d/backups/.
(setq auto-save-file-name-transforms
`((".*" ,(concat user-emacs-directory "backups/") t)))
;; Set some personal information.
(setq user-full-name "tastytea"
user-mail-address "tastytea@tastytea.de")
;; kill-region (cut) and kill-ring-save (copy) act on the current line if no
;; text is visually selected.
;; https://www.emacswiki.org/emacs/WholeLineOrRegion
(put 'kill-ring-save 'interactive-form
'(interactive
(if (use-region-p)
(list (region-beginning) (region-end))
(list (line-beginning-position) (line-beginning-position 2)))))
(put 'kill-region 'interactive-form
'(interactive
(if (use-region-p)
(list (region-beginning) (region-end))
(list (line-beginning-position) (line-beginning-position 2)))))
;; Banish customizations to another file.
(setq custom-file (concat user-emacs-directory "custom.el"))
;; Scroll 1 line at a time.
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))
;; ;; Never recenter cursor while scrolling.
;; (setq scroll-conservatively 101)
;; Scroll before cursor has reached top/bottom.
;; Way too slow with fci-mode and highlight-indent-guides activated.
(use-package smooth-scrolling
:config
(smooth-scrolling-mode 1))
;; Paste text where the cursor is, not where the mouse is.
(setq mouse-yank-at-point t)
;; Put scrollbar to the right side.
(if (display-graphic-p)
(set-scroll-bar-mode 'right))
;;;;;;;;;;;;;;;;;;;; Keybindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package bind-key
:config
(bind-keys
;; Scroll in other window.
("S-<prior>" . scroll-other-window-down)
("S-<next>" . scroll-other-window)
;; Switch window
("C-<tab>" . other-window)
;; Reduce whitespace around cursor to 0 or 1, according to context.
("C-<delete>" . fixup-whitespace)
;; Scroll without moving the cursor.
("M-<down>" . scroll-up-line)
("M-<up>" . scroll-down-line)))
;;;;;;;;;;;;;;;;;;;; Programming / C++ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(unless slow-computer
(use-package rtags
:if (executable-find "llvm-config")
:if (executable-find "clang++")
:config
(unless (and (rtags-executable-find "rc") (rtags-executable-find "rdm"))
(progn
(message "RTags is not installed!")
(rtags-install)))
(rtags-enable-standard-keybindings)
:bind
(:map c-mode-base-map
("M-." . rtags-find-symbol-at-point)
("M-," . rtags-find-references-at-point)
("M-?" . rtags-display-summary))
:hook
(c++-mode . (rtags-start-process-unless-running))
(c-mode . (rtags-start-process-unless-running))
(kill-emacs . rtags-quit-rdm)))
(use-package flycheck-rtags
:after (flycheck rtags)
:demand t
:config
;; ensure that we use only rtags checking.
;; https://github.com/Andersbakken/rtags#optional-1
(defun my/setup-flycheck-rtags ()
(flycheck-select-checker 'rtags)
(setq-local flycheck-highlighting-mode nil)) ; Can't disable RTags overlay.
:hook
(c-mode-hook . my/setup-flycheck-rtags)
(c++-mode-hook . my/setup-flycheck-rtags))
(use-package company-rtags
:after (company rtags)
:custom
(rtags-completions-enabled t)
:config
;; (setq rtags-autostart-diagnostics t)
;; (rtags-diagnostics)
(push 'company-rtags company-backends))
;; cmake integration.
(unless slow-computer
(use-package cmake-ide
:after rtags
:custom
(cmake-ide-build-dir "build")
:config
(cmake-ide-setup)))
;;;;;;;;;;;;;;;;;;;; Programming / other ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Online documentation mode.
(use-package eldoc
:hook
(prog-mode . turn-on-eldoc-mode))
;; Syntax checking with many plugins.
(unless slow-computer
(use-package flycheck
:config
(global-flycheck-mode)))
;; Autocompletion mode with many plugins.
(unless slow-computer
(use-package company
:hook
(after-init . global-company-mode)))
;; Fuzzy autocompletion for company.
(use-package company-flx
:after company
:config
(company-flx-mode +1))
;; Indentation
(setq-default indent-tabs-mode nil
tab-width 4)
(setq c-default-style "linux"
c-basic-offset 4)
;; Automatic project management.
(unless slow-computer
(use-package projectile
:after neotree
:config
(projectile-mode +1)
(setq projectile-switch-project-action 'neotree-projectile-action
projectile-project-compilation-dir "build"
projectile-project-configure-cmd
"cmake -DCMAKE_BUILD_TYPE=Debug
-DCMAKE_EXPORT_COMPILE_COMMANDS=ON -G 'Unix Makefiles' .."
projectile-project-compilation-cmd "cmake --build .")
(defun my/projectile-kill-buffers-and-change-tabbar-grouping ()
"Kill project buffers and change tabbar-ruler grouping to user-buffers."
(interactive)
(projectile-kill-buffers)
(tabbar-ruler-group-user-buffers))
:bind
("C-c p" . 'projectile-command-map)
(:map projectile-command-map
("k" . 'my/projectile-kill-buffers-and-change-tabbar-grouping))))
;; GUI for gdb and other debuggers.
(use-package realgud
:config
(defun my/load-realgud ()
(load-library "realgud"))
:hook
(c++-mode . my/load-realgud)
(c-mode . my/load-realgud))
;; Highlight TODO, FIXME, NOTE and so on.
(use-package hl-todo
:hook
(prog-mode . hl-todo-mode))
;; Better commenting.
(use-package smart-comment
:bind
("C-x c" . smart-comment))
;; Toggle betweeen beginning/end of line and beginning/end of code.
(use-package mwim
:bind
("<home>" . mwim-beginning-of-line-or-code)
("<end>" . mwim-end-of-line-or-code))
;; Auto-type closing brackets.
(electric-pair-mode t)
;; Fold code.
(use-package fold-dwim
:bind
("<f7>" . fold-dwim-toggle)
("C-x t" . fold-dwim-toggle)
:hook
(prog-mode . hs-minor-mode))
;; Highlight indentation levels.
(use-package highlight-indent-guides
:custom
(highlight-indent-guides-method 'character)
(highlight-indent-guides-responsive 'top)
:hook
(prog-mode . highlight-indent-guides-mode))
;; Tries to find structures and jumps to them.
(use-package imenu-anywhere
:after ido-completing-read+
:bind
("M-i" . imenu-anywhere))
;;;;;;;;;;;;;;;;;;;; Appearance ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Icons (required by doom).
(use-package all-the-icons
:config
(unless (file-exists-p "~/.local/share/fonts/all-the-icons.ttf")
(all-the-icons-install-fonts t)))
;; Themes for doom-modeline.
(unless slow-computer
(use-package doom-themes
:after (all-the-icons neotree)
:custom
(doom-neotree-file-icons 'icons)
:config
(load-theme 'doom-molokai t)
(doom-themes-neotree-config)))
;; Neat modeline.
(use-package doom-modeline
:after all-the-icons
:init
(column-number-mode t) ; Show column numbers in modeline.
:config
(setq doom-modeline-minor-modes t)
:hook
(after-init . doom-modeline-mode))
;; Miscellaneous visual improvements.
(set-face-font 'default "Source Code Pro")
(global-hl-line-mode t) ; Highlight current line.
(size-indication-mode) ; Buffer size display in the modeline.
(show-paren-mode t) ; Visualize matching parens.
;; Show line numbers on the left side of the buffer.
(use-package display-line-numbers
:if (>= emacs-major-version 26)
:config
(global-display-line-numbers-mode))
;; Colored man pages
(use-package man
:defer t
:custom-face
(Man-overstrike ((t (:inherit font-lock-type-face :bold t))))
(Man-underline ((t (:inherit font-lock-keyword-face :underline t)))))
;;;;;;;;;;;;;;;;;;;; Misc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Show directory tree in a window.
(use-package neotree
:demand t
:after all-the-icons
:custom
(neo-smart-open t)
(neo-show-updir-line t) ; Disabled by doom-themes?
(neo-window-width 30)
:bind
("<f8>" . neotree-toggle))
;; Git integration.
(unless slow-computer
(use-package magit
:init
(use-package git-commit)
:config
(defun my/magit-kill-buffers (arg)
"Restore window configuration and kill all Magit buffers."
(interactive)
(let ((buffers (magit-mode-get-buffers)))
(magit-restore-window-configuration)
(mapc #'kill-buffer buffers)))
:bind
("C-x g" . magit-status)
("C-x M-g" . magit-dispatch)
;; (:map magit-status-mode-map
;; ("q" . my-magit-kill-buffers))
:custom
;; What's better, mapping q or binding the function here?
(magit-bury-buffer-function 'my/magit-kill-buffers)))
;; Draw line in column 80
(use-package fill-column-indicator
:after company
:init
(defun my/set-fill-column-80 ()
"Set fill-column to 80."
(set-fill-column 80))
:config
;; Fix bug with fci + company.
(defun my/on-off-fci-before-company(command)
(when (string= "show" command)
(turn-off-fci-mode))
(when (string= "hide" command)
(turn-on-fci-mode)))
(advice-add 'company-call-frontends :before #'my/on-off-fci-before-company)
:hook
(prog-mode . my/set-fill-column-80)
(conf-mode . my/set-fill-column-80)
(prog-mode . fci-mode)
(text-mode . fci-mode))
;; Interactive substring matching.
(use-package ido
:defer 5
:config
(ido-mode t)
(ido-everywhere t))
;; Flexible matching for ido.
(use-package flx-ido
:after ido
:custom
(ido-enable-flex-matching t)
(ido-ignore-extensions t) ; Ignore extension like ~ and .o.
(ido-use-virtual-buffers t) ; Use history of recently opened buffers.
(recentf-max-saved-items 20) ; Keep this number of buffers in history.
:config
(flx-ido-mode t))
;; Replaces stock emacs completion with ido completion wherever it is possible.
(unless slow-computer
(use-package ido-completing-read+
:after ido
:config
(ido-ubiquitous-mode t)))
;; Advanced tab bar.
(unless slow-computer
(use-package tabbar-ruler
:pin melpa ; Faces are not correctly applied,
:after projectile ; version from >=2016-08-02 is needed.
:init
(setq tabbar-ruler-global-tabbar t)
:config
;; (tabbar-ruler-group-by-projectile-project) ; Group by projectile.
;; (tabbar-ruler-group-buffer-groups) ; Group by file type.
(tabbar-ruler-group-user-buffers) ; Group by frame.
;; (mode-icons-mode 0) ; Disable modeline symbols.
;; I have to define these 2 times, don't know why.
(set-face-attribute 'tabbar-selected nil
:background "gray11"
:foreground "light gray"
:family "Sans Serif"
:bold t)
(set-face-attribute 'tabbar-unselected nil
:background "gray18"
:foreground "dark gray"
:family "Sans Serif"
:italic t)
(add-hook 'projectile-after-switch-project-hook ; Does not work under :hook.
'tabbar-ruler-group-by-projectile-project)
:bind
("C-<prior>" . 'tabbar-ruler-tabbar-backward-tab)
("C-<next>" . 'tabbar-ruler-tabbar-forward-tab)
:custom-face
;; I Have to define these 2 times, don't know why.
(tabbar-selected (nil
:background "gray11"
:foreground "light gray"
:family "Sans Serif"
:bold t))
(tabbar-unselected (nil
:background "gray18"
:foreground "dark gray"
:family "Sans Serif"
:italic t))))
;; Visualize whitespace.
(use-package whitespace
:config
(delete 'newline-mark whitespace-style) ; Don't paint $ at eol.
(delete 'lines whitespace-style) ; Don't paint lines red if too long.
;; Don't show dots in company menu.
(defun my/on-off-whitespace-before-company(command)
(when (string= "show" command)
(whitespace-mode -1))
(when (string= "hide" command)
(whitespace-mode t)))
(advice-add 'company-call-frontends
:before #'my/on-off-whitespace-before-company)
:bind
("C-x w" . 'whitespace-mode)
:hook
(prog-mode . whitespace-mode)
(conf-mode . whitespace-mode)
:custom-face
(whitespace-space ((nil :foreground "gray18"))))
;; Spell checking.
(if (or (executable-find "aspell")
(executable-find "hunspell")
(executable-find "ispell"))
(unless slow-computer
(use-package flyspell
:init
(defun my/delete-flyspell-keybinding ()
"Delete \"C-;\" keybinding because iedit needs it."
(define-key flyspell-mode-map (kbd "C-;") nil))
:custom
(ispell-dictionary "english")
:config
(defun my/toggle-flyspell ()
"Toggle flyspell-mode and run flyspell-buffer after activating."
(interactive)
(if (bound-and-true-p flyspell-mode)
(flyspell-mode 0)
(flyspell-mode)
(flyspell-buffer)))
:bind
("<f6>" . my/toggle-flyspell)
:hook
;; Spellcheck comments.
(prog-mode . flyspell-prog-mode)
(flyspell-prog-mode . my/delete-flyspell-keybinding))))
;; Multiple cursors.
(use-package multiple-cursors
:init
(global-unset-key (kbd "M-<down-mouse-1>"))
:bind
("C-x M-m" . mc/edit-lines)
("M-<mouse-1>" . mc/add-cursor-on-click))
;; If 2 files have the same name, append directory name after the filename.
(use-package uniquify
:ensure nil ; Included in emacs
:custom
(uniquify-after-kill-buffer-p t)
(uniquify-buffer-name-style 'post-forward)
(uniquify-strip-common-suffix t))
;; Delete old buffers.
;; https://www.emacswiki.org/emacs/CleanBufferList
(use-package midnight
:init
(setq midnight-delay 0) ; 0 seconds after "midnight"
:custom
(clean-buffer-list-delay-general 1) ; Clean normal bufs after 1d.
(clean-buffer-list-delay-special (* 30 60)) ; Clean special bufs after 30m.
:config
(setq clean-buffer-list-kill-regexps ; Add these to special buffers.
(nconc clean-buffer-list-kill-regexps
'("\\`magit-?.*:"
"\\.log\\'")))
(setq midnight-period (* 1 60 60)) ; Clean every 1 hours.
(midnight-mode t))
;; The string Time-stamp: <> in the first 8 lines of the file will be updated
;; with the current timestamp.
(use-package time-stamp
:custom
(time-stamp-format "%:y-%02m-%02d %02H:%02M:%02S %Z")
:hook
(before-save . time-stamp))
;; Edit multiple regions in the same way simultaneously.
(use-package iedit
:bind
("C-;" . iedit-mode))
;; Mode for writing blog posts with hugo.
(if (string= (system-name) "ventiloplattform")
(use-package easy-hugo
:custom
(easy-hugo-basedir "~/Projekte/www/blog.tastytea.de/")
(easy-hugo-url "https://blog.tastytea.de")
(easy-hugo-previewtime "300")
(easy-hugo-postdir "content/posts")
(easy-hugo-default-ext ".adoc")
:bind
("C-c h" . easy-hugo)
:mode
;; The mode is not turned on?
("\\`'\\*Easy-hugo\\*\\'" . easy-hugo-mode)))
;; Automatically insert text in new files.
(use-package autoinsert
:init
;; I only use it in here for now
(use-package yasnippet)
(defun my/autoinsert-yas-expand()
"Replace text in yasnippet template."
(yas-minor-mode t)
(yas-expand-snippet (buffer-string) (point-min) (point-max)))
:config
(add-to-list 'auto-insert-alist
'(("\\.\\(cpp\\|cc\\|cxx\\|c\\+\\+\\)\\'" . "C++ program") .
["cpp" my/autoinsert-yas-expand]))
(add-to-list 'auto-insert-alist
'(("\\.\\(hpp\\|hh\\|hxx\\|h\\+\\+\\)\\'" . "C++ header") .
["hpp" my/autoinsert-yas-expand]))
(add-to-list 'auto-insert-alist
'(("\\.[1-9]\\.adoc\\'" . "AsciiDoc manpage") .
["manpage.adoc" my/autoinsert-yas-expand]))
:custom
(auto-insert-directory (concat user-emacs-directory "auto-insert"))
(auto-insert-query nil) ; Don't ask before inserting.
:hook
(find-file . auto-insert))
;;;;;;;;;;;;;;;;;;;; File formats ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package adoc-mode
:mode
(("\\.adoc" . adoc-mode))
:hook
(adoc-mode . visual-line-mode))
(use-package markdown-mode
:custom
(markdown-command "cmark")
:mode
(("README\\.md\\'" . gfm-mode)
("\\.md\\'" . markdown-mode)
("\\.markdown\\'" . markdown-mode))
:hook
(markdown-mode . visual-line-mode)
)
(use-package crontab-mode
:mode
(("/cron\\.d/" . crontab-mode))
("\\`'/etc/crontab\\'" . crontab-mode))
(use-package nginx-mode
:defer t)
(use-package company-nginx
:after nginx-mode
:hook
(nginx-mode . company-nginx-keywords))
;;;;;;;;;;;;;;;;;;;; Server / Remote editing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Edit remote files.
(unless slow-computer
(use-package tramp
:config
;; ssh is faster than scp and supports ports.
(setq tramp-default-method "ssh")
;; Add verification code support.
(customize-set-variable
'tramp-password-prompt-regexp
(concat
"^.*"
(regexp-opt
'("passphrase" "Passphrase"
"password" "Password"
"Verification code")
t)
".*:\0? *"))
;; Respect remote PATH.
(add-to-list 'tramp-remote-path 'tramp-own-remote-path)))
;; Run server if:
;; - Our EUID is not 0,
;; - We are not logged in via SSH,
;; - It is not already running.
(unless (equal (user-real-uid) 0)
(unless (getenv "SSH_CONNECTION")
(use-package server
:defer 5
:init
(setq server-use-tcp t
server-port 51313
server-auth-key ; 64 chars, saved in ~/.emacs.d/server/server.
"phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh")
:config
(unless (server-running-p)
(server-start))
)))
;; Set garbage collection threshold to original value.
(setq gc-cons-threshold (car (get 'gc-cons-threshold 'standard-value)))
(provide 'init)
;;; init.el ends here
Reference in New Issue View Git Blame Copy Permalink