Configure built-in with use-package

1 files changed, 38 insertions, 42 deletions

diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el
index a1bbbf7..c1254b9 100644
--- a/.config/emacs/modules/bd--devel.el
+++ b/.config/emacs/modules/bd--devel.el
@@ -3,27 +3,6 @@
 ;;; Code:
 
 
-;;;; line numbers
-(setopt display-line-numbers-type 'relative)
-
-(defvar bd/enable-line-numbers-in-hooks
-  '(prog-mode-hook)
-  "List of hook symbols to add `display-line-numbers-mode'
-to.")
-
-(mapc
- (lambda (hook)
-   (add-hook hook #'display-line-numbers-mode))
- bd/enable-line-numbers-in-hooks)
-
-
-;;;; outline mode
-(setq-default
- outline-minor-mode-cycle t
- outline-minor-mode-highlight t)
-
-
-;;;; general
 (defun request-sudo ()
   "Uses TRAMP to edit current opened file as root."
   (interactive)
@@ -32,38 +11,55 @@ to.")
      (concat "/sudo:root@localhost:"
              buffer-file-name))))
 
-(defun bd/compile-dwim (f)
-  (let ((default-directory
-         (or (locate-dominating-file "." "Makefile") ;; make
-             (locate-dominating-file "." "build.xml") ;; ant
-             (locate-dominating-file "." "manifest.scm") ;; guix
-             default-directory)))
-    (call-interactively f)))
-
-(setq compilation-always-kill t
-      compilation-scroll-output 'first-error)
-(keymap-set prog-mode-map "C-," #'(lambda ()
-                                    (interactive)
-                                    (bd/compile-dwim #'recompile)))
-(keymap-set prog-mode-map "C-<" #'(lambda ()
-                                    (interactive)
-                                    (bd/compile-dwim #'compile)))
-
 (add-hook 'prog-mode-hook (lambda ()
                             (font-lock-add-keywords
                              nil '(("\\<\\(FIX\\(ME\\)?\\|TODO\\)"
                                     1 font-lock-warning-face t)))))
 
-;; my custom cleanup mode
-(require 'autoformat)
-(autoformat-mode 1)
+(setopt display-line-numbers-type 'relative)
+(defvar bd/enable-line-numbers-in-hooks
+  '(prog-mode-hook)
+  "List of hook symbols to add `display-line-numbers-mode'
+to.")
+(mapc
+ (lambda (hook)
+   (add-hook hook #'display-line-numbers-mode))
+ bd/enable-line-numbers-in-hooks)
 
-;; questionable default
 (indent-tabs-mode 0)
 
 ;; skr is a scheme extension
 (add-to-list 'auto-mode-alist '("\\.skr\\'" . scheme-mode))
 
+(use-package autoformat
+  :custom
+  (autoformat-mode 1))
+
+(use-package compile
+  :custom
+  (compilation-always-kill t)
+  (compilation-scroll-output 'first-error)
+  :config
+  (defun bd/compile-dwim (f)
+    (let ((default-directory
+           (or (locate-dominating-file "." "Makefile")     ;; make
+               (locate-dominating-file "." "build.xml")    ;; ant
+               (locate-dominating-file "." "manifest.scm") ;; guix
+               default-directory)))
+      (call-interactively f)))
+
+  (keymap-set prog-mode-map
+              "C-," #'(lambda ()
+                        (interactive)
+                        (bd/compile-dwim #'recompile)))
+  (keymap-set prog-mode-map
+              "C-<" #'(lambda ()
+                        (interactive)
+                        (bd/compile-dwim #'compile))))
+
+(use-package man
+  :custom
+  (Man-notify-method 'pushy))
 
 (use-package rainbow-mode
   :hook css-mode)