pankomacs/config.el

137 lines
3.1 KiB
EmacsLisp

;; -*- lexical-binding: t -*-
(use-package emacs
:init
(setq frame-resize-pixelwise t
window-resize-pixelwise t
frame-inhibit-implied-resize t)
(defun crm-indicator (args)
(cons (format "[CRM%s] %s"
(replace-regexp-in-string
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
crm-separator)
(car args))
(cdr args)))
(advice-add #'completing-read-multiple :filter-args #'crm-indicator)
(setq minibuffer-prompt-properties
'(read-only t cursor-intangible t face minibuffer-prompt))
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
:custom
(initial-scratch-message nil)
(inhibit-startup-screen t)
(inhibit-splash-screen t)
(menu-bar-mode nil)
(tool-bar-mode nil)
(scroll-bar-mode nil)
(delete-selection-mode t)
(column-number-mode t)
(enable-recursive-buffer t)
(read-extended-command-predicate #'command-completion-default-include-p)
(tab-always-indent 'complete)
:hook (prog-mode . display-line-numbers-mode))
(use-package ivy
:custom
(ivy-mode t)
(counsel-mode t)
(ivy-use-virtual-buffers t)
:bind (("C-s" . swiper-isearch)
("C-c C-r" . ivy-resume)
("<f6>" . ivy-resume)
("M-x" . counsel-M-x)
("C-x C-f" . counsel-find-file)
("<f1> f" . counsel-describe-function)
("<f1> v" . counsel-describe-variable)
("<f1> o" . counsel-describe-symbol)
("<f1> l" . counsel-find-library)
("<f2> i" . counsel-info-lookup-symbol)
("<f2> u" . counsel-unicode-char)
("C-c g" . counsel-git)
("C-c j" . counsel-git-grep)
("C-c k" . counsel-ag)
("C-x l" . counsel-locate)
("C-S-o" . counsel-rhythmbox)
:map minibuffer-local-map
("C-r" . counsel-minibuffer-history)))
(use-package savehist
:defer t
:commands (savehist-mode)
:hook after-init)
(use-package which-key
:defer t
:commands (which-key-mode)
:hook after-init)
(use-package base16-theme
:config
(load-theme 'base16-tokyo-night-dark t))
(use-package nix-ts-mode
:defer t
:commands (nix-ts-mode)
:mode "\\.nix\\'")
(use-package rust-mode
:defer t
:commands (rust-mode)
:mode "\\.rs\\'")
(use-package envrc
:defer t
:commands (envrc-mode)
:hook after-init)
(use-package eglot
:defer t
:commands (eglot eglot-ensure)
:hook (prog-mode . eglot-ensure))
(use-package qml-mode
:defer t
:commands (qml-mode)
:mode "\\.qml\\'")
(use-package haskell-mode
:defer t
:commands (haskell-mode)
:mode "\\.hs\\'")
(use-package python
:defer t
:commands (python-ts-mode python-mode)
:custom
(python-indent-offset 4))
(use-package cc-mode
:defer t
:commands (c-ts-mode
c++-ts-mode
c++-mode
c-mode)
:custom
(c-basic-offset 4))
(use-package nushell-mode
:defer t
:commands (nushell-mode)
:mode "\\.nu\\'")
(use-package tuareg
:defer t
:commands (tuareg-mode tuareg-opam-mode)
:mode "\\.ml\\'")
(use-package nim-mode
:defer t
:commands (nim-mode)
:mode "\\.nim\\'")
(use-package doom-modeline
:defer t
:commands (doom-modeline-mode)
:hook after-init)
(provide 'config)