mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-21 13:53:38 -05:00
I'm an Emacs addict
This commit is contained in:
@@ -71,10 +71,13 @@ enable multiple minor modes for the same regexp.")
|
|||||||
(add-hook! prog-mode 'narf|enable-comment-hard-wrap)
|
(add-hook! prog-mode 'narf|enable-comment-hard-wrap)
|
||||||
(add-hook! auto-fill-mode (diminish 'auto-fill-function))
|
(add-hook! auto-fill-mode (diminish 'auto-fill-function))
|
||||||
|
|
||||||
(defadvice delete-trailing-whitespace (around delete-trailing-whitespace-ignore-line activate)
|
(defadvice delete-trailing-whitespace
|
||||||
|
(around delete-trailing-whitespace-ignore-line activate)
|
||||||
"Don't delete trailing whitespace on current line, if in insert mode."
|
"Don't delete trailing whitespace on current line, if in insert mode."
|
||||||
(let ((spaces (1- (current-column)))
|
(let ((spaces (1- (current-column)))
|
||||||
(linestr (buffer-substring-no-properties (line-beginning-position) (line-end-position))))
|
(linestr (buffer-substring-no-properties
|
||||||
|
(line-beginning-position)
|
||||||
|
(line-end-position))))
|
||||||
ad-do-it
|
ad-do-it
|
||||||
(when (string-match-p "^[\s\t]*$" linestr)
|
(when (string-match-p "^[\s\t]*$" linestr)
|
||||||
(insert linestr))))
|
(insert linestr))))
|
||||||
@@ -90,9 +93,9 @@ enable multiple minor modes for the same regexp.")
|
|||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
;; (global-whitespace-mode 1) ; Show whitespace
|
;; (global-whitespace-mode 1) ; Show whitespace
|
||||||
(global-font-lock-mode t) ; Enable syntax highlighting for older emacs
|
|
||||||
;; (global-auto-revert-mode -1); revert buffers for changed files
|
;; (global-auto-revert-mode -1); revert buffers for changed files
|
||||||
(electric-indent-mode -1)
|
(global-font-lock-mode t) ; Enable syntax highlighting for older emacs
|
||||||
|
(electric-indent-mode -1) ; on by default
|
||||||
|
|
||||||
;; window config undo/redo
|
;; window config undo/redo
|
||||||
(setq winner-dont-bind-my-keys t)
|
(setq winner-dont-bind-my-keys t)
|
||||||
@@ -109,9 +112,11 @@ enable multiple minor modes for the same regexp.")
|
|||||||
(defalias 'redo #'undo-tree-redo)
|
(defalias 'redo #'undo-tree-redo)
|
||||||
(defalias 'undo #'undo-tree-undo)
|
(defalias 'undo #'undo-tree-undo)
|
||||||
;; Shut up undo-tree's constant complaining: http://youtu.be/Z6woIRLnbmE
|
;; Shut up undo-tree's constant complaining: http://youtu.be/Z6woIRLnbmE
|
||||||
(defadvice undo-tree-load-history-hook (around undo-tree-load-history-shut-up activate)
|
(defadvice undo-tree-load-history-hook
|
||||||
|
(around undo-tree-load-history-shut-up activate)
|
||||||
(shut-up! ad-do-it))
|
(shut-up! ad-do-it))
|
||||||
(defadvice undo-tree-save-history-hook (around undo-tree-save-history-shut-up activate)
|
(defadvice undo-tree-save-history-hook
|
||||||
|
(around undo-tree-save-history-shut-up activate)
|
||||||
(shut-up! ad-do-it)))
|
(shut-up! ad-do-it)))
|
||||||
|
|
||||||
(use-package avy
|
(use-package avy
|
||||||
@@ -204,12 +209,6 @@ enable multiple minor modes for the same regexp.")
|
|||||||
:commands (describe-buffer describe-command describe-file
|
:commands (describe-buffer describe-command describe-file
|
||||||
describe-keymap describe-option describe-option-of-type))
|
describe-keymap describe-option describe-option-of-type))
|
||||||
|
|
||||||
(use-package writeroom-mode
|
|
||||||
:defer t
|
|
||||||
:config
|
|
||||||
(setq writeroom-restore-window-config t
|
|
||||||
writeroom-width 120))
|
|
||||||
|
|
||||||
(use-package saveplace
|
(use-package saveplace
|
||||||
:defer t
|
:defer t
|
||||||
:config (setq save-place-file (concat narf-temp-dir "saveplace"))
|
:config (setq save-place-file (concat narf-temp-dir "saveplace"))
|
||||||
|
@@ -59,12 +59,6 @@
|
|||||||
;; Exit minibuffer if alive
|
;; Exit minibuffer if alive
|
||||||
(if (minibuffer-window-active-p (minibuffer-window))
|
(if (minibuffer-window-active-p (minibuffer-window))
|
||||||
(narf/minibuffer-quit))))
|
(narf/minibuffer-quit))))
|
||||||
;; Jump to new splits
|
|
||||||
(defadvice evil-window-split (after evil-window-split-jump activate)
|
|
||||||
(evil-window-down 1))
|
|
||||||
(defadvice evil-window-vsplit (after evil-window-vsplit-jump activate)
|
|
||||||
(evil-window-right 1))
|
|
||||||
|
|
||||||
;; Fix disruptive errors w/ hidden buffers caused by popwin
|
;; Fix disruptive errors w/ hidden buffers caused by popwin
|
||||||
(defadvice evil-ex-hl-do-update-highlight (around evil-ex-hidden-buffer-ignore-errors activate)
|
(defadvice evil-ex-hl-do-update-highlight (around evil-ex-hidden-buffer-ignore-errors activate)
|
||||||
(ignore-errors ad-do-it))
|
(ignore-errors ad-do-it))
|
||||||
@@ -211,8 +205,8 @@
|
|||||||
(use-package evil-textobj-anyblock
|
(use-package evil-textobj-anyblock
|
||||||
:commands (evil-textobj-anyblock-inner-block evil-textobj-anyblock-a-block)
|
:commands (evil-textobj-anyblock-inner-block evil-textobj-anyblock-a-block)
|
||||||
:init
|
:init
|
||||||
(define-key evil-inner-text-objects-map "b" 'evil-textobj-anyblock-inner-block)
|
(define-key evil-inner-text-objects-map "B" 'evil-textobj-anyblock-inner-block)
|
||||||
(define-key evil-outer-text-objects-map "b" 'evil-textobj-anyblock-a-block))
|
(define-key evil-outer-text-objects-map "B" 'evil-textobj-anyblock-a-block))
|
||||||
|
|
||||||
(use-package evil-search-highlight-persist
|
(use-package evil-search-highlight-persist
|
||||||
:config
|
:config
|
||||||
|
@@ -6,6 +6,8 @@
|
|||||||
(fringe-mode '(3 . 6))
|
(fringe-mode '(3 . 6))
|
||||||
(setq frame-title-format '(buffer-file-name "%f" ("%b")))
|
(setq frame-title-format '(buffer-file-name "%f" ("%b")))
|
||||||
(setq initial-frame-alist '((width . 120) (height . 80)))
|
(setq initial-frame-alist '((width . 120) (height . 80)))
|
||||||
|
|
||||||
|
(set-frame-font narf-default-font)
|
||||||
(set-face-attribute 'default t :font narf-default-font)
|
(set-face-attribute 'default t :font narf-default-font)
|
||||||
|
|
||||||
(setq-default indicate-empty-lines t)
|
(setq-default indicate-empty-lines t)
|
||||||
@@ -63,6 +65,14 @@
|
|||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
(use-package writeroom-mode
|
||||||
|
:defer t
|
||||||
|
:config
|
||||||
|
(setq-default
|
||||||
|
writeroom-restore-window-config t
|
||||||
|
writeroom-fullscreen-effect nil
|
||||||
|
writeroom-width 110))
|
||||||
|
|
||||||
(use-package hideshow
|
(use-package hideshow
|
||||||
:commands (hs-minor-mode hs-toggle-hiding hs-already-hidden-p)
|
:commands (hs-minor-mode hs-toggle-hiding hs-already-hidden-p)
|
||||||
:diminish hs-minor-mode
|
:diminish hs-minor-mode
|
||||||
|
Reference in New Issue
Block a user