From 4b8b4d172503b23e3c06543f12b11b26ca436dde Mon Sep 17 00:00:00 2001
From: xerus2000 <27jf@pm.me>
Date: Wed, 7 Apr 2021 20:27:22 +0200
Subject: [PATCH] config/doom: remove annotate-mode & update mappings

---
 .config/doom/config.el   | 17 ++++++++++++++---
 .config/doom/packages.el |  9 ++++++---
 2 files changed, 20 insertions(+), 6 deletions(-)

diff --git a/.config/doom/config.el b/.config/doom/config.el
index e385c53..7d12798 100644
--- a/.config/doom/config.el
+++ b/.config/doom/config.el
@@ -48,8 +48,6 @@
 (map! :leader "u"  'evil-prev-buffer
       :leader "i"  'evil-next-buffer
       :leader "bq" 'doom/save-and-kill-buffer
-      :leader "aa" 'annotate-annotate
-      :leader "as" 'annotate-mode
       :leader "d"  'dragon
       ;; Buffer-local font resizing
       :n "M-C-="   'text-scale-increase
@@ -139,10 +137,16 @@
     (let ((current-prefix-arg '(7))) (call-interactively 'org-timestamp-up-day))
     )
 
+  (defun org-export-repeat ()
+    (interactive)
+    (let ((current-prefix-arg '(4))) (call-interactively 'org-export-dispatch))
+    )
+
   (map! :map org-mode-map
         :localleader
         "j" 'org-insert-heading
         "t" 'org-todo-or-insert
+        "E" 'org-export-repeat
         "d=" 'org-timestamp-up-week
         "rt" 'org-todo-region
         "ra" 'org-change-tag-in-region
@@ -239,8 +243,15 @@
     (setq evil-replace-with-register-key (kbd "gr"))
     (evil-replace-with-register-install)
   :config
-    (map! :nv "gR" #'+eval/line-or-region)
+    (defun eval-paragraph ()
+      (interactive)
+      (er/mark-paragraph)
+      (call-interactively '+eval:region)
+    )
+    (map! :n "gR" 'eval-paragraph
+          :v "gR" '+eval/region)
   )
+
 (use-package! evil-args ; https://github.com/wcsmith/evil-args
   :config
     ;; bind evil-args text objects
diff --git a/.config/doom/packages.el b/.config/doom/packages.el
index ddb841e..4bcc004 100644
--- a/.config/doom/packages.el
+++ b/.config/doom/packages.el
@@ -51,12 +51,15 @@
 
 (package! evil-args) ; motions in args
 (package! evil-replace-with-register) ; grrrrr
-(package! evil-better-visual-line)
+(package! evil-better-visual-line) ; not sure if this actually helps
 
-(package! annotate) ; Annotations
 (package! visual-fill-column) ; Soft line wrapping at character count
 (package! togetherly) ; Collaborative editing
 
-(package! direnv) ; nix-shell stuffs
+(package! direnv) ; directory-local environment for haskell-nix things
 (package! plantuml-mode) ; Diagrams
 (package! adoc-mode) ; Asciidoc, a md alternative
+
+;(package! annotate) ; Annotations
+;      :leader "aa" 'annotate-annotate
+;      :leader "as" 'annotate-mode