1 files changed, 0 insertions, 79 deletions

@@ -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