e86d0101d5
Change-Id: Iae09dd79494d65e4025e1e34ab1d848ef2b9cd47 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5722 Tested-by: BuildkiteCI Autosubmit: sterni <sternenseemann@systemli.org> Reviewed-by: sterni <sternenseemann@systemli.org>
355 lines
11 KiB
EmacsLisp
355 lines
11 KiB
EmacsLisp
;; Set default font and fallback font via set-fontset-font
|
|
;; TODO(sterni): Investigate why ZWJ sequences aren't shaped properly
|
|
(let ((mono-font "Bitstream Vera Sans Mono-12")
|
|
(emoji-font "Noto Color Emoji-12"))
|
|
(setq default-frame-alist `((font . ,mono-font)))
|
|
(set-frame-font mono-font t t)
|
|
(set-fontset-font t nil emoji-font))
|
|
|
|
(setq inhibit-startup-message t
|
|
display-time-24hr-format t
|
|
select-enable-clipboard t)
|
|
|
|
;; Reload files
|
|
(global-auto-revert-mode 1)
|
|
|
|
;; Indent
|
|
(setq-default indent-tabs-mode nil)
|
|
(setq tab-width 2
|
|
css-indent-offset tab-width)
|
|
|
|
;; UTF-8
|
|
(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)
|
|
|
|
;; Disable unnecessary GUI elements
|
|
(scroll-bar-mode 0)
|
|
(menu-bar-mode 0)
|
|
(tool-bar-mode 0)
|
|
|
|
(add-hook 'after-make-frame-functions
|
|
(lambda (frame) (scroll-bar-mode 0)))
|
|
|
|
;; don't center on cursor when scrolling
|
|
(setq scroll-conservatively 1)
|
|
|
|
;; type less
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; Extra settings when graphical session
|
|
(when window-system
|
|
(setq frame-title-format '(buffer-file-name "%f" ("%b")))
|
|
(mouse-wheel-mode t)
|
|
(blink-cursor-mode -1))
|
|
|
|
;; /tmp is a tmpfs, but we may want to recover from power loss
|
|
(custom-set-variables
|
|
`(temporary-file-directory ,(concat (getenv "HOME") "/.emacs/tmp")))
|
|
|
|
(setq auto-save-file-name-transforms
|
|
`((".*" ,temporary-file-directory t)))
|
|
(setq backup-directory-alist
|
|
`((".*" . ,temporary-file-directory)))
|
|
(setq undo-tree-history-directory-alist
|
|
`((".*" . ,temporary-file-directory)))
|
|
(setq backup-by-copying t)
|
|
(setq create-lockfiles nil)
|
|
|
|
;; save history
|
|
(savehist-mode)
|
|
(setq savehist-additional-variables '(search-ring regexp-search-ring magit-cl-history))
|
|
|
|
;; buffers
|
|
|
|
;; performance migitations
|
|
(global-so-long-mode)
|
|
|
|
;; unique component should come first for better completion
|
|
(setq uniquify-buffer-name-style 'forward)
|
|
|
|
;; completions
|
|
(ido-mode 1)
|
|
(setq ido-enable-flex-matching t)
|
|
(ido-everywhere)
|
|
(fido-mode)
|
|
|
|
;; Display column numbers
|
|
(column-number-mode t)
|
|
(setq-default fill-column 80)
|
|
(setq display-fill-column-indicator-column t)
|
|
(add-hook 'prog-mode-hook #'display-fill-column-indicator-mode)
|
|
|
|
;; whitespace
|
|
(setq whitespace-style '(face trailing tabs)
|
|
whitespace-line-column fill-column)
|
|
(add-hook 'prog-mode-hook #'whitespace-mode)
|
|
(setq-default indicate-empty-lines t)
|
|
(setq-default indicate-buffer-boundaries 'left)
|
|
(setq sentence-end-double-space nil)
|
|
|
|
;;; Configure built in modes
|
|
|
|
;; Perl
|
|
(setq perl-indent-level 2)
|
|
(setq perl-continued-statement-offset 0)
|
|
(setq perl-continued-brace-offset 0)
|
|
|
|
;; org mode
|
|
|
|
(setq org-clock-persist 'history)
|
|
(org-clock-persistence-insinuate)
|
|
|
|
(let ((org-folder (concat (getenv "HOME") "/files/sync/org")))
|
|
(setq org-agenda-files (directory-files-recursively org-folder "\\.org$")
|
|
org-default-notes-file (concat org-folder "/inbox.org")
|
|
initial-buffer-choice org-default-notes-file))
|
|
|
|
;; load org-tracker and mutable config on work laptop
|
|
(let ((org-tracker-src (concat (getenv "HOME")
|
|
"/src/el/org-tracker")))
|
|
(when (file-exists-p org-tracker-src)
|
|
(add-to-list 'load-path org-tracker-src)
|
|
|
|
(use-package org-tracker
|
|
:hook (org-mode . org-tracker-mode)
|
|
:config
|
|
(let ((jira-config (concat (getenv "HOME")
|
|
"/.config/emacs-custom/pa-jira.el")))
|
|
(when (file-exists-p jira-config) (load jira-config))))))
|
|
|
|
;; latex
|
|
|
|
(defun latex-word-count ()
|
|
"Calls texcount on the file the current buffer points to and displays the result."
|
|
(interactive)
|
|
(save-buffer)
|
|
(let* ((file (buffer-file-name)) ; needs to happen outside with-current-buffer
|
|
(word-count
|
|
(with-output-to-string
|
|
(with-current-buffer standard-output
|
|
(call-process "texcount" nil t nil "-brief" "-utf8" file)))))
|
|
(message (string-trim-right word-count))))
|
|
|
|
;; ediff
|
|
; doesn't create new window for ediff controls which I always open accidentally
|
|
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
|
|
|
|
;; man
|
|
(setq Man-notify-method 'pushy) ; display man page in current window
|
|
|
|
;; shell
|
|
|
|
; default, but allows ';' as prompt
|
|
(setq shell-prompt-pattern "^[^#$%>;\n]*[#$%>;] *")
|
|
|
|
;; projects (see also evil config)
|
|
|
|
(defun project-magit ()
|
|
"Run magit in the current project dir"
|
|
(interactive)
|
|
(magit (project-root (project-current t))))
|
|
|
|
(define-key project-prefix-map (kbd "G") 'project-magit)
|
|
|
|
(setq project-switch-commands
|
|
'((project-find-file "Find file")
|
|
(project-find-regexp "Find regexp")
|
|
(project-dired "Dired")
|
|
(project-shell "Shell")
|
|
(project-magit "Magit")))
|
|
|
|
;;; Configure packages
|
|
(require 'use-package)
|
|
|
|
(package-initialize)
|
|
|
|
(use-package undo-tree
|
|
:config
|
|
(global-undo-tree-mode)
|
|
(setq undo-tree-auto-save-history t))
|
|
|
|
(use-package magit
|
|
:after evil
|
|
:config
|
|
; reset (buffer-local) fill-column value to emacs' default
|
|
; gerrit doesn't like 80 column commit messages…
|
|
(add-hook 'git-commit-mode-hook (lambda () (setq fill-column 72)))
|
|
(evil-define-key 'normal 'global (kbd "<leader>gr") 'magit-status))
|
|
(use-package tvl
|
|
:after magit
|
|
:custom tvl-depot-path (concat (getenv "HOME") "/src/depot"))
|
|
|
|
(setq ediff-split-window-function 'split-window-horizontally)
|
|
|
|
(use-package evil
|
|
:init
|
|
(setq evil-want-integration t)
|
|
(setq evil-want-keybinding nil)
|
|
(setq evil-shift-width 2)
|
|
(setq evil-split-window-below t)
|
|
(setq evil-split-window-right t)
|
|
(setq evil-undo-system 'undo-tree)
|
|
:config
|
|
(evil-mode 1)
|
|
(evil-set-leader 'normal ",") ;; TODO(sterni): space would be nice, but…
|
|
(evil-set-leader 'visual ",")
|
|
;; buffer management
|
|
(evil-define-key 'normal 'global (kbd "<leader>bk") 'kill-buffer)
|
|
(evil-define-key 'normal 'global (kbd "<leader>bb") 'switch-to-buffer)
|
|
(evil-define-key 'normal 'global (kbd "<leader>bo") 'switch-to-buffer-other-window)
|
|
(evil-define-key 'normal 'global (kbd "<leader>bl") 'list-buffers)
|
|
(evil-define-key 'normal 'global (kbd "<leader>br") 'revert-buffer)
|
|
;; window management: C-w hjkl is annoying in neo
|
|
(define-key evil-window-map (kbd "<left>") 'evil-window-left)
|
|
(define-key evil-window-map (kbd "<right>") 'evil-window-right)
|
|
(define-key evil-window-map (kbd "<up>") 'evil-window-up)
|
|
(define-key evil-window-map (kbd "<down>") 'evil-window-down)
|
|
;; projects
|
|
(evil-define-key 'normal 'global (kbd "<leader>pf") 'project-find-file)
|
|
(evil-define-key 'normal 'global (kbd "<leader>pg") 'project-find-regexp)
|
|
(evil-define-key 'normal 'global (kbd "<leader>pd") 'project-dired)
|
|
(evil-define-key 'normal 'global (kbd "<leader>ps") 'project-shell)
|
|
(evil-define-key 'normal 'global (kbd "<leader>pR") 'project-query-replace-regexp)
|
|
(evil-define-key 'normal 'global (kbd "<leader>pK") 'project-kill-buffers)
|
|
(evil-define-key 'normal 'global (kbd "<leader>pp") 'project-switch-project)
|
|
;; emacs
|
|
(evil-define-key 'visual 'global (kbd "<leader>ee") 'eval-region)
|
|
(evil-define-key 'normal 'global (kbd "<leader>ee") 'eval-last-sexp)
|
|
(evil-define-key 'normal 'global (kbd "<leader>ep") 'eval-print-last-sexp)
|
|
(evil-define-key 'normal 'global (kbd "<leader>eh") 'help)
|
|
(evil-define-key 'normal 'global (kbd "<leader>em") 'man)
|
|
(evil-define-key '(normal visual) 'global (kbd "<leader>eu") 'browse-url-at-point)
|
|
(evil-define-key '(normal visual) 'global (kbd "<leader>ef") 'ffap)
|
|
;; modify what is displayed
|
|
(evil-define-key 'normal 'global (kbd "<leader>dw")
|
|
(lambda ()
|
|
(interactive)
|
|
(whitespace-mode 'toggle)
|
|
(display-fill-column-indicator-mode 'toggle)))
|
|
;; org-mode
|
|
(evil-define-key 'normal 'global (kbd "<leader>oa") 'org-agenda)
|
|
(evil-define-key 'normal 'global (kbd "<leader>oc") 'org-capture))
|
|
|
|
(use-package evil-collection
|
|
:after evil
|
|
:config
|
|
(evil-collection-init))
|
|
|
|
;; parens
|
|
(use-package rainbow-delimiters
|
|
:hook ((prog-mode . rainbow-delimiters-mode)))
|
|
|
|
(setq show-paren-delay 0)
|
|
(show-paren-mode)
|
|
|
|
(use-package paredit
|
|
:hook ((emacs-lisp-mode . paredit-mode)
|
|
(lisp-mode . paredit-mode)
|
|
(ielm-mode . paredit-mode)
|
|
(lisp-interaction-mode . paredit-mode)))
|
|
|
|
(use-package which-key :config (which-key-mode t))
|
|
|
|
(use-package nix-mode :mode "\\.nix\\'")
|
|
(use-package nix-drv-mode :mode "\\.drv\\'")
|
|
|
|
(use-package direnv
|
|
:config (direnv-mode))
|
|
|
|
(use-package editorconfig
|
|
:config (editorconfig-mode 1))
|
|
|
|
(use-package haskell-mode)
|
|
(use-package lsp-mode
|
|
:hook ((haskell-mode . lsp-deferred))
|
|
:commands (lsp lsp-deferred)
|
|
:custom
|
|
lsp-modeline-code-actions-segments '() ; using lsp-ui-sideline instead
|
|
:config
|
|
(evil-define-key 'normal 'global
|
|
(kbd "<leader>lwr") 'lsp-workspace-restart
|
|
(kbd "<leader>lwq") 'lsp-workspace-shutdown
|
|
(kbd "<leader>la=") 'lsp-format-buffer
|
|
(kbd "<leader>lar") 'lsp-rename
|
|
(kbd "<leader>laa") 'lsp-execute-code-action))
|
|
(use-package lsp-ui
|
|
:after lsp-mode
|
|
:custom
|
|
lsp-ui-doc-enable t
|
|
lsp-ui-doc-border "DimGray"
|
|
lsp-ui-doc-delay 0.5
|
|
:config
|
|
(set-face-background 'lsp-ui-doc-background "WhiteSmoke")
|
|
(set-face-foreground 'lsp-ui-sideline-code-action "SaddleBrown")
|
|
(setq lsp-ui-sideline-code-actions-prefix "🔨 "
|
|
lsp-ui-sideline-show-code-actions t) ; is :custom, but won't take effect?
|
|
(evil-define-key 'normal lsp-ui-mode-map
|
|
;; TODO(sterni): emulate using xref for non-lsp?
|
|
(kbd "<leader>lgr") 'lsp-ui-peek-find-references
|
|
(kbd "<leader>lgd") 'lsp-ui-peek-find-definitions
|
|
(kbd "<leader>lc") 'lsp-ui-flycheck-list))
|
|
(use-package lsp-haskell
|
|
:after lsp-mode
|
|
:custom
|
|
lsp-haskell-formatting-provider "ormolu")
|
|
|
|
(use-package urweb-mode)
|
|
(use-package bqn-mode
|
|
:mode "\\.bqn\\'"
|
|
:custom bqn-mode-map-prefix "C-s-") ; probably rather using C-\
|
|
(use-package yaml-mode)
|
|
(use-package dockerfile-mode)
|
|
(use-package jq-mode
|
|
:config (add-to-list 'auto-mode-alist '("\\.jq\\'" . jq-mode)))
|
|
(use-package rust-mode)
|
|
(use-package sly
|
|
:after evil
|
|
:hook ((sly-mrepl-mode . (lambda ()
|
|
(enable-paredit-mode)
|
|
(rainbow-delimiters-mode-enable))))
|
|
:config
|
|
(evil-define-key '(normal insert) sly-mrepl-mode-map (kbd "C-r") 'isearch-backward))
|
|
|
|
; TODO(sterni): https://github.com/NixOS/nixpkgs/pull/173893/files
|
|
; (use-package ada-mode)
|
|
|
|
(use-package rainbow-mode)
|
|
(use-package hl-todo
|
|
:hook ((prog-mode . hl-todo-mode))
|
|
:config
|
|
(setq hl-todo-keyword-faces
|
|
'(("TODO" . "#FF0000")
|
|
("FIXME" . "#FF0000")
|
|
("HACK" . "#7f7f7f")
|
|
("XXX" . "#aa0000"))))
|
|
|
|
(use-package markdown-mode
|
|
:commands (markdown-mode gfm-mode)
|
|
:mode (("\\.md\\'" . markdown-mode)))
|
|
(use-package adoc-mode
|
|
:mode (("\\.adoc\\'" . adoc-mode)))
|
|
(use-package languagetool
|
|
:after evil
|
|
:custom
|
|
languagetool-java-arguments '("-Dfile.encoding=UTF-8")
|
|
languagetool-default-language "en-GB"
|
|
languagetool-mother-tongue "de-DE"
|
|
:config
|
|
(evil-define-key 'normal 'global (kbd "<leader>mll") 'languagetool-check)
|
|
(evil-define-key 'normal 'global (kbd "<leader>mlc") 'languagetool-correct-at-point)
|
|
(evil-define-key 'normal 'global (kbd "<leader>mls") 'languagetool-set-language)
|
|
(evil-define-key 'normal 'global (kbd "<leader>mlr") 'languagetool-clear-suggestions)
|
|
;; Fill background of issues instead of just underlining to make it easier to read
|
|
(set-face-background 'languagetool-issue-default "yellow")
|
|
(set-face-background 'languagetool-issue-misspelling "red"))
|
|
|
|
(unless (server-running-p)
|
|
(server-start))
|
|
|
|
(require 'subscriptions) ; elfeed config
|
|
(require 'nix-inject)
|
|
|
|
(provide 'init)
|