From e70d19dc6ea0d42b2d75716146d23870b378a83d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 25 Sep 2021 12:28:57 -0500
Subject: Rot13 my email

taken from pkal.  Is this a good idea /now/, even though my email's already
been on there for ages? myeshhhhhhhh~~~~
---
 lisp/acdw-compat.el   | 2 +-
 lisp/acdw-erc.el      | 2 +-
 lisp/acdw-eshell.el   | 2 +-
 lisp/acdw-fonts.el    | 2 +-
 lisp/acdw-modeline.el | 2 +-
 lisp/acdw-re.el       | 2 +-
 lisp/acdw-reading.el  | 2 +-
 lisp/acdw-setup.el    | 2 +-
 lisp/acdw.el          | 2 +-
 9 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw-compat.el b/lisp/acdw-compat.el
index 353a1f1..3221191 100644
--- a/lisp/acdw-compat.el
+++ b/lisp/acdw-compat.el
@@ -1,6 +1,6 @@
 ;;; acdw-compat.el -*- lexical-binding: t; coding: utf-8-unix -*-
 
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; Created: 2021-08-11
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el
index dd8525d..beea24b 100644
--- a/lisp/acdw-erc.el
+++ b/lisp/acdw-erc.el
@@ -1,6 +1,6 @@
 ;;; acdw-erc.el -*- lexical-binding: t; coding: utf-8-unix -*-
 
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; Created: 24 May 2021
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
diff --git a/lisp/acdw-eshell.el b/lisp/acdw-eshell.el
index fa27299..eedcc8b 100644
--- a/lisp/acdw-eshell.el
+++ b/lisp/acdw-eshell.el
@@ -1,6 +1,6 @@
 ;;; acdw-eshell.el -*- lexical-binding: t; coding: utf-8-unix -*-
 
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
 
diff --git a/lisp/acdw-fonts.el b/lisp/acdw-fonts.el
index 1b73af7..0fce172 100644
--- a/lisp/acdw-fonts.el
+++ b/lisp/acdw-fonts.el
@@ -1,6 +1,6 @@
 ;;; acdw-fonts.el -- font setup -*- lexical-binding: t; coding: utf-8-unix -*-
 
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; Created: Sometime during Covid-19, 2020
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el
index 6e5afb8..3836c81 100644
--- a/lisp/acdw-modeline.el
+++ b/lisp/acdw-modeline.el
@@ -1,5 +1,5 @@
 ;;; acdw-modeline.el -*- lexical-binding: t; coding: utf-8-unix -*-
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; Created: Sometime during Covid-19, 2020
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
diff --git a/lisp/acdw-re.el b/lisp/acdw-re.el
index f7df241..db46af1 100644
--- a/lisp/acdw-re.el
+++ b/lisp/acdw-re.el
@@ -1,5 +1,5 @@
 ;;; acdw-re.el -*- lexical-binding: t; coding: utf-8-unix -*-
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; Created: 2021-04-29
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
diff --git a/lisp/acdw-reading.el b/lisp/acdw-reading.el
index e21cff9..26ee5e8 100644
--- a/lisp/acdw-reading.el
+++ b/lisp/acdw-reading.el
@@ -1,6 +1,6 @@
 ;;; acdw-reading.el --- minor mode for reading -*- lexical-binding: t -*-
 
-;; Copyright 2021 Case Duckworth <acdw@acdw.net>
+;; Copyright 2021 Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; This file is NOT part of GNU Emacs.
 
 ;;; License:
diff --git a/lisp/acdw-setup.el b/lisp/acdw-setup.el
index 10a2b52..cd3807d 100644
--- a/lisp/acdw-setup.el
+++ b/lisp/acdw-setup.el
@@ -1,6 +1,6 @@
 ;;; acdw-setup.el -- my `setup' commands -*- lexical-binding: t -*-
 
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 
 ;; This file is NOT part of GNU Emacs.
 
diff --git a/lisp/acdw.el b/lisp/acdw.el
index b146f58..4043134 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -1,6 +1,6 @@
 ;;; acdw.el --- miscellaneous    -*- lexical-binding: t; coding: utf-8-unix -*-
 
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <(rot13-string "npqj@npqj.arg")>
 ;; Created: Sometime during Covid-19, 2020
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
-- 
cgit 1.4.1-21-gabe81


From 450599d91469a0fa97848aa1a80c2c7d610daa25 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 25 Sep 2021 13:15:42 -0500
Subject: Do away with lispy-modes and overcomplex configuration

---
 init.el           | 31 ++++++++++++++++---------------
 lisp/acdw-lisp.el | 11 +----------
 2 files changed, 17 insertions(+), 25 deletions(-)

(limited to 'lisp')

diff --git a/init.el b/init.el
index 3c0d2e7..d19d715 100644
--- a/init.el
+++ b/init.el
@@ -1914,26 +1914,27 @@ the default is \"/\"."
 (setup (:straight paredit)
   ;; I don't use paredit-splice-sexp much, and it stomps on isearch.
   (:unbind "M-s")
-  
-  (defun paredit@setup ()
-    "Correct weirdnesses and set up paredit mode."
-    (:with-map lisp-mode-shared-map
-      (:bind "DEL" #'paredit-backward-delete
-             "C-M-;" #'comment-or-uncomment-sexp
-             "C-<backspace>" #'paredit-backward-kill-word
-             "M-w" #'paredit-copy-as-kill))
-    (paredit-mode +1))
-
-  (dolist (mode lispy-modes)
-    (add-hook (intern (format "%s-hook" mode))
-              #'paredit@setup))
+
+  (:bind "DEL" #'paredit-backward-delete
+         "C-M-;" #'comment-or-uncomment-sexp
+         "C-<backspace>" #'paredit-backward-kill-word
+         "M-w" #'paredit-copy-as-kill)
+
+  (:hook-into emacs-lisp-mode
+              ielm-mode sly-repl-mode
+              lisp-mode
+              lisp-interaction-mode
+              scheme-mode)
   
   (:also-load eldoc)
   (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))
 
 (setup (:straight paren-face)
-  (dolist (mode lispy-modes)
-    (add-hook (intern (format "%s-hook" mode)) #'paren-face-mode)))
+  (:hook-into emacs-lisp-mode
+              ielm-mode sly-repl-mode
+              lisp-mode
+              lisp-interaction-mode
+              scheme-mode))
 
 (setup (:straight-if (pdf-tools
                       :host github
diff --git a/lisp/acdw-lisp.el b/lisp/acdw-lisp.el
index 8f551c9..92fe62e 100644
--- a/lisp/acdw-lisp.el
+++ b/lisp/acdw-lisp.el
@@ -2,16 +2,6 @@
 ;;
 ;; Extras for Lisp modes.
 
-(defvar lispy-modes '(emacs-lisp-mode
-                      eval-expression-minibuffer
-                      ielm-mode
-                      lisp-mode
-                      lisp-interaction-mode
-                      scheme-mode
-                      slime-repl-mode
-                      sly-mrepl-mode)
-  "List of modes that are lisp-like enough to hook packages into.")
-
 (defun acdw/eval-region-or-buffer ()
   (interactive)
   (if (region-active-p)
@@ -23,3 +13,4 @@
       (eval-buffer))))
 
 (provide 'acdw-lisp)
+;;; acdw-lisp.el ends here
-- 
cgit 1.4.1-21-gabe81