Remove emacs prelude config
This commit is contained in:
parent
d0db5660ca
commit
7e0dab42d7
|
|
@ -1,14 +0,0 @@
|
|||
;;; early-init.el --- Early Init File -*- lexical-binding: t; no-byte-compile: t -*-
|
||||
|
||||
(setq gc-cons-threshold most-positive-fixnum
|
||||
gc-cons-percentage 0.6)
|
||||
|
||||
(push '(menu-bar-lines . 0) default-frame-alist)
|
||||
(push '(tool-bar-lines . 0) default-frame-alist)
|
||||
(push '(vertical-scroll-bars) default-frame-alist)
|
||||
|
||||
(setq frame-inhibit-implied-resize t)
|
||||
|
||||
; (setq comp-deferred-compilation nil)
|
||||
|
||||
;;; early-init.el ends here
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
;; This will make sure that nothing in your personal directory will be
|
||||
;; forced through the emacs-lisp-checkdoc flychecker. That's a great
|
||||
;; checker for real modules, but these are just config files, and you
|
||||
;; deserve not to get warnings all the time
|
||||
((emacs-lisp-mode . ((flycheck-disabled-checkers . (emacs-lisp-checkdoc)))))
|
||||
|
|
@ -1,21 +0,0 @@
|
|||
(custom-set-variables
|
||||
;; custom-set-variables was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
'(cider-xref-actions
|
||||
'(("find-def" . cider--find-var)
|
||||
("display-doc" . cider-doc-lookup)
|
||||
("lookup-on-clojuredocs" . cider-clojuredocs-lookup)))
|
||||
'(es-always-pretty-print t)
|
||||
'(org-agenda-files nil)
|
||||
'(package-selected-packages
|
||||
'(multi-vterm ripgrep persp-projectile perspective consult-flycheck ctrlf consult-lsp embark-consult embark marginalia consult vertico corfu orderless es-mode jq-mode restclient solarized-theme flycheck-indicator simple-modeline miniedit smart-mode-line prelude subword-mode smartparens-mode projectile-mode prelude-mode rg f forge vterm dash magit-section markdown-mode popup s transient envrc hydra easy-kill-extras paredit-functions eval-expr lsp clj-refactor flycheck-clj-kondo yasnippet paredit dashboard emacs-dashboard yaml-mode web-mode lsp-ui lsp-mode json-mode js2-mode rainbow-mode elisp-slime-nav cider clojure-mode rainbow-delimiters exec-path-from-shell zop-to-char zenburn-theme which-key volatile-highlights undo-tree super-save smartrep smartparens operate-on-number nlinum move-text magit projectile imenu-anywhere hl-todo guru-mode gitignore-mode gitconfig-mode git-timemachine gist flycheck expand-region epl editorconfig easy-kill diminish diff-hl discover-my-major crux browse-kill-ring anzu ag ace-window))
|
||||
'(pdf-view-midnight-colors '("#DCDCCC" . "#383838")))
|
||||
(custom-set-faces
|
||||
;; custom-set-faces was added by Custom.
|
||||
;; If you edit it by hand, you could mess it up, so be careful.
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
'(aw-leading-char-face ((t (:foreground "white" :background "red" :weight bold :height 2.5 :box (:line-width 10 :color "red")))))
|
||||
'(hi-yellow ((t (:background "yellow")))))
|
||||
|
|
@ -1,44 +0,0 @@
|
|||
(require 'init-lisp)
|
||||
|
||||
(prelude-require-package 'yasnippet)
|
||||
(use-package yasnippet
|
||||
:diminish yas-minor-mode)
|
||||
|
||||
(prelude-require-package 'flycheck-clj-kondo)
|
||||
(use-package clojure-mode
|
||||
:config
|
||||
(require 'flycheck-clj-kondo))
|
||||
|
||||
(prelude-require-package 'clj-refactor)
|
||||
(use-package clj-refactor
|
||||
:diminish
|
||||
:after yasnippet
|
||||
:bind ("C-c '" . hydra-cljr-help-menu/body)
|
||||
:config
|
||||
(cljr-add-keybindings-with-prefix "C-c C-m")
|
||||
(setq cljr-suppress-no-project-warning t)
|
||||
:hook
|
||||
(clojure-mode .
|
||||
(lambda ()
|
||||
(clj-refactor-mode 1)
|
||||
(yas-minor-mode 1))))
|
||||
|
||||
(use-package cider
|
||||
:diminish
|
||||
:after key-chord
|
||||
:config
|
||||
(setq cider-repl-pop-to-buffer-on-connect 'display-only
|
||||
cider-repl-display-help-banner nil
|
||||
cider-repl-history-highlight-current-entry t
|
||||
cider-repl-history-highlight-inserted-item t
|
||||
cider-repl-use-clojure-font-lock t
|
||||
cider-repl-use-pretty-printing t
|
||||
;cider-invert-insert-eval-p t
|
||||
;cider-switch-to-repl-on-insert nil
|
||||
cider-repl-history-file "~/.emacs.d/cider-history"
|
||||
clojure-toplevel-inside-comment-form t)
|
||||
(key-chord-define-global "??" 'cider-xref-fn-refs-select)
|
||||
(key-chord-define-global "qq" 'cider-xref-fn-refs)
|
||||
:hook (cider-repl-mode . (lambda () (display-line-numbers-mode -1))))
|
||||
|
||||
(provide 'init-clojure)
|
||||
Binary file not shown.
|
|
@ -1,347 +0,0 @@
|
|||
(use-package emacs
|
||||
:init
|
||||
;; for corfu
|
||||
(setq completion-cycle-threshold 3)
|
||||
(setq tab-always-indent 'complete)
|
||||
|
||||
;; for vertico
|
||||
;; Do not allow the cursor in the minibuffer prompt
|
||||
(setq minibuffer-prompt-properties
|
||||
'(read-only t cursor-intangible t face minibuffer-prompt))
|
||||
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
|
||||
(setq enable-recursive-minibuffers t))
|
||||
|
||||
;; orderless is used by corfu and vertico
|
||||
(prelude-require-package 'orderless)
|
||||
(use-package orderless
|
||||
:bind (:map minibuffer-local-completion-map
|
||||
("C-l" . my/match-components-literally))
|
||||
:custom (orderless-component-separator 'orderless-escapable-split-on-space)
|
||||
:init
|
||||
(setq completion-styles '(orderless basic)
|
||||
completion-category-defaults nil
|
||||
completion-category-overrides '((file (styles . (partial-completion orderless)))))
|
||||
|
||||
(defun my/match-components-literally ()
|
||||
"Components match literally for the rest of the session."
|
||||
(interactive)
|
||||
(setq-local orderless-matching-styles '(orderless-literal)
|
||||
orderless-style-dispatchers nil))
|
||||
:config
|
||||
(defun flex-if-twiddle (pattern _index _total)
|
||||
(when (string-suffix-p "~" pattern)
|
||||
`(orderless-flex . ,(substring pattern 0 -1))))
|
||||
|
||||
(defun literal-if-hat (pattern _index _total)
|
||||
(when (string-suffix-p "^" pattern)
|
||||
`(orderless-literal . ,(substring pattern 0 -1))))
|
||||
|
||||
(defun literal-if-apostrophe (pattern _index _total)
|
||||
(cond
|
||||
((equal "'" pattern)
|
||||
'(orderless-literal . ""))
|
||||
((string-prefix-p "'" pattern)
|
||||
`(orderless-literal . ,(substring pattern 1)))))
|
||||
|
||||
(defun initialism-if-comma (pattern _index _total)
|
||||
(cond
|
||||
((equal "," pattern)
|
||||
'(orderless-literal . ""))
|
||||
((string-prefix-p "," pattern)
|
||||
`(orderless-initialism . ,(substring pattern 1)))))
|
||||
|
||||
(defun without-if-bang (pattern _index _total)
|
||||
(cond
|
||||
((equal "!" pattern)
|
||||
'(orderless-literal . ""))
|
||||
((string-prefix-p "!" pattern)
|
||||
`(orderless-without-literal . ,(substring pattern 1)))))
|
||||
|
||||
(setq orderless-matching-styles '(orderless-literal orderless-regexp orderless-strict-leading-initialism)
|
||||
orderless-style-dispatchers '(flex-if-twiddle
|
||||
literal-if-hat
|
||||
literal-if-apostrophe
|
||||
initialism-if-comma
|
||||
without-if-bang)))
|
||||
|
||||
(use-package savehist
|
||||
:init
|
||||
(savehist-mode))
|
||||
|
||||
|
||||
;; code completion - corfu
|
||||
(prelude-require-package 'corfu)
|
||||
(use-package corfu
|
||||
;; Optional customizations
|
||||
:custom
|
||||
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
|
||||
:bind (:map corfu-map
|
||||
("TAB" . corfu-next)
|
||||
([tab] . corfu-next)
|
||||
("S-TAB" . corfu-previous)
|
||||
([backtab] . corfu-previous))
|
||||
:init
|
||||
(corfu-global-mode))
|
||||
|
||||
(prelude-require-package 'fancy-dabbrev)
|
||||
(use-package fancy-dabbrev
|
||||
:diminish
|
||||
:config
|
||||
(global-fancy-dabbrev-mode))
|
||||
|
||||
;; minibuffer completion - vertico et al
|
||||
(prelude-require-package 'vertico)
|
||||
(use-package vertico
|
||||
:init
|
||||
(vertico-mode)
|
||||
(setq vertico-cycle t)
|
||||
(advice-add #'vertico--format-candidate :around
|
||||
(lambda (orig cand prefix suffix index)
|
||||
(setq cand (funcall orig cand prefix suffix index))
|
||||
(concat
|
||||
(if (= vertico--index index)
|
||||
(propertize "» " 'face 'vertico-current)
|
||||
" ")
|
||||
cand)))
|
||||
:config
|
||||
(defun down-from-outside ()
|
||||
"Move to next candidate in minibuffer, even when minibuffer isn't selected."
|
||||
(interactive)
|
||||
(with-selected-window (active-minibuffer-window)
|
||||
(execute-kbd-macro [down])))
|
||||
|
||||
(defun up-from-outside ()
|
||||
"Move to previous candidate in minibuffer, even when minibuffer isn't selected."
|
||||
(interactive)
|
||||
(with-selected-window (active-minibuffer-window)
|
||||
(execute-kbd-macro [up])))
|
||||
|
||||
(defun preview-from-outside ()
|
||||
"Preview the selected candidate, even when minibuffer isn't selected."
|
||||
(interactive)
|
||||
(with-selected-window (active-minibuffer-window)
|
||||
(execute-kbd-macro (kbd "M-."))))
|
||||
|
||||
(defun to-and-fro-minibuffer ()
|
||||
"Go back and forth between minibuffer and other window."
|
||||
(interactive)
|
||||
(if (window-minibuffer-p (selected-window))
|
||||
(select-window (minibuffer-selected-window))
|
||||
(select-window (active-minibuffer-window))))
|
||||
|
||||
(key-chord-define-global "XX" 'to-and-fro-minibuffer)
|
||||
;(key-chord-define-global ">>" 'preview-from-outside)
|
||||
:bind (("C-M-<" . up-from-outside)
|
||||
("C-M->" . down-from-outside)
|
||||
("C-M-+" . preview-from-outside)
|
||||
("M-X" . to-and-fro-minibuffer)
|
||||
("C-M-S-g" . minibuffer-keyboard-quit)))
|
||||
|
||||
(prelude-require-package 'consult)
|
||||
(use-package consult
|
||||
:after projectile
|
||||
:bind (;; C-c bindings (mode-specific-map)
|
||||
("C-c h" . consult-history)
|
||||
("C-c m" . consult-mode-command)
|
||||
("C-c b" . consult-bookmark)
|
||||
("C-c k" . consult-kmacro)
|
||||
;; C-x bindings (ctl-x-map)
|
||||
("C-x M-:" . consult-complex-command) ;; orig. repeat-complex-command
|
||||
("C-x b" . consult-buffer) ;; orig. switch-to-buffer
|
||||
("C-x B" . consult-buffer-no-preview) ;; orig. switch-to-buffer
|
||||
("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
|
||||
("C-x 5 b" . consult-buffer-other-frame) ;; orig. switch-to-buffer-other-frame
|
||||
;; Custom M-# bindings for fast register access
|
||||
("M-#" . consult-register-load)
|
||||
("M-'" . consult-register-store) ;; orig. abbrev-prefix-mark (unrelated)
|
||||
("C-M-#" . consult-register)
|
||||
;; Other custom bindings
|
||||
("C-S-s" . consult-line)
|
||||
("C-M-S" . consult-line-symbol-at-point)
|
||||
("M-y" . consult-yank-pop) ;; orig. yank-pop
|
||||
("<help> a" . consult-apropos) ;; orig. apropos-command
|
||||
;; M-g bindings (goto-map)
|
||||
("M-g e" . consult-compile-error)
|
||||
("M-g f" . consult-flycheck)
|
||||
("M-g g" . consult-goto-line) ;; orig. goto-line
|
||||
("M-g M-g" . consult-goto-line) ;; orig. goto-line
|
||||
("M-g o" . consult-outline) ;; Alternative: consult-org-heading
|
||||
("M-g m" . consult-mark)
|
||||
("M-g k" . consult-global-mark)
|
||||
("M-g i" . consult-imenu)
|
||||
("M-g I" . consult-project-imenu)
|
||||
;; C-c c bindings (search-map)
|
||||
("C-c c C-f" . consult-recent-file)
|
||||
("C-c c f" . consult-fd)
|
||||
("C-c c F" . consult-find)
|
||||
("C-c c L" . consult-locate)
|
||||
("C-c c g" . consult-grep)
|
||||
("C-c c G" . consult-git-grep)
|
||||
("C-c c r" . consult-ripgrep)
|
||||
("C-c r" . consult-ripgrep)
|
||||
("C-c c R" . consult-ripgrep-auto-preview)
|
||||
("C-c c M-r" . consult-ripgrep-unrestricted)
|
||||
("C-c c s" . consult-ripgrep-symbol-at-point)
|
||||
("C-c c l" . consult-line)
|
||||
("C-c c m" . consult-multi-occur)
|
||||
("C-c c k" . consult-keep-lines)
|
||||
("C-c c u" . consult-focus-lines)
|
||||
;; Isearch integration
|
||||
("C-c c e" . consult-isearch)
|
||||
:map isearch-mode-map
|
||||
("M-e" . consult-isearch) ;; orig. isearch-edit-string
|
||||
("C-c c e" . consult-isearch) ;; orig. isearch-edit-string
|
||||
("C-c c l" . consult-line)) ;; needed by consult-line to detect isearch
|
||||
|
||||
:init
|
||||
|
||||
;; Optionally configure the register formatting. This improves the register
|
||||
;; preview for `consult-register', `consult-register-load',
|
||||
;; `consult-register-store' and the Emacs built-ins.
|
||||
(setq register-preview-delay 0
|
||||
register-preview-function #'consult-register-format)
|
||||
|
||||
;; Optionally tweak the register preview window.
|
||||
;; This adds thin lines, sorting and hides the mode line of the window.
|
||||
(advice-add #'register-preview :override #'consult-register-window)
|
||||
|
||||
;; Optionally replace `completing-read-multiple' with an enhanced version.
|
||||
(advice-add #'completing-read-multiple :override #'consult-completing-read-multiple)
|
||||
|
||||
;; Use Consult to select xref locations with preview
|
||||
(setq xref-show-xrefs-function #'consult-xref
|
||||
xref-show-definitions-function #'consult-xref)
|
||||
|
||||
:config
|
||||
|
||||
;; Optionally configure preview. The default value
|
||||
;; is 'any, such that any key triggers the preview.
|
||||
;; (setq consult-preview-key 'any)
|
||||
;; (setq consult-preview-key (kbd "M-."))
|
||||
;; (setq consult-preview-key (list (kbd "<S-down>") (kbd "<S-up>")))
|
||||
;; For some commands and buffer sources it is useful to configure the
|
||||
;; :preview-key on a per-command basis using the `consult-customize' macro.
|
||||
(consult-customize
|
||||
consult-theme
|
||||
:preview-key '(:debounce 0.2 any)
|
||||
consult-ripgrep consult-git-grep consult-grep
|
||||
consult-ripgrep-unrestricted consult-ripgrep-symbol-at-point
|
||||
consult-bookmark consult-recent-file consult-xref consult-buffer-no-preview
|
||||
consult--source-file consult--source-project-file consult--source-bookmark
|
||||
:preview-key (kbd "M-."))
|
||||
|
||||
;; Optionally configure the narrowing key.
|
||||
;; Both < and C-+ work reasonably well.
|
||||
(setq consult-narrow-key "<") ;; (kbd "C-+")
|
||||
|
||||
;; Optionally make narrowing help available in the minibuffer.
|
||||
;; You may want to use `embark-prefix-help-command' or which-key instead.
|
||||
;; (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help)
|
||||
|
||||
(autoload 'projectile-project-root "projectile")
|
||||
(setq consult-project-root-function #'projectile-project-root)
|
||||
|
||||
(defvar consult-initial-narrow-config
|
||||
'((consult-buffer . ?p)
|
||||
(consult-buffer-no-preview . ?p)))
|
||||
;; Add initial narrowing hook
|
||||
(defun consult-initial-narrow ()
|
||||
(when-let (key (alist-get this-command consult-initial-narrow-config))
|
||||
(setq unread-command-events (append unread-command-events (list key 32)))))
|
||||
(add-hook 'minibuffer-setup-hook #'consult-initial-narrow)
|
||||
|
||||
(defun consult-fd (&optional dir initial)
|
||||
(interactive "P")
|
||||
(let ((consult-find-command "fd --color=never --full-path ARG OPTS"))
|
||||
(consult-find dir initial)))
|
||||
(defun consult-ripgrep-symbol-at-point (&optional dir initial)
|
||||
(interactive
|
||||
(list prefix-arg (when-let ((s (symbol-at-point)))
|
||||
(symbol-name s))))
|
||||
(consult-ripgrep dir initial))
|
||||
(defun consult-ripgrep-auto-preview (&optional dir initial)
|
||||
(interactive "P")
|
||||
(consult-ripgrep dir initial))
|
||||
(defun consult-ripgrep-unrestricted (&optional dir initial)
|
||||
(interactive "P")
|
||||
(let ((consult-ripgrep-command "rg --null --line-buffered --color=ansi --max-columns=1000 --smart-case --no-heading -uu --line-number . -e ARG OPTS"))
|
||||
(consult-ripgrep dir initial)))
|
||||
(defun consult-buffer-no-preview ()
|
||||
(interactive)
|
||||
(consult-buffer))
|
||||
(defun consult-line-symbol-at-point ()
|
||||
(interactive)
|
||||
(consult-line (thing-at-point 'symbol))))
|
||||
|
||||
(prelude-require-package 'consult-flycheck)
|
||||
(use-package consult-flycheck)
|
||||
|
||||
(prelude-require-package 'consult-lsp)
|
||||
(use-package consult-lsp
|
||||
:bind (:map lsp-mode-map
|
||||
([remap xref-find-apropos] . consult-lsp-symbols)))
|
||||
|
||||
(prelude-require-package 'marginalia)
|
||||
(use-package marginalia
|
||||
:bind (("M-A" . marginalia-cycle)
|
||||
:map minibuffer-local-map
|
||||
("M-A" . marginalia-cycle))
|
||||
:init
|
||||
(marginalia-mode)
|
||||
:config
|
||||
;; For Projectile
|
||||
(add-to-list 'marginalia-prompt-categories '("Switch to project" . file))
|
||||
(add-to-list 'marginalia-prompt-categories '("Find file" . project-file))
|
||||
(add-to-list 'marginalia-prompt-categories '("Recently visited files" . project-file))
|
||||
(add-to-list 'marginalia-prompt-categories '("Switch to buffer" . buffer)))
|
||||
|
||||
(prelude-require-package 'embark)
|
||||
(use-package embark
|
||||
:bind
|
||||
(("C-." . embark-act)
|
||||
("C-;" . embark-dwim)
|
||||
("C-c C-o" . embark-export)
|
||||
("C-h b" . embark-bindings)
|
||||
("C-h B" . describe-bindings))
|
||||
:init
|
||||
;; Optionally replace the key help with a completing-read interface
|
||||
(setq prefix-help-command #'embark-prefix-help-command)
|
||||
:config
|
||||
;; Hide the mode line of the Embark live/completions buffers
|
||||
(add-to-list 'display-buffer-alist
|
||||
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
|
||||
nil
|
||||
(window-parameters (mode-line-format . none)))))
|
||||
|
||||
(prelude-require-package 'embark-consult)
|
||||
(use-package embark-consult
|
||||
:after (embark consult)
|
||||
:demand t ; only necessary if you have the hook below
|
||||
;; if you want to have consult previews as you move around an
|
||||
;; auto-updating embark collect buffer
|
||||
:hook
|
||||
(embark-collect-mode . consult-preview-at-point-mode))
|
||||
|
||||
;; async fuzzy finder (uses consult and orderless)
|
||||
(prelude-require-package 'affe)
|
||||
(use-package affe
|
||||
:after orderless
|
||||
:config
|
||||
;; Configure Orderless
|
||||
(setq affe-regexp-function #'orderless-pattern-compiler
|
||||
affe-highlight-function #'orderless--highlight)
|
||||
;; Manual preview key for `affe-grep'
|
||||
(consult-customize affe-grep :preview-key (kbd "M-."))
|
||||
(defun my/affe-grep-symbol-at-point (&optional dir initial)
|
||||
(interactive
|
||||
(list prefix-arg (when-let ((s (symbol-at-point)))
|
||||
(symbol-name s))))
|
||||
(affe-grep dir initial))
|
||||
:bind
|
||||
(("C-#" . affe-grep)
|
||||
("C-~" . my/affe-grep-symbol-at-point)
|
||||
("C-c z" . affe-find))
|
||||
:custom
|
||||
(affe-find-command "fd --color never -t f"))
|
||||
|
||||
(provide 'init-completion)
|
||||
Binary file not shown.
|
|
@ -1,18 +0,0 @@
|
|||
(prelude-require-package 'dashboard)
|
||||
(use-package dashboard
|
||||
:init
|
||||
(setq dashboard-center-content t
|
||||
dashboard-startup-banner 'logo
|
||||
dashboard-set-footer nil
|
||||
dashboard-week-agenda t
|
||||
dashboard-projects-backend 'projectile
|
||||
dashboard-projects-switch-function 'projectile-persp-switch-project
|
||||
dashboard-items '((recents . 15)
|
||||
(bookmarks . 5)
|
||||
(projects . 5)
|
||||
(agenda . 5)
|
||||
(registers . 5)))
|
||||
:config
|
||||
(dashboard-setup-startup-hook))
|
||||
|
||||
(provide 'init-dashboard)
|
||||
|
|
@ -1,50 +0,0 @@
|
|||
(use-package magit
|
||||
:after key-chord
|
||||
:init
|
||||
(defun my/magit-set-upstream ()
|
||||
(interactive)
|
||||
(magit-shell-command-topdir "git upstream"))
|
||||
;; update stale git info on the modeline (based on code removed from doom modeline)
|
||||
(defun my/magit-refresh-state ()
|
||||
(interactive)
|
||||
(dolist (buf (buffer-list))
|
||||
(when (and (not (buffer-modified-p buf))
|
||||
(buffer-file-name buf)
|
||||
(file-exists-p (buffer-file-name buf))
|
||||
(file-in-directory-p (buffer-file-name buf) (magit-toplevel)))
|
||||
(with-current-buffer buf
|
||||
(vc-refresh-state)))))
|
||||
:config
|
||||
(key-chord-define-global "UU" 'my/magit-set-upstream)
|
||||
(key-chord-define-global "RR" 'my/magit-refresh-state)
|
||||
;; :custom-face
|
||||
;; (diff-added ((t (:foreground "green4"))))
|
||||
;; (magit-diff-added ((t (:foreground "green4"))))
|
||||
;; (magit-diff-added-highlight ((t (:foreground "green4"))))
|
||||
;; (diff-removed ((t (:foreground "red3"))))
|
||||
;; (magit-diff-removed ((t (:foreground "red3"))))
|
||||
;; (magit-diff-removed-highlight ((t (:foreground "red3"))))
|
||||
:custom
|
||||
(magit-diff-refine-hunk 'all)
|
||||
;; (magit-diff-paint-whitespace t)
|
||||
;; (magit-diff-paint-whitespace-lines 'all)
|
||||
;; (magit-diff-highlight-trailing t)
|
||||
;; (magit-diff-highlight-indentation t)
|
||||
)
|
||||
|
||||
(prelude-require-package 'forge)
|
||||
(use-package forge
|
||||
:after magit)
|
||||
|
||||
(prelude-require-package 'git-gutter)
|
||||
(use-package git-gutter
|
||||
:diminish
|
||||
:bind
|
||||
("C-c j g" . git-gutter-mode)
|
||||
("C-c j S-g" . git-gutter)
|
||||
("C-c j n" . git-gutter:next-hunk)
|
||||
("C-c j p" . git-gutter:previous-hunk)
|
||||
("C-c j r" . git-gutter:revert-hunk)
|
||||
("C-c j d" . git-gutter:popup-hunk))
|
||||
|
||||
(provide 'init-git)
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
(prelude-require-package 'hydra)
|
||||
(use-package hydra)
|
||||
|
||||
(provide 'init-hydra)
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
(require 'init-paredit)
|
||||
|
||||
(prelude-require-package 'eval-expr)
|
||||
(use-package eval-expr
|
||||
:bind ("M-:" . eval-expr)
|
||||
:config
|
||||
(defun eval-expr-minibuffer-setup ()
|
||||
(local-set-key (kbd "<tab>") #'completion-at-point)
|
||||
(set-syntax-table emacs-lisp-mode-syntax-table)
|
||||
(paredit-mode)))
|
||||
|
||||
(provide 'init-lisp)
|
||||
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
(use-package lsp-mode
|
||||
:diminish
|
||||
:after key-chord
|
||||
:hook (clojure-mode . lsp)
|
||||
:config
|
||||
(setq ;gc-cons-threshold (* 100 1024 1024)
|
||||
read-process-output-max (* 1024 1024)
|
||||
lsp-ui-doc-delay 1
|
||||
lsp-lens-enable nil
|
||||
lsp-ui-doc-enable t
|
||||
lsp-ui-doc-show-with-cursor t
|
||||
lsp-ui-doc-show-with-mouse t
|
||||
lsp-headerline-breadcrumb-enable nil
|
||||
lsp-enable-symbol-highlighting t
|
||||
lsp-ui-sideline-show-diagnostics t
|
||||
lsp-ui-sideline-show-code-actions nil
|
||||
lsp-modeline-code-actions-enable nil
|
||||
lsp-modeline-diagnostics-enable nil
|
||||
lsp-ui-doc-position 'top
|
||||
lsp-treemacs-theme "Iconless"
|
||||
;; user cider for indendation and completion instead
|
||||
lsp-enable-indentation nil
|
||||
lsp-completion-enable nil)
|
||||
(key-chord-define-global "QQ" 'lsp-find-references)
|
||||
(key-chord-define-global "PP" 'lsp-peek-find-references)
|
||||
(key-chord-define-global "GG" 'lsp-find-definition)
|
||||
(key-chord-define-global "DD" 'lsp-peek-find-definition))
|
||||
|
||||
(use-package lsp-treemacs)
|
||||
|
||||
(provide 'init-lsp)
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
(when (eq system-type 'darwin)
|
||||
(setq mac-option-modifier 'meta)
|
||||
(setq mac-right-option-modifier 'none)
|
||||
(setq mac-command-modifier 'super))
|
||||
|
||||
(provide 'init-mac)
|
||||
|
||||
|
|
@ -1,46 +0,0 @@
|
|||
(prelude-require-package 'envrc)
|
||||
(use-package envrc
|
||||
:diminish
|
||||
:config
|
||||
(envrc-global-mode))
|
||||
|
||||
(prelude-require-package 'rg)
|
||||
(use-package rg
|
||||
:config
|
||||
(rg-enable-default-bindings))
|
||||
|
||||
(prelude-require-package 'restclient)
|
||||
(use-package restclient
|
||||
:mode (("\\.http\\'" . restclient-mode)))
|
||||
|
||||
(prelude-require-package 'es-mode)
|
||||
(use-package es-mode
|
||||
:mode "\.es\'")
|
||||
|
||||
(prelude-require-package 'multi-vterm)
|
||||
(use-package multi-vterm
|
||||
:init (unbind-key "C-c t" prelude-mode-map)
|
||||
:bind (("C-c t" . multi-vterm-next)
|
||||
("C-c C-M-t" . multi-vterm)
|
||||
(:map vterm-mode-map
|
||||
("C-a" . vterm-send-C-a) ; TODO the crux binding is taking precedence
|
||||
("C-c C-a" . vterm-send-C-a)
|
||||
("M-[" . multi-vterm-prev)
|
||||
("M-]" . multi-vterm-next))))
|
||||
|
||||
(use-package dired
|
||||
:ensure nil
|
||||
:custom
|
||||
(dired-kill-when-opening-new-dired-buffer t))
|
||||
|
||||
(prelude-require-package 'eshell-z)
|
||||
(use-package eshell-z
|
||||
:defer t
|
||||
:hook (eshell-mode . (lambda () (require 'eshell-z))))
|
||||
|
||||
(prelude-require-package 'tagedit)
|
||||
(use-package tagedit
|
||||
:config (tagedit-add-paredit-like-keybindings)
|
||||
:hook (html-mode . (lambda () (tagedit-mode 1))))
|
||||
|
||||
(provide 'init-misc)
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
(prelude-require-package 'simple-modeline)
|
||||
|
||||
(use-package simple-modeline
|
||||
:hook (after-init . simple-modeline-mode)
|
||||
:custom
|
||||
(simple-modeline-segments
|
||||
'((simple-modeline-segment-modified
|
||||
simple-modeline-segment-buffer-name
|
||||
simple-modeline-segment-position)
|
||||
(simple-modeline-segment-minor-modes
|
||||
simple-modeline-segment-vc
|
||||
simple-modeline-segment-misc-info
|
||||
simple-modeline-segment-process
|
||||
simple-modeline-segment-major-mode))))
|
||||
|
||||
(prelude-require-package 'flycheck-indicator)
|
||||
(use-package flycheck-indicator
|
||||
:after flycheck
|
||||
:hook (flycheck-mode . flycheck-indicator-mode)
|
||||
:custom
|
||||
(flycheck-indicator-icon-error 9632)
|
||||
(flycheck-indicator-icon-info 9679)
|
||||
(flycheck-indicator-icon-warning 9650)
|
||||
(flycheck-indicator-status-icons
|
||||
'((running . "◉")
|
||||
(errored . "◙")
|
||||
(finished . "●")
|
||||
(interrupted . "◘")
|
||||
(suspicious . "◘")
|
||||
(no-checker . "○")
|
||||
(not-checked . "○"))))
|
||||
|
||||
(provide 'init-modeline)
|
||||
|
|
@ -1,27 +0,0 @@
|
|||
(defun add-hooks (modes func)
|
||||
(dolist (mode modes)
|
||||
(add-hook (intern (concat (symbol-name mode) "-hook")) func)))
|
||||
|
||||
(setq lisp-modes
|
||||
'(scheme-mode emacs-lisp-mode lisp-mode clojure-mode cider-repl-mode
|
||||
eval-expression-minibuffer-setup ielm-mode lisp-interaction-mode))
|
||||
|
||||
(defun add-lisp-hook (func)
|
||||
(add-hooks lisp-modes func))
|
||||
|
||||
(prelude-require-package 'paredit)
|
||||
(use-package paredit
|
||||
:diminish
|
||||
:bind (([remap mark-sexp] . sp-mark-sexp) ;; sp does this better!
|
||||
("M-[" . paredit-wrap-square))
|
||||
:config
|
||||
(add-lisp-hook #'turn-off-smartparens-mode)
|
||||
(add-lisp-hook #'enable-paredit-mode))
|
||||
|
||||
(use-package paredit-functions
|
||||
:after paredit
|
||||
:ensure nil
|
||||
:load-path "~/.emacs.d/personal/lisp/paredit-functions.el")
|
||||
|
||||
(provide 'init-paredit)
|
||||
|
||||
|
|
@ -1,43 +0,0 @@
|
|||
;; config for misc packages included with prelude
|
||||
|
||||
(use-package flycheck
|
||||
:config
|
||||
(global-flycheck-mode))
|
||||
|
||||
(use-package which-key
|
||||
:diminish)
|
||||
|
||||
(use-package whitespace
|
||||
:diminish)
|
||||
|
||||
(use-package smartparens
|
||||
:diminish)
|
||||
|
||||
(use-package subword
|
||||
:diminish)
|
||||
|
||||
(use-package ace-window
|
||||
:diminish
|
||||
:custom-face
|
||||
(aw-leading-char-face
|
||||
((t (:foreground "white" :background "red"
|
||||
:weight bold :height 2.5 :box (:line-width 10 :color "red"))))))
|
||||
|
||||
(use-package crux
|
||||
:init
|
||||
(unbind-key "C-c s" prelude-mode-map)
|
||||
(unbind-key "C-c r" prelude-mode-map)
|
||||
(unbind-key "C-c o" prelude-mode-map)
|
||||
:bind (:map prelude-mode-map
|
||||
(("C-c C-s" . crux-swap-windows)
|
||||
("C-c C-r" . crux-rename-file-and-buffer))))
|
||||
|
||||
(use-package key-chord
|
||||
:init
|
||||
(key-chord-unset-global "jl")
|
||||
(key-chord-define-global "LL" 'avy-goto-line)
|
||||
(key-chord-define-global ",," 'avy-goto-char-in-line))
|
||||
|
||||
(diminish 'prelude-mode)
|
||||
|
||||
(provide 'init-prelude)
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
(prelude-require-packages '(perspective persp-projectile ripgrep))
|
||||
|
||||
(use-package perspective
|
||||
:init (persp-mode)
|
||||
:custom (persp-modestring-short t))
|
||||
|
||||
(use-package persp-projectile)
|
||||
|
||||
(use-package projectile
|
||||
:diminish
|
||||
:config
|
||||
(def-projectile-commander-method ?B
|
||||
"consult-buffer"
|
||||
(progn
|
||||
(setq unread-command-events (listify-key-sequence "p "))
|
||||
(consult-buffer)))
|
||||
(def-projectile-commander-method ?r
|
||||
"consult-ripgrep"
|
||||
(consult-ripgrep))
|
||||
(def-projectile-commander-method ?p
|
||||
"DWIM"
|
||||
(cond ((> (length (projectile-project-buffer-names)) 4) (projectile-switch-to-buffer)) ;; TODO consult-buffer
|
||||
((> (length (projectile-recentf-files)) 0) (projectile-recentf))
|
||||
(t (projectile-find-file))))
|
||||
:custom
|
||||
(projectile-switch-project-action 'projectile-commander))
|
||||
|
||||
(defun projectile-add-new-project (project-root)
|
||||
(interactive (list (read-directory-name "Select project directory: " "~/src/"))) ;; TODO var
|
||||
(projectile-add-known-project project-root)
|
||||
(projectile-persp-switch-project project-root)) ;; TODO var
|
||||
|
||||
(provide 'init-projectile)
|
||||
|
|
@ -1,81 +0,0 @@
|
|||
(toggle-frame-maximized)
|
||||
|
||||
(menu-bar-mode -1)
|
||||
(tool-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
|
||||
(prelude-require-package 'solarized-theme)
|
||||
;(load-theme 'solarized-dark t)
|
||||
(prelude-require-package 'modus-themes)
|
||||
|
||||
;(setq modus-themes-syntax '(alt-syntax green-strings yellow-comments))
|
||||
(setq modus-themes-syntax '(green-strings yellow-comments)
|
||||
modus-themes-paren-match '(bold intense underline)
|
||||
;modus-themes-diffs '(desaturated)
|
||||
modus-themes-lang-checkers '(text-also background))
|
||||
(load-theme 'modus-vivendi t)
|
||||
|
||||
(setq whitespace-line-column 120)
|
||||
|
||||
(require 'hi-lock)
|
||||
(defun my/toggle-highlight-symbol-at-point ()
|
||||
(interactive)
|
||||
(if hi-lock-interactive-patterns
|
||||
(unhighlight-regexp (car (car hi-lock-interactive-patterns)))
|
||||
(highlight-symbol-at-point)))
|
||||
(global-set-key (kbd "s-.") 'my/toggle-highlight-symbol-at-point)
|
||||
|
||||
(unless (eq system-type 'darwin)
|
||||
(prelude-require-package 'idle-highlight-mode)
|
||||
(use-package idle-highlight-mode
|
||||
:hook (prog-mode . idle-highlight-mode)))
|
||||
|
||||
(use-package paren
|
||||
:config
|
||||
(show-paren-mode +1))
|
||||
|
||||
(global-set-key (kbd "C-x C-S-k") 'kill-this-buffer)
|
||||
|
||||
(use-package miniedit
|
||||
:commands minibuffer-edit
|
||||
:init (miniedit-install))
|
||||
|
||||
(prelude-require-package 'ctrlf)
|
||||
(use-package ctrlf
|
||||
:init
|
||||
(ctrlf-mode +1)
|
||||
:bind
|
||||
("C-*" . ctrlf-forward-symbol-at-point)
|
||||
("M-s M-s" . ctrlf-toggle-symbol)
|
||||
("C-M-g" . ctrlf-cancel)
|
||||
("C-c o" . ctrlf-occur))
|
||||
|
||||
(prelude-require-package 'buffer-move)
|
||||
(use-package buffer-move
|
||||
:bind (("C-S-<up>" . buf-move-up)
|
||||
("C-S-<down>" . buf-move-down)
|
||||
("C-S-<left>" . buf-move-left)
|
||||
("C-S-<right>" . buf-move-right)))
|
||||
|
||||
(prelude-require-package 'smartscan)
|
||||
(use-package smartscan
|
||||
:config
|
||||
(global-smartscan-mode t)
|
||||
:hook
|
||||
(cider-repl-mode . (lambda () (smartscan-mode -1)))
|
||||
(vterm-mode . (lambda () (smartscan-mode -1)))
|
||||
(eshell-mode . (lambda () (smartscan-mode -1))))
|
||||
|
||||
;;(prelude-require-package 'fullframe)
|
||||
;; (use-package fullframe
|
||||
;; :after magit
|
||||
;; :config
|
||||
;; (fullframe magit-status magit-mode-quit-window))
|
||||
|
||||
(smartrep-define-key global-map
|
||||
"C-x" '(("}" . enlarge-window-horizontally)
|
||||
("{" . shrink-window-horizontally)
|
||||
("^" . enlarge-window)
|
||||
("-" . shrink-window-if-larger-than-buffer)))
|
||||
|
||||
(provide 'init-ui)
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
(prelude-require-package 'use-package)
|
||||
(require 'use-package)
|
||||
|
||||
(setq use-package-always-ensure t)
|
||||
|
||||
(provide 'init-use-package)
|
||||
|
||||
|
|
@ -1,102 +0,0 @@
|
|||
(with-eval-after-load 'paredit
|
||||
;; From emacswiki
|
||||
(defun paredit-barf-all-the-way-backward ()
|
||||
(interactive)
|
||||
(paredit-split-sexp)
|
||||
(paredit-backward-down)
|
||||
(paredit-splice-sexp))
|
||||
|
||||
(defun paredit-barf-all-the-way-forward ()
|
||||
(interactive)
|
||||
(paredit-split-sexp)
|
||||
(paredit-forward-down)
|
||||
(paredit-splice-sexp)
|
||||
(if (eolp) (delete-horizontal-space)))
|
||||
|
||||
(defun paredit-slurp-all-the-way-backward ()
|
||||
(interactive)
|
||||
(catch 'done
|
||||
(while (not (bobp))
|
||||
(save-excursion
|
||||
(paredit-backward-up)
|
||||
(if (eq (char-before) ?\()
|
||||
(throw 'done t)))
|
||||
(paredit-backward-slurp-sexp))))
|
||||
|
||||
(defun paredit-slurp-all-the-way-forward ()
|
||||
(interactive)
|
||||
(catch 'done
|
||||
(while (not (eobp))
|
||||
(save-excursion
|
||||
(paredit-forward-up)
|
||||
(if (eq (char-after) ?\))
|
||||
(throw 'done t)))
|
||||
(paredit-forward-slurp-sexp))))
|
||||
|
||||
(nconc paredit-commands
|
||||
'("Extreme Barfage & Slurpage"
|
||||
(("C-M-)")
|
||||
paredit-slurp-all-the-way-forward
|
||||
("(foo (bar |baz) quux zot)"
|
||||
"(foo (bar |baz quux zot))")
|
||||
("(a b ((c| d)) e f)"
|
||||
"(a b ((c| d)) e f)"))
|
||||
(("C-M-}" "M-F")
|
||||
paredit-barf-all-the-way-forward
|
||||
("(foo (bar |baz quux) zot)"
|
||||
"(foo (bar|) baz quux zot)"))
|
||||
(("C-M-(")
|
||||
paredit-slurp-all-the-way-backward
|
||||
("(foo bar (baz| quux) zot)"
|
||||
"((foo bar baz| quux) zot)")
|
||||
("(a b ((c| d)) e f)"
|
||||
"(a b ((c| d)) e f)"))
|
||||
(("C-M-{" "M-B")
|
||||
paredit-barf-all-the-way-backward
|
||||
("(foo (bar baz |quux) zot)"
|
||||
"(foo bar baz (|quux) zot)"))))
|
||||
|
||||
(paredit-define-keys)
|
||||
(paredit-annotate-mode-with-examples)
|
||||
(paredit-annotate-functions-with-examples)
|
||||
|
||||
;; From bodil
|
||||
;; Inverse M-(
|
||||
(defun paredit-wrap-round-from-behind ()
|
||||
(interactive)
|
||||
(forward-sexp -1)
|
||||
(paredit-wrap-round)
|
||||
(insert " ")
|
||||
(forward-char -1))
|
||||
(eval-after-load "paredit"
|
||||
'(define-key paredit-mode-map (kbd "M-)")
|
||||
'paredit-wrap-round-from-behind))
|
||||
|
||||
;; From bodil
|
||||
;; Duplicate sexp
|
||||
(defun paredit-duplicate-after-point
|
||||
()
|
||||
"Duplicates the content of the line that is after the point."
|
||||
(interactive)
|
||||
;; skips to the next sexp
|
||||
(while (looking-at " ")
|
||||
(forward-char))
|
||||
(set-mark-command nil)
|
||||
;; while we find sexps we move forward on the line
|
||||
(while (and (<= (point) (car (bounds-of-thing-at-point 'sexp)))
|
||||
(not (= (point) (line-end-position))))
|
||||
(forward-sexp)
|
||||
(while (looking-at " ")
|
||||
(forward-char)))
|
||||
(kill-ring-save (mark) (point))
|
||||
;; go to the next line and copy the sexprs we encountered
|
||||
(paredit-newline)
|
||||
(set-mark-command nil)
|
||||
(yank)
|
||||
(exchange-point-and-mark)))
|
||||
(eval-after-load "paredit"
|
||||
'(define-key paredit-mode-map (kbd "C-c C-d")
|
||||
'paredit-duplicate-after-point))
|
||||
|
||||
(provide 'paredit-functions)
|
||||
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
(add-to-list 'load-path (expand-file-name "personal/lisp" user-emacs-directory))
|
||||
|
||||
(require 'init-use-package)
|
||||
(require 'init-ui)
|
||||
(require 'init-prelude)
|
||||
(require 'init-projectile)
|
||||
(require 'init-hydra)
|
||||
(require 'init-modeline)
|
||||
(require 'init-dashboard)
|
||||
(require 'init-completion)
|
||||
(require 'init-lisp)
|
||||
(require 'init-clojure)
|
||||
(require 'init-lsp)
|
||||
(require 'init-git)
|
||||
(require 'init-mac)
|
||||
(require 'init-misc)
|
||||
|
||||
(add-hook 'after-init-hook '(lambda ()
|
||||
(setq gc-cons-threshold (* 100 1024 1024)
|
||||
gc-cons-percentage 0.1)))
|
||||
|
||||
(global-unset-key (kbd "<left>"))
|
||||
(global-unset-key (kbd "<right>"))
|
||||
(global-unset-key (kbd "<up>"))
|
||||
(global-unset-key (kbd "<down>"))
|
||||
(global-unset-key (kbd "<C-left>"))
|
||||
(global-unset-key (kbd "<C-right>"))
|
||||
(global-unset-key (kbd "<C-up>"))
|
||||
(global-unset-key (kbd "<C-down>"))
|
||||
(global-unset-key (kbd "<M-left>"))
|
||||
(global-unset-key (kbd "<M-right>"))
|
||||
(global-unset-key (kbd "<M-up>"))
|
||||
(global-unset-key (kbd "<M-down>"))
|
||||
(global-unset-key (kbd "<delete>"))
|
||||
(global-unset-key (kbd "<deletechar>"))
|
||||
|
||||
|
|
@ -1,102 +0,0 @@
|
|||
;;; prelude-modules.el --- A listing of modules to load on startup
|
||||
;;
|
||||
;; Copyright © 2011-2021 Bozhidar Batsov
|
||||
;;
|
||||
;; Author: Bozhidar Batsov <bozhidar@batsov.com>
|
||||
;; URL: https://github.com/bbatsov/prelude
|
||||
|
||||
;; This file is not part of GNU Emacs.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This file is just a list of Prelude modules to load on startup.
|
||||
;; For convenience the modules are grouped in several categories.
|
||||
;; The prelude-modules.el in the samples folder should be copied
|
||||
;; to your personal folder and edited there.
|
||||
|
||||
;; Note that some modules can't be used together - e.g. you shouldn't
|
||||
;; enable both prelude-ido and prelude-ivy, as they serve the same
|
||||
;; purpose.
|
||||
|
||||
;;; License:
|
||||
|
||||
;; This program is free software; you can redistribute it and/or
|
||||
;; modify it under the terms of the GNU General Public License
|
||||
;; as published by the Free Software Foundation; either version 3
|
||||
;; of the License, or (at your option) any later version.
|
||||
;;
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
;;
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;; Uncomment the modules you'd like to use and restart Prelude afterwards
|
||||
|
||||
;;; General productivity tools
|
||||
|
||||
;; (require 'prelude-ido) ;; Supercharges Emacs completion for C-x C-f and more
|
||||
;; (require 'prelude-ivy) ;; A mighty modern alternative to ido
|
||||
;; (require 'prelude-selectrum) ;; A powerful, yet simple, alternative to ivy
|
||||
;; (require 'prelude-helm) ;; Interface for narrowing and search
|
||||
;; (require 'prelude-helm-everywhere) ;; Enable Helm everywhere
|
||||
;; (require 'prelude-company)
|
||||
(require 'prelude-key-chord) ;; Binds useful features to key combinations
|
||||
|
||||
;;; Vim emulation
|
||||
;;
|
||||
;; Enable this module if you're fond of vim's keybindings.
|
||||
;; (require 'prelude-evil)
|
||||
|
||||
;;; Org-mode (a legendary productivity tool that deserves its own category)
|
||||
;;
|
||||
;; Org-mode helps you keep TODO lists, notes and more.
|
||||
(require 'prelude-org)
|
||||
|
||||
;;; Programming languages support
|
||||
;;
|
||||
;; Modules for a few very common programming languages
|
||||
;; are enabled by default.
|
||||
|
||||
(require 'prelude-c)
|
||||
(require 'prelude-clojure)
|
||||
;; (require 'prelude-coffee)
|
||||
;; (require 'prelude-common-lisp)
|
||||
(require 'prelude-css)
|
||||
;; (require 'prelude-dart)
|
||||
(require 'prelude-emacs-lisp)
|
||||
;; (require 'prelude-erlang)
|
||||
;; (require 'prelude-elixir)
|
||||
;; (require 'prelude-go)
|
||||
;; (require 'prelude-haskell)
|
||||
(require 'prelude-js)
|
||||
;; (require 'prelude-latex)
|
||||
(require 'prelude-lisp) ;; Common setup for Lisp-like languages
|
||||
(require 'prelude-lsp) ;; Base setup for the Language Server Protocol
|
||||
;; (require 'prelude-lua)
|
||||
;; (require 'prelude-ocaml)
|
||||
;; (require 'prelude-perl)
|
||||
;; (require 'prelude-python)
|
||||
;; (require 'prelude-racket)
|
||||
;; (require 'prelude-ruby)
|
||||
;; (require 'prelude-rust)
|
||||
;; (require 'prelude-scala)
|
||||
;; (require 'prelude-scheme)
|
||||
(require 'prelude-shell)
|
||||
;; (require 'prelude-scss)
|
||||
;; (require 'prelude-ts)
|
||||
(require 'prelude-web) ;; Emacs mode for web templates
|
||||
(require 'prelude-xml)
|
||||
(require 'prelude-yaml)
|
||||
|
||||
;;; Misc
|
||||
;; (require 'prelude-erc) ;; A popular Emacs IRC client (useful if you're still into Freenode)
|
||||
|
||||
(provide 'prelude-modules)
|
||||
;;; prelude-modules.el ends here
|
||||
Loading…
Reference in New Issue