dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Switch to delight from rich-minority

Browse Source
This commit is contained in:
Adam Goldsmith 2018-11-30 13:43:00 -05:00
parent 9003956ed4
commit b0267f7b62
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
.emacs.d/init.el
View File

@ -273,7 +273,10 @@
("M-n" . forward-paragraph))) ("M-n" . forward-paragraph)))
;;;; external packages (required) ;;;; external packages (required)
(use-package delight :ensure)
(use-package company :ensure :demand (use-package company :ensure :demand
:delight
:bind ("<C-tab>" . company-manual-begin) :bind ("<C-tab>" . company-manual-begin)
:config :config
(global-company-mode) (global-company-mode)
@ -305,8 +308,7 @@
("^~/Programs/" ":Prog:") ("^~/Programs/" ":Prog:")
("^:Doc:WPI/" ":WPI:") ("^:Doc:WPI/" ":WPI:")
("^/sshx:ccc:" ">ccc:") ("^/sshx:ccc:" ">ccc:")
("^>ccc:/home/asgoldsmith" ":>ccc:~")) ("^>ccc:/home/asgoldsmith" ":>ccc:~"))))
rm-blacklist '(" company" " Undo-Tree" " ivy" " 80col")))
(use-package avy :ensure (use-package avy :ensure
:config :config
@ -322,13 +324,17 @@
:bind (("C-s" . swiper) :bind (("C-s" . swiper)
("C-r" . swiper) ("C-r" . swiper)
("C-c C-r" . ivy-resume) ("C-c C-r" . ivy-resume)
:map swiper-map ("C-r" . ivy-previous-line-or-history) :map swiper-map (("C-r" . ivy-previous-line-or-history)
("M-," . swiper-mc))
:map ivy-minibuffer-map ("C-'" . ivy-avy)) :map ivy-minibuffer-map ("C-'" . ivy-avy))
:init :init
(bind-key "C-S-s" 'isearch-forward) (bind-key "C-S-s" 'isearch-forward)
(bind-key "C-S-r" 'isearch-backward) (bind-key "C-S-r" 'isearch-backward)
:config :config
(ivy-mode 1) (use-package ivy :ensure
:delight
:config
(ivy-mode 1))
(defun ivy-backward-delete-char () (defun ivy-backward-delete-char ()
"Forward to `backward-delete-char'. "Forward to `backward-delete-char'.
Do less dumb things with directories Do less dumb things with directories
@ -381,6 +387,7 @@
:bind ("M-S-p" . ace-window)) :bind ("M-S-p" . ace-window))
(use-package undo-tree :ensure (use-package undo-tree :ensure
:delight
:config :config
(bind-key "M-/" 'undo-tree-visualize) (bind-key "M-/" 'undo-tree-visualize)
(global-undo-tree-mode) (global-undo-tree-mode)
@ -424,6 +431,7 @@
:bind (:map outline-minor-mode-map ("M-<tab>" . outline-cycle))) :bind (:map outline-minor-mode-map ("M-<tab>" . outline-cycle)))
(use-package column-enforce-mode :ensure (use-package column-enforce-mode :ensure
:delight
:config :config
:hook prog-mode) :hook prog-mode)
@ -528,6 +536,7 @@
circe-default-part-message "")) circe-default-part-message ""))
(use-package dtrt-indent (use-package dtrt-indent
:delight
:config :config
(dtrt-indent-global-mode 1)) (dtrt-indent-global-mode 1))
@ -561,12 +570,10 @@
(use-package projectile (use-package projectile
:bind (:map projectile-mode-map (("C-S-z" . projectile-compile-project) :bind (:map projectile-mode-map (("C-S-z" . projectile-compile-project)
("C-c p" . projectile-command-map))) ("C-c p" . projectile-command-map)))
:delight '(:eval (if (file-remote-p default-directory)
:config
(setq projectile-mode-line
'(:eval (if (file-remote-p default-directory)
" P" " P"
(format " P[%s]" (projectile-project-name))))) (format " P[%s]" (projectile-project-name))))
:config
(use-package counsel-projectile :ensure)) (use-package counsel-projectile :ensure))
(use-package scad-mode (use-package scad-mode
@ -660,6 +667,7 @@
(call-interactively 'company-yasnippet))) (call-interactively 'company-yasnippet)))
(use-package highlight-indent-guides (use-package highlight-indent-guides
:delight
:config :config
:hook (prog-mode . highlight-indent-guides-mode)) :hook (prog-mode . highlight-indent-guides-mode))