dotfiles/.emacs.d/init.el
2023-03-20 08:20:34 +01:00

321 lines
8.1 KiB
EmacsLisp

(add-hook 'emacs-startup-hook
(lambda ()
(message "tobmacs loaded in %s."
(emacs-init-time))))
(set-default-coding-systems 'utf-8)
(customize-set-variable 'visible-bell 1)
(customize-set-variable 'large-file-warning-threshold 100000000)
(add-to-list 'load-path (expand-file-name "modules/" user-emacs-directory))
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(load custom-file 'noerror)
;; (add-to-list 'native-comp-eln-load-path (expand-file-name "eln-cache/" user-emacs-directory))
(setq package-archives
'(("elpa" . "https://elpa.gnu.org/packages/")
("elpa-devel" . "https://elpa.gnu.org/devel/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")
("melpa" . "https://melpa.org/packages/")))
(setq package-archive-priorities
'(("elpa" . 2)
("nongnu" . 1)))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(unless (package-installed-p 'use-package)
(package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)
(use-package exec-path-from-shell)
(when (memq window-system '(mac ns x))
(exec-path-from-shell-initialize))
;; -----------------------------------------------------------------
(use-package ace-window
:bind
("M-o" . ace-window))
(use-package all-the-icons
:if window-system)
(use-package all-the-icons-dired
:if window-system
:hook dired-mode)
(use-package avy
:bind
(("C-." . avy-goto-char-timer)
("C-:" . avy-goto-char)
("M-g f" . avy-goto-line)))
(use-package cider
:defer t)
(use-package clj-refactor
:hook clojure-mode)
(use-package clojure-mode
:config
(use-package flycheck-clj-kondo)
(require 'flycheck-clj-kondo))
(use-package consult
:bind
(("C-x b" . consult-buffer)
("C-x 4 b" . consult-buffer-other-window)
("C-x r b" . consult-bookmark)
("C-x p b" . consult-project-buffer)
("M-y" . consult-yank-pop)
("M-g g" . consult-goto-line)
("M-g M-g" . consult-goto-line)
("M-i" . consult-imenu)
("M-s l" . consult-line)
("M-s L" . consult-line-multi))
:hook
(completion-list-mode . consult-preview-at-point-mode))
(use-package corfu
:custom
(corfu-cycle t)
(corfu-preselect-first nil)
(corfu-auto t)
:init
(global-corfu-mode))
(use-package dired
:ensure nil
:init
(setq dired-dwim-target t))
(use-package doom-modeline
:if window-system
:hook after-init
:config
;; (if (facep 'mode-line-active)
;; (set-face-attribute 'mode-line-active nil :family "Iosevka Comfy" :height 200)
;; (set-face-attribute 'mode-line nil :family "Iosevka Comfy" :height 130))
;; (set-face-attribute 'mode-line-inactive nil :family "Iosevka Comfy" :height 130)
(setq doom-modeline-modal nil
doom-modeline-height 28
doom-modeline-time-icon nil
doom-modeline-major-mode-icon nil
doom-modeline-percent-position nil
doom-modeline-buffer-encoding nil
doom-modeline-bar-width 1
doom-modeline-major-mode-color-icon nil))
(use-package dumb-jump
:config
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
(setq xref-show-definitions-function #'xref-show-definitions-completing-read))
(use-package ef-themes
:config
(setq ef-themes-headings
'((0 . (variable-pitch light 2.0))
(1 . (variable-pitch light 1.5))
(2 . (variable-pitch semibold 1.2))
(t . (variable-pitch semibold 1.0))))
(setq ef-themes-mixed-fonts t)
(mapc #'disable-theme custom-enabled-themes)
(load-theme 'ef-winter :no-confirm))
(use-package eglot
:hook
(swift-mode . eglot-ensure)
:config
(add-to-list
'eglot-server-programs
'(swift-mode . ("/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/sourcekit-lsp"))))
(use-package emacs
:config
(global-auto-revert-mode)
(minibuffer-electric-default-mode)
(electric-pair-mode)
(setq
auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
backup-directory-alist `((".*" . ,temporary-file-directory))
coding-system-for-read 'utf-8
coding-system-for-write 'utf-8
create-lockfiles nil
default-process-coding-system '(utf-8-unix . utf-8-unix)
delete-by-moving-to-trash t
isearch-allow-motion t
locale-coding-system 'utf-8
next-line-add-newlines t
sentence-end-double-space nil
tab-bar-new-tab-choice "*scratch*"
tab-bar-show nil
user-full-name "Tobias Ostner"
user-mail-address "tobias.ostner@gmail.com")
(setq-default indent-tabs-mode nil)
(set-charset-priority 'unicode)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(when (fboundp 'mac-auto-operator-composition-mode)
(mac-auto-operator-composition-mode)))
(use-package flycheck
:init
(global-flycheck-mode))
(use-package flycheck-swiftlint
:after flycheck
:config
(flycheck-swiftlint-setup))
(use-package fontaine
:config
(setq fontaine-presets
'((tiny
:default-family "Iosevka Comfy Wide Fixed"
:default-height 70)
(small
:default-family "Iosevka Comfy Fixed"
:default-height 90)
(regular
:default-height 130)
(medium
:default-height 170)
(large
:default-weight semilight
:default-height 250
:bold-weight extrabold)
(presentation
:default-weight semilight
:default-height 250
:bold-weight extrabold)
(jumbo
:default-weight semilight
:default-height 300
:bold-weight extrabold)
(t
:default-family "Iosevka Comfy"
:default-weight regular
:default-height 130
:variable-pitch-family "Iosevka Comfy Duo"
:bold-weight bold
:italic-slant italic
:line-spacing 0.25)))
(fontaine-set-preset 'regular))
(use-package graphql-mode)
(use-package js2-mode)
(use-package magit
:defer t)
(use-package marginalia
:init
(marginalia-mode))
(use-package modus-themes
:config
(setq modus-themes-variable-pitch-headings t
modus-themes-org-blocks 'tinted-background
modus-themes-bold-constructs t
modus-themes-italic-constructs t
modus-themes-scale-headings t
modus-themes-completions 'opinionated
modus-themes-mode-line '(accented borderless)))
(use-package ob-swift
:after org
:config
(org-babel-do-load-languages
'org-babel-load-languages
(append org-babel-load-languages
'((swift . t)))))
(use-package ob-swiftui
:after org)
(use-package olivetti
:hook org-mode)
(use-package orderless
:custom
(completion-styles '(orderless basic))
(completion-category-overrides '((file (styles basic partial-completion)))))
(use-package org
:defer t
:hook
(org-mode . visual-line-mode)
:config
(setq org-auto-align-tags nil
org-tags-column 0
org-special-ctrl-a/e t
org-pretty-entities t
org-hide-emphasis-markers t
org-startup-with-inline-images t))
(use-package org-modern
:after org
:init
(global-org-modern-mode))
(use-package ox-gfm
:after org)
(use-package paredit
:hook ((lisp-mode emacs-lisp-mode clojure-mode) . paredit-mode))
(use-package pulsar
:config
(pulsar-global-mode 1)
(add-hook 'next-error-hook #'pulsar-pulse-line))
(use-package rainbow-delimiters
:hook
((emacs-lisp-mode . rainbow-delimiters-mode)
(clojure-mode . rainbow-delimiters-mode)))
(use-package savehist
:init
(savehist-mode))
(use-package swift-helpful
:commands swift-helpful)
(use-package swift-mode
:hook (swift-mode . subword-mode)
:config
(setq
swift-mode:multiline-statement-offset 2
swift-mode:parenthesized-expression-offset 2
swift-mode:basic-offset 2))
(use-package vertico
:init
(vertico-mode)
:config
(setq vertico-cycle t))
(use-package vertico-directory
:after vertico
:ensure nil
:hook (rfn-eshadow-update-overlay . vertico-directory-tidy)
:bind (:map vertico-map
("DEL" . vertico-directory-delete-char)
("M-DEL" . vertico-directory-delete-word)))