|
|
@@ -1,1097 +0,0 @@
|
|
|
-;; Package installation
|
|
|
-
|
|
|
-(require 'package)
|
|
|
-;; Create the package install directory if it doesn't exist
|
|
|
-(setq package-user-dir (format "%selpa_%s/"
|
|
|
- user-emacs-directory emacs-major-version)) ; default = ~/.emacs.d/elpa/
|
|
|
-
|
|
|
-(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))
|
|
|
- (not (gnutls-available-p))))
|
|
|
- (proto (if no-ssl "http" "https")))
|
|
|
- ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired
|
|
|
- (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t)
|
|
|
- ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t)
|
|
|
- (when (< emacs-major-version 24)
|
|
|
- ;; For important compatibility libraries like cl-lib
|
|
|
- (add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/")))))
|
|
|
-
|
|
|
-(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/"))
|
|
|
-
|
|
|
-(package-initialize)
|
|
|
-
|
|
|
-(setq package-enable-at-startup nil)
|
|
|
-
|
|
|
-(unless (package-installed-p 'use-package)
|
|
|
- (package-refresh-contents)
|
|
|
- (package-install 'use-package))
|
|
|
-
|
|
|
-(eval-when-compile
|
|
|
- (require 'use-package))
|
|
|
-
|
|
|
-
|
|
|
-;;;; Required packages
|
|
|
-
|
|
|
-(setq use-package-verbose t)
|
|
|
-
|
|
|
-(use-package diminish
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(diminish 'visual-line-mode)
|
|
|
-(diminish 'abbrev-mode)
|
|
|
-(diminish 'eldoc-mode)
|
|
|
-
|
|
|
-(use-package autorevert
|
|
|
- :diminish auto-revert-mode)
|
|
|
-
|
|
|
-(use-package iedit
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(defmacro hail (p)
|
|
|
- (list 'use-package p ':ensure 't))
|
|
|
-
|
|
|
-(hail hydra)
|
|
|
-
|
|
|
-(use-package engine-mode
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(defvar evil-want-integration nil)
|
|
|
-
|
|
|
-(use-package undo-tree
|
|
|
- :ensure t
|
|
|
- :diminish undo-tree-mode
|
|
|
- :init
|
|
|
- (setq undo-tree-enable-undo-in-region nil))
|
|
|
-
|
|
|
-(use-package evil
|
|
|
- :after undo-tree
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (evil-mode t)
|
|
|
- (setq evil-want-C-i-jump nil)
|
|
|
- (setq evil-default-state 'normal)
|
|
|
-
|
|
|
- ;; Move all elements of evil-emacs-state-modes to evil-motion-state-modes
|
|
|
- (setq evil-motion-state-modes (append evil-emacs-state-modes evil-motion-state-modes)
|
|
|
- evil-emacs-state-modes (list 'magit-popup-mode))
|
|
|
- (delete 'magit-popup-mode evil-motion-state-modes)
|
|
|
-
|
|
|
- ;; Don't echo evil's states
|
|
|
- (setq evil-insert-state-message nil
|
|
|
- evil-visual-state-message nil)
|
|
|
-
|
|
|
- ;; Little words (camelCase)
|
|
|
- (evil-define-motion evil-little-word (count)
|
|
|
- :type exclusive
|
|
|
- (let* ((case-fold-search nil)
|
|
|
- (count (if count count 1)))
|
|
|
- (while (> count 0)
|
|
|
- (forward-char)
|
|
|
- (search-forward-regexp "[_A-Z]\\|\\W" nil t)
|
|
|
- (backward-char)
|
|
|
- (decf count))))
|
|
|
-
|
|
|
- ;; Don't litter registers with whitespace
|
|
|
- (defun destroy-whitespace--evil-delete-around (func beg end type &optional reg yh)
|
|
|
- (let ((clean-string (replace-regexp-in-string "[ \t\n]" "" (buffer-substring beg end))))
|
|
|
- (if (equal "" clean-string)
|
|
|
- (apply func beg end type ?_ yh)
|
|
|
- (apply func beg end type reg yh))))
|
|
|
-
|
|
|
- (advice-add 'evil-delete :around #'destroy-whitespace--evil-delete-around)
|
|
|
-
|
|
|
- ;; eval the last sexp while in normal mode (include the character the cursor is currently on)
|
|
|
- (defun evil-eval-last-sexp ()
|
|
|
- (interactive)
|
|
|
- (evil-append 1)
|
|
|
- (eval-last-sexp nil)
|
|
|
- (evil-normal-state))
|
|
|
-
|
|
|
- ;; select recently pasted text
|
|
|
- ;; from https://emacs.stackexchange.com/a/21093
|
|
|
- (defun my/evil-select-pasted ()
|
|
|
- (interactive)
|
|
|
- (let ((start-marker (evil-get-marker ?[))
|
|
|
- (end-marker (evil-get-marker ?])))
|
|
|
- (evil-visual-select start-marker end-marker)))
|
|
|
-
|
|
|
- ;; "pull" left and right with zs and ze
|
|
|
- (defun hscroll-cursor-left ()
|
|
|
- (interactive "@")
|
|
|
- (set-window-hscroll (selected-window) (current-column)))
|
|
|
-
|
|
|
- (defun hscroll-cursor-right ()
|
|
|
- (interactive "@")
|
|
|
- (set-window-hscroll (selected-window) (- (current-column) (window-width) -1)))
|
|
|
-
|
|
|
- ;; Horizontal scrolling
|
|
|
- (setq auto-hscroll-mode 't)
|
|
|
- (setq hscroll-margin 0
|
|
|
- hscroll-step 1)
|
|
|
-
|
|
|
- (defhydra hydra-window (global-map "C-w")
|
|
|
- "window layout"
|
|
|
- ("u" winner-undo "undo")
|
|
|
- ("U" winner-redo "redo"))
|
|
|
-
|
|
|
- ;; Make K select manpage or engine-mode (m for man, g for google?)
|
|
|
- (defengine google
|
|
|
- "http://www.google.com/search?ie=utf-8&oe=utf-8&q=%s")
|
|
|
- (defhydra hydra-lookup-menu ()
|
|
|
- "Choose lookup"
|
|
|
- ("g" engine/search-google "Google" :color blue)
|
|
|
- ("m" evil-lookup "man" :color blue))
|
|
|
- (define-key evil-normal-state-map "K" 'hydra-lookup-menu/body)
|
|
|
- (define-key evil-visual-state-map "K" 'hydra-lookup-menu/body)
|
|
|
-
|
|
|
- ;; These go out here, because undefining keybinds is hard
|
|
|
- (define-key global-map "\C-j" nil)
|
|
|
- (define-key evil-normal-state-map "\C-j" 'flyspell-goto-next-error)
|
|
|
-
|
|
|
- (evil-define-key 'normal package-menu-mode-map "q" 'quit-window)
|
|
|
-
|
|
|
- (defun evil-passthrough-key (state mode key)
|
|
|
- "Use the default binding for KEY in MODE, rather than the evil-mode binding, for STATE."
|
|
|
- (evil-define-key state mode (kbd key) (evil-lookup-key mode (kbd key))))
|
|
|
-
|
|
|
-
|
|
|
- :bind (:map evil-normal-state-map
|
|
|
- ("zs" . hscroll-cursor-left)
|
|
|
- ("ze" . hscroll-cursor-right)
|
|
|
- ("[s" . flyspell-goto-previous-error)
|
|
|
- ("]s" . flyspell-goto-next-error)
|
|
|
- ("\C-k" . flyspell-goto-previous-error)
|
|
|
- ("\C-x \C-e" . evil-eval-last-sexp)
|
|
|
- ("j" . evil-next-visual-line)
|
|
|
- ("k" . evil-previous-visual-line)
|
|
|
- ("gj" . evil-next-line)
|
|
|
- ("gk" . evil-previous-line)
|
|
|
- ; :map Info-mode-map
|
|
|
- ; ("g" . nil)
|
|
|
- ; ("n" . nil)
|
|
|
- ; ("p" . nil)
|
|
|
- :map evil-window-map
|
|
|
- ("q" . delete-window)
|
|
|
- ("C-q" . delete-window)
|
|
|
- ("x" . kill-buffer-and-window)
|
|
|
- :map Buffer-menu-mode-map
|
|
|
- ("SPC" . nil)))
|
|
|
-
|
|
|
-(use-package evil-numbers
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- ;; Increment and decrement (evil-numbers)
|
|
|
- (defhydra hydra-numbers (global-map "C-x")
|
|
|
- "modify numbers"
|
|
|
- ("a" evil-numbers/inc-at-pt "increment")
|
|
|
- ("x" evil-numbers/dec-at-pt "decrement")))
|
|
|
-
|
|
|
-(use-package undohist
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- ;; Save undo history under .emacs.d/undohist
|
|
|
- (setq undohist-directory "~/.emacs.d/undohist")
|
|
|
- (unless (file-exists-p "~/.emacs.d/undohist")
|
|
|
- (make-directory "~/.emacs.d/undohist"))
|
|
|
-
|
|
|
- (undohist-initialize))
|
|
|
-
|
|
|
-(use-package powerline-evil
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (defun powerline-center-evil-theme ()
|
|
|
- "Setup a mode-line with major, evil, and minor modes centered."
|
|
|
- (interactive)
|
|
|
- (setq-default mode-line-format
|
|
|
- '("%e"
|
|
|
- (:eval
|
|
|
- (let* ((active (powerline-selected-window-active))
|
|
|
- (mode-line-buffer-id (if active 'mode-line-buffer-id 'mode-line-buffer-id-inactive))
|
|
|
- (mode-line (if active 'mode-line 'mode-line-inactive))
|
|
|
- (face1 (if active 'powerline-active1 'powerline-inactive1))
|
|
|
- (face2 (if active 'powerline-active2 'powerline-inactive2))
|
|
|
- (separator-left (intern (format "powerline-%s-%s"
|
|
|
- (powerline-current-separator)
|
|
|
- (car powerline-default-separator-dir))))
|
|
|
- (separator-right (intern (format "powerline-%s-%s"
|
|
|
- (powerline-current-separator)
|
|
|
- (cdr powerline-default-separator-dir))))
|
|
|
- (lhs (list (powerline-raw "%*" mode-line 'l)
|
|
|
- (powerline-buffer-id mode-line-buffer-id 'l)
|
|
|
- (powerline-raw " " mode-line)
|
|
|
- (funcall separator-left mode-line face1)
|
|
|
- (powerline-narrow face1 'l)
|
|
|
- (powerline-vc face1)))
|
|
|
- (rhs (list (funcall separator-right face1 mode-line)
|
|
|
- (powerline-raw mode-line-misc-info mode-line 'r)
|
|
|
- ;(powerline-raw global-mode-string face1 'r)
|
|
|
- (powerline-raw "%2l" mode-line 'r)
|
|
|
- (powerline-raw ":" mode-line)
|
|
|
- (powerline-raw "%2c" mode-line 'r)
|
|
|
- ;(powerline-raw " ")
|
|
|
- ;(powerline-raw "%6p" mode-line 'r)
|
|
|
- (powerline-hud face2 face1)))
|
|
|
- (center (append (list (powerline-raw " " face1)
|
|
|
- (funcall separator-left face1 face2)
|
|
|
- (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)
|
|
|
- (powerline-raw erc-modified-channels-object face2 'l))
|
|
|
- (powerline-major-mode face2 'l)
|
|
|
- (powerline-process face2)
|
|
|
- (powerline-raw " " face2))
|
|
|
- (if (split-string (format-mode-line minor-mode-alist))
|
|
|
- (append (if evil-mode
|
|
|
- (list (funcall separator-right face2 face1)
|
|
|
- (powerline-raw evil-mode-line-tag face1 'l)
|
|
|
- (powerline-raw " " face1)
|
|
|
- (funcall separator-left face1 face2)))
|
|
|
- (list (powerline-minor-modes face2 'l)
|
|
|
- (powerline-raw " " face2)
|
|
|
- (funcall separator-right face2 face1)))
|
|
|
- (list (powerline-raw evil-mode-line-tag face2)
|
|
|
- (funcall separator-right face2 face1))))))
|
|
|
- (concat (powerline-render lhs)
|
|
|
- (powerline-fill-center face1 (/ (powerline-width center) 2.0))
|
|
|
- (powerline-render center)
|
|
|
- (powerline-fill face1 (powerline-width rhs))
|
|
|
- (powerline-render rhs)))))))
|
|
|
- (defun powerline-evil-vim-theme ()
|
|
|
- "Powerline's Vim-like mode-line with evil state at the beginning."
|
|
|
- (interactive)
|
|
|
- (setq-default mode-line-format
|
|
|
- '("%e"
|
|
|
- (:eval
|
|
|
- (let* ((active (powerline-selected-window-active))
|
|
|
- (mode-line (if active 'mode-line 'mode-line-inactive))
|
|
|
- (face1 (if active 'powerline-active1 'powerline-inactive1))
|
|
|
- (face2 (if active 'powerline-active2 'powerline-inactive2))
|
|
|
- (separator-left (intern (format "powerline-%s-%s"
|
|
|
- (powerline-current-separator)
|
|
|
- (car powerline-default-separator-dir))))
|
|
|
- (separator-right (intern (format "powerline-%s-%s"
|
|
|
- (powerline-current-separator)
|
|
|
- (cdr powerline-default-separator-dir))))
|
|
|
- (lhs (list (if evil-mode
|
|
|
- (powerline-raw (powerline-evil-tag) mode-line))
|
|
|
- (powerline-buffer-id `(mode-line-buffer-id ,mode-line) 'l)
|
|
|
- (powerline-raw "[" mode-line 'l)
|
|
|
- (powerline-major-mode mode-line)
|
|
|
- (powerline-process mode-line)
|
|
|
- (powerline-raw "]" mode-line)
|
|
|
- (when (buffer-modified-p)
|
|
|
- (powerline-raw "[+]" mode-line))
|
|
|
- (when buffer-read-only
|
|
|
- (powerline-raw "[RO]" mode-line))
|
|
|
- ;; (powerline-raw (concat "[" (mode-line-eol-desc) "]") mode-line)
|
|
|
- (when (and (boundp 'which-func-mode) which-func-mode)
|
|
|
- (powerline-raw which-func-format nil 'l))
|
|
|
- (when (boundp 'erc-modified-channels-object)
|
|
|
- (powerline-raw erc-modified-channels-object face1 'l))
|
|
|
- (powerline-raw "[" mode-line 'l)
|
|
|
- (powerline-minor-modes mode-line) (powerline-raw "%n" mode-line)
|
|
|
- (powerline-raw "]" mode-line)
|
|
|
- (when (and vc-mode buffer-file-name)
|
|
|
- (let ((backend (vc-backend buffer-file-name)))
|
|
|
- (when backend
|
|
|
- (concat (powerline-raw "[" mode-line 'l)
|
|
|
- (powerline-raw (format "%s / %s" backend (vc-working-revision buffer-file-name backend)))
|
|
|
- (powerline-raw "]" mode-line)))))))
|
|
|
- (rhs (list (powerline-raw mode-line-misc-info mode-line 'r)
|
|
|
- (powerline-raw global-mode-string mode-line 'r)
|
|
|
- (powerline-raw "%l," mode-line 'l)
|
|
|
- (powerline-raw (format-mode-line '(10 "%c")))
|
|
|
- (powerline-raw (replace-regexp-in-string "%" "%%" (format-mode-line '(-3 "%p"))) mode-line 'r))))
|
|
|
- (concat (powerline-render lhs)
|
|
|
- (powerline-fill mode-line (powerline-width rhs))
|
|
|
- (powerline-render rhs)))))))
|
|
|
-
|
|
|
- (if (or (display-graphic-p) (daemonp))
|
|
|
- (powerline-center-evil-theme)
|
|
|
- (powerline-evil-vim-theme)))
|
|
|
-
|
|
|
-; (use-package smart-mode-line
|
|
|
-; :ensure t
|
|
|
-; :init
|
|
|
-; :config
|
|
|
-; (setq sml/no-confirm-load-theme t)
|
|
|
-; (setq sml/mule-info nil)
|
|
|
-; (setq sml/show-frame-identification nil)
|
|
|
-; (sml/setup))
|
|
|
-
|
|
|
-; (use-package spaceline
|
|
|
-; :ensure t
|
|
|
-; :config
|
|
|
-; (require 'spaceline-config)
|
|
|
-; (spaceline-spacemacs-theme))
|
|
|
-
|
|
|
-; (use-package telephone-line
|
|
|
-; :ensure t
|
|
|
-; :after evil-surround
|
|
|
-; :config
|
|
|
-; ;; These don't have any effect, surprise surprise
|
|
|
-; (set-face-attribute 'telephone-line-evil-emacs t :inherit 'telephone-line-evil)
|
|
|
-; (set-face-attribute 'telephone-line-evil-insert t :inherit 'telephone-line-evil)
|
|
|
-; (set-face-attribute 'telephone-line-evil-motion t :inherit 'telephone-line-evil)
|
|
|
-; (set-face-attribute 'telephone-line-evil-normal t :inherit 'telephone-line-evil)
|
|
|
-; (set-face-attribute 'telephone-line-evil-operator t :inherit 'telephone-line-evil)
|
|
|
-; (setq telephone-line-evil-use-short-tag t)
|
|
|
-; (telephone-line-evil-config))
|
|
|
-
|
|
|
-(use-package linum-relative
|
|
|
- :ensure t
|
|
|
- :diminish linum-relative-mode
|
|
|
- :config
|
|
|
- (setq linum-relative-current-symbol "")
|
|
|
- (if (not (or (display-graphic-p) (daemonp)))
|
|
|
- (setq linum-relative-format "%3s "))
|
|
|
-
|
|
|
- (add-hook 'prog-mode-hook 'linum-relative-mode)
|
|
|
-
|
|
|
- (defun linum-update-window-scale-fix (win)
|
|
|
- "fix linum for scaled text"
|
|
|
- (set-window-margins
|
|
|
- win
|
|
|
- (ceiling (* (if (boundp 'text-scale-mode-step)
|
|
|
- (expt text-scale-mode-step
|
|
|
- text-scale-mode-amount) 1)
|
|
|
- (if (car (window-margins))
|
|
|
- (car (window-margins)) 1)
|
|
|
- ))))
|
|
|
-
|
|
|
- (advice-add #'linum-update-window
|
|
|
- :after #'linum-update-window-scale-fix))
|
|
|
-
|
|
|
-(use-package bind-map
|
|
|
- :ensure t
|
|
|
- :after evil
|
|
|
- :after evil-numbers
|
|
|
- :config
|
|
|
- (bind-map
|
|
|
- my-base-leader-map
|
|
|
- :keys ("M-m")
|
|
|
- :evil-keys ("SPC")
|
|
|
- :evil-states (normal motion visual)
|
|
|
- :bindings
|
|
|
- ("d" 'define-word-at-point
|
|
|
- "b" 'buffer-menu
|
|
|
- "f" 'treemacs-toggle
|
|
|
- "u" 'undo-tree-visualize
|
|
|
- "l" 'auto-fill-mode
|
|
|
- "s" 'flyspell-toggle-correct-mode
|
|
|
- "a" 'company-mode
|
|
|
- "g" 'magit-status
|
|
|
- "c" 'flycheck-mode
|
|
|
- "w" '(lambda () (interactive)
|
|
|
- ;; "writing" mode
|
|
|
- (variable-pitch-mode)
|
|
|
- (visual-line-mode))
|
|
|
- "p" 'my/evil-select-pasted
|
|
|
- "/" 'swiper
|
|
|
- "v" 'ivy-switch-buffer
|
|
|
- "n" 'hydra-numbers/body
|
|
|
- "m" 'evil-visual-mark-mode
|
|
|
- "1" 'eyebrowse-switch-to-window-config-1
|
|
|
- "2" 'eyebrowse-switch-to-window-config-2
|
|
|
- "3" 'eyebrowse-switch-to-window-config-3
|
|
|
- "4" 'eyebrowse-switch-to-window-config-4
|
|
|
- "5" 'eyebrowse-switch-to-window-config-5
|
|
|
- "6" 'eyebrowse-switch-to-window-config-6
|
|
|
- "7" 'eyebrowse-switch-to-window-config-7
|
|
|
- "8" 'eyebrowse-switch-to-window-config-8
|
|
|
- "9" 'eyebrowse-switch-to-window-config-9))
|
|
|
-
|
|
|
- (bind-map
|
|
|
- my-elisp-map
|
|
|
- :keys ("M-m")
|
|
|
- :evil-keys ("SPC")
|
|
|
- :major-modes (emacs-lisp-mode)
|
|
|
- :bindings
|
|
|
- ("el" 'evil-eval-last-sexp
|
|
|
- "er" 'eval-region
|
|
|
- "eb" 'eval-buffer)))
|
|
|
-
|
|
|
-(use-package treemacs
|
|
|
- :ensure t
|
|
|
- :bind (:map treemacs-mode-map
|
|
|
- ("." . treemacs-toggle-show-dotfiles)))
|
|
|
-
|
|
|
-(use-package treemacs-evil
|
|
|
- :after treemacs
|
|
|
- :commands treemacs-toggle
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package editorconfig
|
|
|
- :ensure t
|
|
|
- :diminish editorconfig-mode
|
|
|
- :config
|
|
|
- (editorconfig-mode 1))
|
|
|
-
|
|
|
-(use-package ivy
|
|
|
- :ensure t
|
|
|
- :diminish ivy-mode
|
|
|
- :config
|
|
|
- (ivy-mode)
|
|
|
- (setq ivy-use-virtual-buffers t))
|
|
|
-
|
|
|
-(use-package flx
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (setq ivy-re-builders-alist '((t . ivy--regex-fuzzy))))
|
|
|
-
|
|
|
-(use-package company
|
|
|
- :ensure t
|
|
|
- :defer 2
|
|
|
- :diminish company-mode
|
|
|
- :config
|
|
|
- (add-hook 'prog-mode-hook 'company-mode)
|
|
|
- :custom
|
|
|
- (company-begin-commands '(self-insert-command))
|
|
|
- (company-idle-delay .1)
|
|
|
- (company-minimum-prefix-length 2)
|
|
|
- (company-show-numbers t)
|
|
|
- (company-tooltip-align-annotations 't))
|
|
|
-
|
|
|
-(use-package flycheck
|
|
|
- :ensure t
|
|
|
- :diminish flycheck-mode
|
|
|
- :config
|
|
|
- (add-hook 'prog-mode-hook 'flycheck-mode)
|
|
|
- (setq flycheck-check-syntax-automatically '(idle-change new-line save mode-enabled))
|
|
|
- (setq flycheck-checkers (delq 'emacs-lisp-checkdoc flycheck-checkers)))
|
|
|
-
|
|
|
-(use-package flycheck-pos-tip
|
|
|
- :ensure t
|
|
|
- :after flycheck
|
|
|
- :config
|
|
|
- (flycheck-pos-tip-mode))
|
|
|
-
|
|
|
-(use-package evil-surround
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (global-evil-surround-mode 1))
|
|
|
-
|
|
|
-(use-package dtrt-indent
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (setq global-mode-string (delq 'dtrt-indent-mode-line-info global-mode-string))
|
|
|
- (dtrt-indent-mode 1))
|
|
|
-
|
|
|
-(use-package org
|
|
|
- :commands org-mode
|
|
|
- :after bind-map
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (setq org-log-done 'time)
|
|
|
- (defun org->odt->pdf ()
|
|
|
- "Someday I'll learn how to properly format the LaTeX to PDF output."
|
|
|
- (interactive)
|
|
|
- (org-odt-export-to-odt)
|
|
|
- (shell-command
|
|
|
- (concat
|
|
|
- "libreoffice --headless --convert-to pdf \"" (file-name-sans-extension (buffer-name)) ".odt\""
|
|
|
- " && echo Done")))
|
|
|
- (setq org-html-table-default-attributes '(:border "2" :cellspacing "0" :cellpadding "6" :rules "all" :frame "border"))
|
|
|
-
|
|
|
- (setq org-latex-minted-options
|
|
|
- '("breaklines"))
|
|
|
-
|
|
|
- (add-hook 'org-mode-hook 'visual-line-mode)
|
|
|
- (defun org-variable-toggle-latex-fragment ()
|
|
|
- "Toggle LaTeX fragment, taking into account the current zoom size of the buffer."
|
|
|
- (interactive)
|
|
|
- (if (boundp 'text-scale-mode-amount)
|
|
|
- (let ((org-format-latex-options (plist-put org-format-latex-options :scale text-scale-mode-amount)))
|
|
|
- (org-toggle-latex-fragment))
|
|
|
- (org-toggle-latex-fragment)))
|
|
|
- (face-attribute 'default :font)
|
|
|
-
|
|
|
- ;; I might experiemnt with gnuplot and notes in the future.
|
|
|
- ;; (org-babel-do-load-languages
|
|
|
- ;; 'org-babel-load-languages
|
|
|
- ;; '((gnuplot . t)))
|
|
|
- ;; (global-set-key (kbd "C-c c") 'org-capture)
|
|
|
-
|
|
|
- (bind-map
|
|
|
- my-org-map
|
|
|
- :keys ("M-m")
|
|
|
- :evil-keys ("SPC")
|
|
|
- :major-modes (org-mode)
|
|
|
- :bindings
|
|
|
- (;"ol" 'org-toggle-latex-fragment
|
|
|
- "ol" 'org-variable-toggle-latex-fragment
|
|
|
- "ot" 'org-timeline
|
|
|
- "oa" 'org-archive-subtree
|
|
|
- "od" 'org-deadline
|
|
|
- "os" 'org-schedule
|
|
|
- "oc" 'cfw:open-org-calendar
|
|
|
- "op" 'org-priority
|
|
|
- "t" 'org-todo)))
|
|
|
-
|
|
|
-(use-package org-agenda
|
|
|
- :commands org-agenda org-timeline
|
|
|
- :after org
|
|
|
- :after evil
|
|
|
- :config
|
|
|
- ;; Rip org-timeline
|
|
|
- (defun org-timeline ()
|
|
|
- (interactive)
|
|
|
- (let ((org-agenda-custom-commands
|
|
|
- '(("z" "" agenda ""
|
|
|
- ((org-agenda-span 'year)
|
|
|
- ;; (org-agenda-time-grid nil)
|
|
|
- (org-agenda-show-all-dates nil)
|
|
|
- ;; (org-agenda-entry-types '(:deadline)) ;; this entry excludes :scheduled
|
|
|
- (org-deadline-warning-days 0))))))
|
|
|
-
|
|
|
- (org-agenda nil "z" 'buffer)))
|
|
|
- ;; Not sure if this can be placed in a :bind statement
|
|
|
- (evil-define-key 'motion org-agenda-mode-map (kbd "RET") '(lambda () (interactive) (org-agenda-switch-to t)))
|
|
|
- (setq org-agenda-files (quote ("~/Owncloud/org/organizer.org"))))
|
|
|
-
|
|
|
-(use-package org-preview-html
|
|
|
- :commands org-preview-html/preview
|
|
|
- :after org
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package evil-ediff
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (add-hook 'ediff-load-hook 'evil-ediff-init))
|
|
|
-
|
|
|
-(use-package rainbow-delimiters
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
|
|
|
-
|
|
|
-(use-package rainbow-identifiers
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (add-hook 'prog-mode-hook #'rainbow-identifiers-mode)
|
|
|
- (setq rainbow-identifiers-faces-to-override
|
|
|
- '(
|
|
|
- font-lock-constant-face
|
|
|
- font-lock-type-face
|
|
|
- font-lock-function-name-face
|
|
|
- font-lock-variable-name-face
|
|
|
- font-lock-keyword-face)))
|
|
|
-
|
|
|
-(use-package rainbow-mode
|
|
|
- :ensure t
|
|
|
- :diminish rainbow-mode
|
|
|
- :config
|
|
|
- (add-hook 'prog-mode-hook #'rainbow-mode))
|
|
|
-
|
|
|
-(use-package eyebrowse
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- (eyebrowse-mode t)
|
|
|
- (eyebrowse-setup-evil-keys)
|
|
|
- (setq eyebrowse-new-workspace t))
|
|
|
-
|
|
|
-(use-package material-theme
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package solaire-mode
|
|
|
- :ensure t
|
|
|
- :config
|
|
|
- ;; highlight the minibuffer when it is activated
|
|
|
- (set-face-attribute 'solaire-minibuffer-face nil :inherit 'solaire-default-face :background "gainsboro")
|
|
|
- (add-hook 'minibuffer-setup-hook #'solaire-mode-in-minibuffer))
|
|
|
-
|
|
|
-(use-package evil-goggles
|
|
|
- :ensure t
|
|
|
- :diminish evil-goggles-mode
|
|
|
- :config
|
|
|
- (evil-goggles-mode)
|
|
|
-
|
|
|
- ;; optionally use diff-mode's faces; as a result, deleted text
|
|
|
- ;; will be highlighed with `diff-removed` face which is typically
|
|
|
- ;; some red color (as defined by the color theme)
|
|
|
- ;; other faces such as `diff-added` will be used for other actions
|
|
|
- (evil-goggles-use-diff-faces))
|
|
|
-
|
|
|
-(use-package shackle
|
|
|
- :ensure t
|
|
|
- :init
|
|
|
- (shackle-mode)
|
|
|
- (setq shackle-rules '(("*Python*" :align t :size 0.2)
|
|
|
- ("*Help*" :align t :size 0.4 :select t)
|
|
|
- ("\\`\\*intero:.*:repl\\*\\'" :regexp t :align t :size 0.4))))
|
|
|
-
|
|
|
-(use-package which-key
|
|
|
- :ensure t
|
|
|
- :diminish which-key-mode
|
|
|
- :config
|
|
|
- (setq which-key-idle-delay 0.5)
|
|
|
- (which-key-mode)
|
|
|
- ;(which-key-setup-minibuffer)
|
|
|
- (which-key-setup-side-window-bottom)
|
|
|
- (defvar i 1)
|
|
|
- (while (< i 10)
|
|
|
- (let ((cell (cons (cons (number-to-string i) nil) '(lambda (cs) t))))
|
|
|
- (add-to-list 'which-key-replacement-alist cell))
|
|
|
- (setq i (+ i 1)))
|
|
|
- (makunbound 'i)
|
|
|
-
|
|
|
- (which-key-add-key-based-replacements
|
|
|
- "SPC d" "Diff buffer w/ file"))
|
|
|
-
|
|
|
-;; OS specific
|
|
|
-(use-package magit-todos
|
|
|
- :if (not (eq system-type 'windows-nt))
|
|
|
- :ensure t
|
|
|
- :commands magit-todos-mode)
|
|
|
-
|
|
|
-(use-package evil-magit
|
|
|
- :if (not (eq system-type 'windows-nt))
|
|
|
- :ensure t
|
|
|
- :commands evil-magit-init)
|
|
|
-
|
|
|
-(use-package magit
|
|
|
- :commands magit-status
|
|
|
- :if (not (eq system-type 'windows-nt))
|
|
|
- :ensure t
|
|
|
- :defer t
|
|
|
- :diminish magit-auto-revert-mode
|
|
|
- :config
|
|
|
- (evil-magit-init)
|
|
|
- (magit-todos-mode))
|
|
|
-
|
|
|
-(use-package multi-term
|
|
|
- :if (not (eq system-type 'windows-nt))
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package esup
|
|
|
- :commands esup
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package highlight-indent-guides
|
|
|
- :ensure t
|
|
|
- :init
|
|
|
- (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
|
|
|
- :config
|
|
|
- (setq highlight-indent-guides-method 'column))
|
|
|
-
|
|
|
-(use-package evil-collection
|
|
|
- :ensure t
|
|
|
- :after evil
|
|
|
- :init
|
|
|
- (setq evil-collection-setup-minibuffer t)
|
|
|
- :config
|
|
|
- (evil-collection-init))
|
|
|
-
|
|
|
-;; global-prettify-symbols doesn't play nice on Windows
|
|
|
-(if (not (eq system-type 'windows-nt))
|
|
|
- (global-prettify-symbols-mode))
|
|
|
-
|
|
|
-(require 'prettify-custom-symbols)
|
|
|
-
|
|
|
-(use-package yasnippet
|
|
|
- :ensure t
|
|
|
- :commands yas-minor-mode
|
|
|
- :init
|
|
|
- (add-hook 'prog-mode-hook 'yas-minor-mode)
|
|
|
- :config
|
|
|
- (yas-reload-all)
|
|
|
- ;; Add yasnippet support for all company backends
|
|
|
- ;; https://github.com/syl20bnr/spacemacs/pull/179
|
|
|
- (defvar company-mode/enable-yas t
|
|
|
- "Enable yasnippet for all backends.")
|
|
|
-
|
|
|
- (defun company-mode/backend-with-yas (backend)
|
|
|
- (if (or (not company-mode/enable-yas) (and (listp backend) (member 'company-yasnippet backend)))
|
|
|
- backend
|
|
|
- (append (if (consp backend) backend (list backend))
|
|
|
- '(:with company-yasnippet))))
|
|
|
-
|
|
|
- (setq company-backends (mapcar #'company-mode/backend-with-yas company-backends)))
|
|
|
-
|
|
|
-(use-package yasnippet-snippets
|
|
|
- :ensure t
|
|
|
- :after yasnippet)
|
|
|
-
|
|
|
-(use-package gnus
|
|
|
- :ensure t
|
|
|
- :init
|
|
|
- (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
|
|
|
- (add-hook 'gnus-startup-hook
|
|
|
- '(lambda ()
|
|
|
- (define-key gnus-summary-mode-map (kbd "RET") 'gnus-summary-next-page)
|
|
|
- (cl-loop for mode in (list gnus-article-mode-map gnus-group-mode-map gnus-summary-mode-map)
|
|
|
- do (cl-loop for key in (list "RET" "G")
|
|
|
- do (evil-passthrough-key 'motion mode key)))))
|
|
|
-
|
|
|
- (add-hook 'gnus-startup-hook '(lambda () (gnus-demon-add-handler 'gnus-demon-scan-mail 5 1)))
|
|
|
- :config
|
|
|
- (setq gnus-select-method '(nntp "news.gmane.org"))
|
|
|
- (setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date gnus-thread-sort-by-most-recent-number))
|
|
|
-
|
|
|
- (add-to-list 'gnus-secondary-select-methods
|
|
|
- '(nnimap "gmail"
|
|
|
- (nnimap-address "imap.gmail.com")
|
|
|
- (nnimap-server-port 993)
|
|
|
- (nnimap-stream ssl)
|
|
|
- (nnir-search-engine imap)
|
|
|
- ;; @see http://www.gnu.org/software/emacs/manual/html_node/gnus/Expiring-Mail.html
|
|
|
- ;; press 'E' to expire email
|
|
|
- (nnmail-expiry-target "nnimap+gmail:[Gmail]/Trash")
|
|
|
- (nnmail-expiry-wait 90)))
|
|
|
- (add-to-list 'gnus-secondary-select-methods
|
|
|
- '(nnimap "comcast"
|
|
|
- (nnimap-address "imap.comcast.net")
|
|
|
- (nnimap-server-port 993)
|
|
|
- (nnimap-stream ssl)
|
|
|
- (nnir-search-engine imap)
|
|
|
- (nnmail-expiry-target "nnimap+comcast:Trash")
|
|
|
- (nnmail-expiry-wait 90)))
|
|
|
-
|
|
|
- (add-hook 'gnus-topic-mode-hook
|
|
|
- '(lambda ()
|
|
|
- (setq gnus-message-archive-group '((format-time-string "sent.%Y")))
|
|
|
- (setq gnus-topic-topology '(("Gnus" visible)
|
|
|
- (("misc" visible))
|
|
|
- (("comcast" visible nil nil))
|
|
|
- (("gmail" visible nil nil))
|
|
|
- (("feeds" visible nil nil))))
|
|
|
- (gnus-topic-move-matching ".*comcast.*" "comcast")
|
|
|
- (gnus-topic-move-matching ".*gmail.*" "gmail")
|
|
|
- (gnus-topic-move-matching "gwene.*" "feeds")
|
|
|
- (setq gnus-topic-alist (mapcar 'delete-dups gnus-topic-alist)))))
|
|
|
-
|
|
|
-(use-package gnus-desktop-notify
|
|
|
- :ensure t
|
|
|
- :after gnus
|
|
|
- :config
|
|
|
- (gnus-desktop-notify-mode))
|
|
|
-
|
|
|
-(use-package dumb-jump
|
|
|
- :after evil
|
|
|
- :ensure t
|
|
|
- :bind (:map evil-normal-state-map
|
|
|
- ("zs" . hscroll-cursor-left)
|
|
|
- ("gs" . dumb-jump-go-evil-mark))
|
|
|
- :config
|
|
|
- (setq dumb-jump-selector 'ivy)
|
|
|
- (defun dumb-jump-go-evil-mark ()
|
|
|
- (interactive)
|
|
|
- (evil-set-jump)
|
|
|
- (dumb-jump-go)))
|
|
|
-
|
|
|
-
|
|
|
-(use-package evil-visual-mark-mode
|
|
|
- :after evil
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package define-word
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package calfw
|
|
|
- :commands cfw:open-org-calendar
|
|
|
- :ensure t)
|
|
|
-
|
|
|
-(use-package calfw-org
|
|
|
- :ensure t
|
|
|
- )
|
|
|
-
|
|
|
-(use-package helpful
|
|
|
- :ensure t
|
|
|
- :bind (("C-h f" . helpful-callable)
|
|
|
- ("C-h v" . helpful-variable)
|
|
|
- ("C-h k" . helpful-key)))
|
|
|
-
|
|
|
-;;;; Optional packages
|
|
|
-
|
|
|
-(use-package flymd
|
|
|
- :defer t
|
|
|
- :config
|
|
|
- (setq flymd-close-buffer-delete-temp-files t))
|
|
|
-
|
|
|
-(use-package web-mode
|
|
|
- :defer t
|
|
|
- :config
|
|
|
- ;; 2 spaces for an indent
|
|
|
- (defun my-web-mode-hook ()
|
|
|
- "Hooks for Web mode."
|
|
|
- (setq web-mode-markup-indent-offset 2
|
|
|
- web-mode-enable-auto-closing t
|
|
|
- web-mode-enable-auto-pairing t)
|
|
|
- )
|
|
|
- (add-hook 'web-mode-hook 'my-web-mode-hook)
|
|
|
-
|
|
|
- ;; Auto-enable web-mode when opening relevent files
|
|
|
- (add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode))
|
|
|
- (add-to-list 'auto-mode-alist '("\\.hbs\\'" . web-mode))
|
|
|
- (add-to-list 'auto-mode-alist '("\\.handlebars\\'" . web-mode)))
|
|
|
-
|
|
|
-(setq js-indent-level 2)
|
|
|
-
|
|
|
-(use-package tide
|
|
|
- :mode "\\.ts\\'"
|
|
|
- :config
|
|
|
- (setq typescript-indent-level 2))
|
|
|
-
|
|
|
-(use-package racket-mode
|
|
|
- :mode "\\.scm\\'"
|
|
|
- :config
|
|
|
- ;; C-w prefix in racket-REPL
|
|
|
- (add-hook 'racket-repl-mode-hook 'racket-repl-evil-hook)
|
|
|
-
|
|
|
- (defun racket-repl-evil-hook ()
|
|
|
- (define-key racket-repl-mode-map "\C-w" 'evil-window-map)
|
|
|
- (global-set-key (kbd "C-w") 'racket-repl-mode-map)))
|
|
|
-
|
|
|
-(use-package haskell-mode
|
|
|
- :ensure t
|
|
|
- :init
|
|
|
- (add-hook 'haskell-mode-hook 'haskell-indentation-mode))
|
|
|
-
|
|
|
-(use-package intero
|
|
|
- :commands intero-mode
|
|
|
- :init
|
|
|
- (add-hook 'haskell-mode-hook 'intero-mode)
|
|
|
- :config
|
|
|
- (bind-map
|
|
|
- my-haskell-map
|
|
|
- :keys ("M-m")
|
|
|
- :evil-keys ("SPC")
|
|
|
- :major-modes (haskell-mode)
|
|
|
- :bindings
|
|
|
- ("l" 'intero-repl-load
|
|
|
- "r" 'intero-repl)))
|
|
|
-
|
|
|
-(use-package emojify
|
|
|
- :defer t
|
|
|
- :config
|
|
|
- (add-hook 'after-init-hook #'global-emojify-mode))
|
|
|
-
|
|
|
-(use-package latex-preview-pane
|
|
|
- :commands latex-preview-pane-mode)
|
|
|
-
|
|
|
-(use-package slime
|
|
|
- :after bind-key
|
|
|
- :commands slime slime-mode
|
|
|
- :init
|
|
|
- (setq auto-mode-alist (cons '("\\.cl$" . common-lisp-mode) auto-mode-alist))
|
|
|
- (add-hook 'lisp-mode-hook 'slime-mode)
|
|
|
- :config
|
|
|
- (setq inferior-lisp-program "sbcl")
|
|
|
- (slime-setup)
|
|
|
-
|
|
|
- (defun evil-slime-eval-last-expression ()
|
|
|
- (interactive)
|
|
|
- (evil-append 1)
|
|
|
- (slime-eval-last-expression)
|
|
|
- (evil-normal-state))
|
|
|
-
|
|
|
- (bind-map
|
|
|
- my-slime-map
|
|
|
- :keys ("M-m")
|
|
|
- :evil-keys ("SPC")
|
|
|
- :major-modes (lisp-mode)
|
|
|
- :bindings
|
|
|
- ("el" 'evil-slime-eval-last-expression
|
|
|
- "er" 'slime-eval-region
|
|
|
- "eb" 'slime-compile-and-load-file)))
|
|
|
-
|
|
|
-(use-package slime-company
|
|
|
- :defer t
|
|
|
- :after slime)
|
|
|
-
|
|
|
-(use-package auctex
|
|
|
- :defer t)
|
|
|
-
|
|
|
-(use-package atomic-chrome
|
|
|
- :defer t
|
|
|
- :config
|
|
|
- (atomic-chrome-start-server))
|
|
|
-
|
|
|
-(use-package elpy
|
|
|
- :defer t
|
|
|
- :init
|
|
|
- (add-hook 'python-mode-hook 'elpy-enable))
|
|
|
-
|
|
|
-(use-package jedi
|
|
|
- ;; Must run `pip3 install --user jedi flake8 autopep8 virtualenv epc`
|
|
|
- :defer t
|
|
|
- :init
|
|
|
- (add-hook 'python-mode-hook 'jedi:setup))
|
|
|
-
|
|
|
-(use-package company-jedi
|
|
|
- :after (company python-mode)
|
|
|
- :config (add-to-list 'company-backends 'company-jedi))
|
|
|
-
|
|
|
-(use-package py-autopep8
|
|
|
- :defer t
|
|
|
- :config
|
|
|
- (add-hook 'elpy-mode-hook 'py-autopep8-enable-on-save))
|
|
|
-
|
|
|
-(use-package rust-mode
|
|
|
- :defer t)
|
|
|
-
|
|
|
-(use-package flycheck-rust
|
|
|
- :defer t
|
|
|
- :after rust-mode
|
|
|
- :init
|
|
|
- (with-eval-after-load 'rust-mode
|
|
|
- (add-hook 'flycheck-mode-hook #'flycheck-rust-setup)))
|
|
|
-
|
|
|
-;; List of optional packages
|
|
|
-(defvar optional-packages
|
|
|
- '(
|
|
|
- flymd
|
|
|
- web-mode
|
|
|
- tide
|
|
|
- racket-mode
|
|
|
- intero
|
|
|
- emojify
|
|
|
- latex-preview-pane
|
|
|
- slime
|
|
|
- slime-company
|
|
|
- markdown-mode
|
|
|
- auctex
|
|
|
- company-auctex
|
|
|
- atomic-chrome
|
|
|
- elpy
|
|
|
- jedi
|
|
|
- company-jedi
|
|
|
- py-autopep8
|
|
|
- flymake-php
|
|
|
- ))
|
|
|
-
|
|
|
-(defvar packages-installed-this-session nil)
|
|
|
-(defun ensure-package-installed (prompt package)
|
|
|
- "Ensure a package is installed, and (optionally) ask if it isn't."
|
|
|
- (if (not (package-installed-p package))
|
|
|
- (if (or prompt (y-or-n-p (format "Package %s is missing. Install it? " package)))
|
|
|
- ;; If this is the 1st install this session, update before install
|
|
|
- (cond ((not packages-installed-this-session)
|
|
|
- (package-refresh-contents)
|
|
|
- (setq packages-installed-this-session t)
|
|
|
- (package-install package))
|
|
|
- (t (package-install package))
|
|
|
- nil)
|
|
|
- package)))
|
|
|
-
|
|
|
-(defun optional-packages-install ()
|
|
|
- "Ask to install any optional packages."
|
|
|
- (interactive)
|
|
|
- (mapcar (lambda (package) (ensure-package-installed nil package)) optional-packages))
|
|
|
-
|
|
|
-
|
|
|
-;;;; Builtin configs
|
|
|
-
|
|
|
-(defvar gdb-many-windows t)
|
|
|
-
|
|
|
-(setq tramp-syntax (quote default))
|
|
|
-
|
|
|
-(use-package flymake
|
|
|
- :config
|
|
|
- (use-package flymake-php
|
|
|
- :ensure t
|
|
|
- :init
|
|
|
- (add-hook 'php-mode-hook 'flymake-php-load)))
|
|
|
-
|
|
|
-(setq prolog-program-name "swipl")
|
|
|
-(add-to-list 'auto-mode-alist '("\\.pl\\'" . prolog-mode))
|
|
|
-
|
|
|
-(bind-map
|
|
|
- my-prolog-map
|
|
|
- :keys ("M-m")
|
|
|
- :evil-keys ("SPC")
|
|
|
- :major-modes (prolog-mode)
|
|
|
- :bindings
|
|
|
- ("l" 'prolog-consult-buffer))
|
|
|
-
|
|
|
-(use-package doc-view
|
|
|
- :defer t
|
|
|
- :config
|
|
|
- (evil-define-key 'motion doc-view-mode-map
|
|
|
- (kbd "k") 'doc-view-previous-line-or-previous-page
|
|
|
- (kbd "j") 'doc-view-next-line-or-next-page
|
|
|
- (kbd "C-b") 'doc-view-previous-page
|
|
|
- (kbd "C-f") 'doc-view-next-page)
|
|
|
-)
|
|
|
-
|
|
|
-
|
|
|
-(use-package flyspell
|
|
|
- :commands flyspell-goto-previous-error flyspell-goto-next-error flyspell-toggle-correct-mode
|
|
|
- :config
|
|
|
- ;; move point to previous error
|
|
|
- ;; based on code by hatschipuh at
|
|
|
- ;; http://emacs.stackexchange.com/a/14912/2017
|
|
|
- (defun flyspell-goto-previous-error (arg)
|
|
|
- "Go to arg previous spelling error."
|
|
|
- (interactive "p")
|
|
|
- (while (not (= 0 arg))
|
|
|
- (let ((pos (point))
|
|
|
- (min (point-min)))
|
|
|
- (if (and (eq (current-buffer) flyspell-old-buffer-error)
|
|
|
- (eq pos flyspell-old-pos-error))
|
|
|
- (progn
|
|
|
- (if (= flyspell-old-pos-error min)
|
|
|
- ;; goto beginning of buffer
|
|
|
- (progn
|
|
|
- (message "Restarting from end of buffer")
|
|
|
- (goto-char (point-max)))
|
|
|
- (backward-word 1))
|
|
|
- (setq pos (point))))
|
|
|
- ;; seek the next error
|
|
|
- (while (and (> pos min)
|
|
|
- (let ((ovs (overlays-at pos))
|
|
|
- (r '()))
|
|
|
- (while (and (not r) (consp ovs))
|
|
|
- (if (flyspell-overlay-p (car ovs))
|
|
|
- (setq r t)
|
|
|
- (setq ovs (cdr ovs))))
|
|
|
- (not r)))
|
|
|
- (backward-word 1)
|
|
|
- (setq pos (point)))
|
|
|
- ;; save the current location for next invocation
|
|
|
- (setq arg (1- arg))
|
|
|
- (setq flyspell-old-pos-error pos)
|
|
|
- (setq flyspell-old-buffer-error (current-buffer))
|
|
|
- (goto-char pos)
|
|
|
- (if (= pos min)
|
|
|
- (progn
|
|
|
- (message "No more miss-spelled word!")
|
|
|
- (setq arg 0))))))
|
|
|
-
|
|
|
- (defun flyspell-toggle-correct-mode ()
|
|
|
- "Decide whether to use flyspell-mode or flyspell-prog-mode, then properly toggle."
|
|
|
- (interactive)
|
|
|
- ;; use flyspell-mode when in text buffers
|
|
|
- ;; otherwise use flyspell-prog-mode
|
|
|
- (let* ((current-mode
|
|
|
- (buffer-local-value 'major-mode (current-buffer)))
|
|
|
- (flyspell-mode-to-call
|
|
|
- (if (or (string= current-mode "text-mode") (string= current-mode "markdown-mode"))
|
|
|
- 'flyspell-mode
|
|
|
- 'flyspell-prog-mode)))
|
|
|
- ;; toggle the current flyspell mode, and
|
|
|
- ;; eval the buffer if we turned it on
|
|
|
- (if flyspell-mode
|
|
|
- (funcall 'flyspell-mode '0)
|
|
|
- (funcall flyspell-mode-to-call)
|
|
|
- (flyspell-buffer))))
|
|
|
-
|
|
|
- (add-hook 'text-mode-hook 'flyspell-mode)
|
|
|
- (add-hook 'prog-mode-hook 'flyspell-prog-mode))
|
|
|
-
|
|
|
-(use-package hideshow
|
|
|
- :config
|
|
|
- (add-hook 'prog-mode-hook
|
|
|
- 'hs-minor-mode)
|
|
|
- (add-hook 'hs-minor-mode-hook
|
|
|
- (lambda ()
|
|
|
- (diminish 'hs-minor-mode))))
|
|
|
-
|
|
|
-(use-package recentf
|
|
|
- :config
|
|
|
- (recentf-mode 1)
|
|
|
- (setq recentf-max-saved-items 200
|
|
|
- recentf-max-menu-items 15)
|
|
|
- (add-to-list 'recentf-exclude ".*.emacs\\.d/elpa.*"))
|
|
|
-
|
|
|
-(use-package dired
|
|
|
- :config
|
|
|
- (evil-define-key 'normal dired-mode-map (kbd "SPC") nil))
|
|
|
-
|
|
|
-(provide 'packages)
|
Josh Bicking