From 9f38ca1f3ec8910ec7545f6e3736accd340f7485 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 19 Mar 2020 17:28:23 -0700 Subject: emacs: use the theme modus-operandi It's a light theme with high contrast. It was suggested in this article https://www.manueluberti.eu/emacs/2020/03/16/modus-themes/. --- emacs.d/custom/fcuny-ivy.el | 40 ++++++++++++++++++ emacs.d/custom/fcuny-navigation.el | 85 +++++++++++++++----------------------- emacs.d/custom/fcuny-ui.el | 16 +++---- 3 files changed, 79 insertions(+), 62 deletions(-) create mode 100644 emacs.d/custom/fcuny-ivy.el (limited to 'emacs.d') diff --git a/emacs.d/custom/fcuny-ivy.el b/emacs.d/custom/fcuny-ivy.el new file mode 100644 index 0000000..e4c63f7 --- /dev/null +++ b/emacs.d/custom/fcuny-ivy.el @@ -0,0 +1,40 @@ +(use-package counsel + :diminish counsel-mode + :ensure t + :after ivy + :init (counsel-mode 1) + :bind + (("M-x" . counsel-M-x) + ("C-x C-f" . counsel-find-file) + ("C-x C-r" . counsel-recentf) + ("C-c f" . counsel-git) + ("C-c /" . counsel-rg) + ("C-x r l" . counsel-bookmark)) + :custom + (counsel-find-file-ignore-regexp "\\.git\\|\\.DS_Store\\|\\.localized\\'") + (counsel-find-file-at-point t)) + +(use-package ivy + :ensure t + :diminish ivy-mode + :init (ivy-mode 1) + :custom + (ivy-use-virtual-buffers t) + (ivy-count-format "(%d/%d) ") + (ivy-height 20) + (ivy-use-selectable-prompt t) + :bind (("C-x b" . ivy-switch-buffer) + ("C-s" . swiper))) + +(use-package ivy-rich + :ensure t + :after (ivy) + :config + (ivy-rich-mode 1) + :custom + (ivy-extra-directories '("../" "./")) + (ivy-virtual-abbreviate 'full) + (ivy-rich-switch-buffer-align-virtual-buffer t) + (ivy-rich-path-style 'abbrev)) + +(provide 'fcuny-ivy) diff --git a/emacs.d/custom/fcuny-navigation.el b/emacs.d/custom/fcuny-navigation.el index 4547e61..f51e99c 100644 --- a/emacs.d/custom/fcuny-navigation.el +++ b/emacs.d/custom/fcuny-navigation.el @@ -1,39 +1,45 @@ (require 'fcuny-vars) -(use-package avy +(use-package ace-window :ensure t - :bind - (("C-c l" . avy-goto-line))) - -(use-package windmove - :bind (("" . windmove-left) - ("" . windmove-up) - ("" . windmove-right) - ("" . windmove-down))) + :pretty-hydra + ((:title "Window Management" + :foreign-keys warn :quit-key "q") + ("Actions" + (("TAB" other-window "switch") + ("x" ace-delete-window "delete" :exit t) + ("m" ace-delete-other-windows "maximize" :exit t) + ("s" ace-swap-window "swap" :exit t) + ("a" ace-select-window "select" :exit t) + ("f" toggle-frame-fullscreen "fullscreen" :exit t)) + "Resize" + (("h" shrink-window-horizontally "←") + ("j" enlarge-window "↓") + ("k" shrink-window "↑") + ("l" enlarge-window-horizontally "→") + ("n" balance-windows "balance")) + "Split" + (("b" split-window-right "horizontally") + ("v" split-window-below "vertically")) + "Zoom" + (("+" text-scale-increase "in") + ("-" text-scale-decrease "out") + ("0" (text-scale-increase 0) "reset")))) + :bind (([remap other-window] . ace-window) + ("C-c w" . ace-window-hydra/body)) + :custom-face + (aw-leading-char-face ((t (:inherit font-lock-keyword-face :bold t :height 3.0)))) + (aw-mode-line-face ((t (:inherit mode-line-emphasis :bold t)))) + :hook (emacs-startup . ace-window-display-mode) + :config + ;; Bind hydra to dispatch list + (add-to-list 'aw-dispatch-alist '(?w ace-window-hydra/body) t)) (use-package bookmark :custom (bookmark-default-file (expand-file-name "bookmarks" fcuny/path-emacs-var)) (bookmark-save-flag 1)) -(use-package counsel - :diminish counsel-mode - :ensure t - :after ivy - :init (counsel-mode 1) - :bind - (("M-x" . counsel-M-x) - ("C-s" . counsel-grep-or-swiper) - ("C-x C-f" . counsel-find-file) - ("C-x C-r" . counsel-recentf) - ("C-c f" . counsel-git) - ("C-c s" . counsel-git-grep) - ("C-c /" . counsel-rg) - ("C-x r l" . counsel-bookmark)) - :custom - (counsel-find-file-ignore-regexp "\\.DS_Store\\|\\.localized\\'") - (counsel-find-file-at-point t)) - (use-package ls-lisp :ensure nil :custom @@ -89,31 +95,6 @@ :init (add-hook 'ibuffer-mode-hook (lambda () (ibuffer-switch-to-saved-filter-groups "default")))) -(use-package ivy - :ensure t - :diminish ivy-mode - :init (ivy-mode 1) - :custom - (ivy-use-virtual-buffers t) - (ivy-count-format "(%d/%d) ") - (ivy-height 20) - (ivy-use-selectable-prompt t) - :bind (("C-x b" . ivy-switch-buffer) - ("C-c C-r" . ivy-resume) - ("C-c s" . swiper-at-point) - ("C-s" . swiper))) - -(use-package ivy-rich - :ensure t - :after (ivy) - :config - (ivy-rich-mode 1) - :custom - (ivy-extra-directories '("../" "./")) - (ivy-virtual-abbreviate 'full) - (ivy-rich-switch-buffer-align-virtual-buffer t) - (ivy-rich-path-style 'abbrev)) - (use-package recentf :init (recentf-mode 1) :config diff --git a/emacs.d/custom/fcuny-ui.el b/emacs.d/custom/fcuny-ui.el index 63476aa..cac5640 100644 --- a/emacs.d/custom/fcuny-ui.el +++ b/emacs.d/custom/fcuny-ui.el @@ -26,17 +26,8 @@ (setq ns-use-native-fullscreen nil) (setq mac-allow-anti-aliasing t))) -(use-package time - :ensure t - :config - (progn - (setf display-time-default-load-average nil - display-time-use-mail-icon t - display-time-24hr-format t) - (display-time-mode t))) - (use-package hl-line - :hook ((prog-mode puppet-mode dired-mode org-mode markdown-mode) . hl-line-mode) + :hook ((prog-mode puppet-mode dired-mode org-mode markdown-mode conf-mode yaml-mode) . hl-line-mode) :custom (hl-line-sticky-flag nil)) @@ -48,4 +39,9 @@ (setq uniquify-buffer-name-style 'forward) (setq uniquify-separator "/")) +(use-package modus-operandi-theme + :ensure t + :config + (load-theme 'modus-operandi t)) + (provide 'fcuny-ui) -- cgit 1.4.1