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 +;; 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 +;; 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 +;; 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 +;; 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 +;; 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 +;; 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 +;; 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 +;; 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 +;; 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-" #'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-" #'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