Bläddra i källkod

Keybinds/focus mode

Simon Watson 3 år sedan
förälder
incheckning
454f15077f
1 ändrade filer med 15 tillägg och 4 borttagningar
  1. 15 4
      emacs/.emacs-all

+ 15 - 4
emacs/.emacs-all

@@ -36,7 +36,13 @@
 (straight-use-package 'diff-hl)
 (straight-use-package 'powerline-evil)
 (straight-use-package 'rainbow-delimiters)
+(straight-use-package 'focus)
 
+;; Configure focus
+(require 'focus)
+(add-to-list 'focus-mode-to-thing '(lisp-mode . paragraph))
+
+;; rainbow delims
 (require 'rainbow-delimiters)
 (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
 
@@ -100,8 +106,8 @@
       sublimity-scroll-drift-length 5)
 (setq sublimity-map-size 30)
 (setq sublimity-map-fraction 0.3)
-(setq sublimity-map-text-scale -5)
-(sublimity-map-set-delay nil)
+(setq sublimity-map-text-scale -9)
+(sublimity-map-set-delay 0.1)
 (setq sublimity-attractive-centering-width nil)
 
 (setq backup-directory-alist
@@ -118,13 +124,18 @@
 (global-set-key (kbd "<home>") 'beginning-of-line)
 (global-set-key (kbd "<end>") 'end-of-line)
 
+(defun reload-dot-emacs ()
+  (interactive)
+  (load-file (file-truename "~/.emacs")))
+
 ;; Enable diff-hl mode
 (global-set-key (kbd "C-c e") 'diff-hl-mode)
 (global-set-key (kbd "C-c d") 'dimmer-mode)
 (global-set-key (kbd "C-c s") 'sublimity-mode)
+(global-set-key (kbd "C-c f") 'focus-mode)
+(global-set-key (kbd "C-c r") 'reload-dot-emacs)
 
-
-;;; erc config
+;;; Erc config
 (setq erc-nick "speskk")
 
 ;; Allow M-up / M-down behavior to switch windows