[emacs] assimilate boxquote.el and add key bindings on C-c q

diff --git a/.gitmodules b/.gitmodules
index 3f05fa9..01bfe48 100644 (file)
--- a/.gitmodules
+++ b/.gitmodules
@@ -19,6 +19,9 @@
 [submodule "borg-nix-shell"]
        path = lib/borg-nix-shell
        url = git@github.com:thblt/borg-nix-shell.git
+[submodule "boxquote"]
+       path = lib/boxquote
+       url = git@github.com:davep/boxquote.el.git
 [submodule "closql"]
        path = lib/closql
        url = git@github.com:emacscollective/closql.git

diff --git a/init.org b/init.org
index 2fa171d..65d0c54 100644 (file)
--- a/init.org
+++ b/init.org
@@ -1304,6 +1304,43 @@ Make =*scratch*= and =*Messages*= unkillable.
   (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
 #+end_src
 
+** [[https://github.com/davep/boxquote.el][boxquote.el]]
+
+#+begin_example
+,----
+| make pretty boxed quotes like this
+`----
+#+end_example
+
+#+begin_src emacs-lisp
+(use-package boxquote
+  :bind
+  (:prefix-map amin--boxquote-prefix-map
+   :prefix "C-c q"
+   ("b"   . boxquote-buffer)
+   ("B"   . boxquote-insert-buffer)
+   ("d"   . boxquote-defun)
+   ("F"   . boxquote-insert-file)
+   ("hf"  . boxquote-describe-function)
+   ("hk"  . boxquote-describe-key)
+   ("hv"  . boxquote-describe-variable)
+   ("hw"  . boxquote-where-is)
+   ("k"   . boxquote-kill)
+   ("p"   . boxquote-paragraph)
+   ("q"   . boxquote-boxquote)
+   ("r"   . boxquote-region)
+   ("s"   . boxquote-shell-command)
+   ("t"   . boxquote-text)
+   ("T"   . boxquote-title)
+   ("u"   . boxquote-unbox)
+   ("U"   . boxquote-unbox-region)
+   ("y"   . boxquote-yank)
+   ("M-q" . boxquote-fill-paragraph)
+   ("M-w" . boxquote-kill-ring-save)))
+#+end_src
+
+Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
+
 * Email
 ** [[https://notmuchmail.org][notmuch]]
 

diff --git a/lib/boxquote b/lib/boxquote
new file mode 160000 (submodule)
index 0000000..7e47e0e
--- /dev/null
+++ b/lib/boxquote
@@ -0,0 +1 @@
+Subproject commit 7e47e0e2853bc1215739b2e28f260e9eed93b2c5