From 33c7ddb09e0eae0796686c64ffa022a181145cc1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 4 Jan 2023 23:21:15 -0600
Subject: Restart ... again ... again

---
 lisp/acdw.el | 79 ------------------------------------------------------------
 1 file changed, 79 deletions(-)
 delete mode 100644 lisp/acdw.el

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
deleted file mode 100644
index 30c4f44..0000000
--- a/lisp/acdw.el
+++ /dev/null
@@ -1,79 +0,0 @@
-;;; acdw.el --- Basic emacs shit for acdw -*- lexical-binding: t -*-
-
-;;; Code:
-
-(require 'acdw-funs)			; Extra functions
-(require 'acdw-macs)			; Extra macros
-
-(defdir etc/ (locate-user-emacs-file "etc")
-  "Directory for package configuration files.
-See `no-littering' for examples.")
-
-(defdir var/ etc/
-  "Directory for package data file.
-See `no-littering' for examples.")
-
-(defdir cache/ (if-let ((xdg-cache (getenv "XDG_CACHE_HOME")))
-                   (expand-file-name "emacs/" xdg-cache)
-                 etc/)
-  "Directory for cache files.")
-
-(setq native-compile-target-directory (cache/ "eln" t))
-(when (fboundp 'startup-redirect-eln-cache)
-  (startup-redirect-eln-cache (cache/ "eln" t)))
-
-(defdir sync/ (expand-file-name "/home/case/Sync")
-  "My Syncthing directory.")
-
-(defdir private/ (sync/ "emacs/private"))
-(add-to-list 'load-path private/)
-
-(require 'acdw-defaults)		; Sane defaults
-(require '_acdw)			; Private stuff
-(require '+lisp)			; Lispy goodness
-
-(setc enable-recursive-minibuffers t
-      completions-detailed t
-      completion-ignore-case t
-      read-buffer-completion-ignore-case t
-      read-file-name-completion-ignore-case t
-      initial-buffer-choice #'+initial-buffer
-      initial-scratch-message
-      (format "%s\n\n"
-              (comment-lines
-               (shell-command-to-string "fortune")
-               ";; "))
-      sentence-end-double-space nil
-      save-silently t)
-
-(defkeys t
-  "M-o" #'other-window|switch-buffer
-  "C-x 0" #'delete-window|bury-buffer
-  "C-M-;" #'+lisp-comment-or-uncomment-sexp
-  "M-SPC" #'+cycle-spacing
-  "C-x C-k" #'kill-this-buffer)
-
-(defkeys t
-  "M-u" #'universal-argument)
-
-(defkeys universal-argument-map
-  "M-u" #'universal-argument-more)
-
-(define-advice switch-to-buffer (:after (&rest _) normal-mode)
-  "Automatically determine the mode for created non-file buffers."
-  (when-let ((_ (and (eq major-mode 'fundamental-mode)))
-             (buffer-file-name (buffer-name)))
-    (normal-mode)))
-
-(define-advice canonically-space-region
-    (:around (orig &rest args) double-space-sentences)
-  (let ((sentence-end-double-space t))
-    (apply orig args)))
-
-(with-region-or-buffer indent-region)
-
-(winner-mode)
-
-(provide 'acdw)
-
-;;; acdw.el ends here
-- 
cgit 1.4.1-21-gabe81