init.el

(require 'package)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))
(package-initialize)

(setq-default indent-tabs-mode nil)

;;; Local CLHS browsing!
(load "~/quicklisp/clhs-use-local.el" t)

(setq default-directory "~/")

(use-package sly
  :custom
  (inferior-lisp-program "sbcl")
  :config (defun set-common-lisp-style ()
            (setq-local common-lisp-style "classic"))
  :hook ((lisp-mode . sly-mode)
         (lisp-mode . set-common-lisp-style)))

(use-package elisp-mode
  :custom
  (lisp-indent-function 'lisp-indent-function))

(setq-default c-basic-offset 4)

(set-face-attribute 'default nil :font "Iosevka Custom 12")

(use-package use-package
  :init
  (setq use-package-always-ensure t))

(use-package projectile
  :config
  (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
  (setq projectile-enable-caching t)
  (projectile-mode 1))

(use-package cmake-mode)

(use-package paredit
  :ensure t
  :hook ((fulcrum-mode clojure-mode lisp-mode emacs-lisp-mode) . paredit-mode))

(use-package vertico
  :init (vertico-mode))

(use-package consult
  :preface
  (defvar consult-prefix-map (make-sparse-keymap))
  (fset 'consult-prefix-map consult-prefix-map)
  :bind (:map mode-specific-map ("c" . consult-prefix-map)
         :map consult-prefix-map
         ("r" . consult-recent-file)
         ("o" . consult-outline)
         ("i" . consult-imenu)
         ("g" . consult-grep))
  :custom
  (consult-preview-key nil)
  :init
  (setq completion-in-region-function #'consult-completion-in-region))

(use-package marginalia
  :bind (("M-A" . marginalia-cycle))
  :init (marginalia-mode))

(use-package magit
  :bind
  (:map mode-specific-map
        :prefix-map magit-prefix-map
        :prefix "m"
        ("b" . #'magit-blame-addition)
        ("f" . #'magit-find-file)
        ("l" . #'magit-log-buffer-file)))

(use-package orderless
  :demand t
  :config
  (setq completion-styles '(orderless partial-completion)
        completion-category-defaults nil
        completion-category-overrides '((file (styles . (partial-completion)))
                                        (eglot (styles . (orderless flex))))))

(use-package corfu
  :bind
  (([C-tab] . #'completion-at-point))
  :init
  (global-corfu-mode))

(use-package org)

(use-package org-journal
  :bind (("C-c C-j" . org-journal-new-entry))
  :init (setq
         org-journal-file-type 'yearly
         org-journal-dir "~/dev/journal")
  :hook (org-journal-mode . (lambda ()
                              (set-fill-column 80)
                              (auto-fill-mode))))

(use-package reverse-im
  :config
  (reverse-im-activate "russian-computer"))

;;; Eglot
(use-package eglot
  :hook ((c-mode c++-mode objc-mode) .
         'eglot-ensure)
  :custom
  (eglot-ignored-server-capabilities '(:hoverProvider))
  :config (add-to-list 'eglot-server-programs
                       (list '(c++-mode c-mode objc-mode) .
                             (if (eq system-type 'darwin)
                                 ("/Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clangd" "--header-insertion=never" "--clang-tidy" "--fallback-style=\"{ BasedOnStyle: LLVM, IndentWidth: 4, Standard: c++20 }\"")
                               "clangd"))))

(defmacro global-set-keys (&rest map)
  (let (a)
    (dolist (key-action map)
      (push `(global-set-key ,(car key-action) ,(cdr key-action))
            a))
    `(progn ,@a)))

(defun my-transpose-lines ()
  (interactive)
  (transpose-lines 0)
  (exchange-point-and-mark))

(global-set-keys
 ([insert] . 'delete-selection-mode) ;; Overwrite mode
 ((kbd "M-o") . 'other-window)       ;; Instead of C-x o
 ((kbd "C-[ C-[ C-[") . nil)
 ((kbd "C-x /") . 'replace-string)
 ((kbd "C-x w") . 'switch-to-buffer-other-window)
 ((kbd "C-c l") . "λ")
 ((kbd "C-x C-t") . 'my-transpose-lines))

(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(transient-mark-mode -1)
(winner-mode 1)
(electric-indent-mode -1)

(setq default-input-method "russian-computer"
      browse-url-browser-function 'browse-url-firefox
      browse-url-firefox-new-window-is-tab t
      browse-url-firefox-program "firefox"
      ring-bell-function 'ignore
      mouse-yank-at-point t
      inhibit-startup-screen t
      column-number-mode t
      cmake-tab-width 4)

(add-hook 'before-save-hook 'delete-trailing-whitespace)

(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)

(add-hook 'nxml-mode-hook
          (lambda ()
            (setq nxml-child-indent 4
                  nxml-attribute-indent 4)))

(c-add-style "my-style"
             '("k&r"
               (c-basic-offset . 4)
               (case-label . 0)
               (inlambda . 0)
               (inline-open . 0)
               (innamespace . 4)))

(add-hook 'c-mode-common-hook
          (lambda ()
            (c-set-style "my-style")))

(add-to-list 'auto-mode-alist '("\\.mm\\'" . objc-mode))

(load-theme 'modus-operandi t)
(set-face-attribute 'fringe nil :background "#f0f0f0" :foreground "#6d6d6d")

(define-advice kill-ring-save (:before (beg end &optional region) pulse-kill-save)
  (save-mark-and-excursion
    (let ((beg (if region (region-beginning) beg))
          (end (if region (region-end) end)))
      (pulse-momentary-highlight-region beg end 'region))))

(use-package quelpa
  :demand t
  :custom (quelpa-update-melpa-p nil))

(use-package quelpa-use-package
  :demand t)

(use-package vterm
  :ensure t)

(use-package yasnippet
  :custom
  (yas-snippet-dirs '("~/dev/yasnippets/"))
  :config
  (yas-global-mode 1))

;;; Already in master, so remove after next update (current 29.1)
(unless (package-installed-p 'vc-use-package)
  (package-vc-install "https://github.com/slotThe/vc-use-package"))
(require 'vc-use-package)

(use-package fulcrum-mode
  :vc
  (fulcrum-mode :url "https://github.com/koto-bank/fulcrum-mode"))

(set-fill-column 80)