uhhhhhhhh... stuff?

1 files changed, 31 insertions, 2 deletions

@@ -18,13 +18,21 @@
 ;;
 ;;; Code:
 
-;; Add `acdw.el'
+;;; Add `acdw.el'
 (push (expand-file-name "lisp/"
                         user-emacs-directory)
       load-path)
-
 (require 'acdw)
 
+;;; About me
+(acdw/set
+ '((user-full-name "Case Duckworth")
+   (user-mail-address "acdw@acdw.net")
+   (calendar-location-name "Baton Rouge, LA")
+   (calendar-latitude 30.4)
+   (calendar-longitude -91.1)
+   (calendar-date-style iso)))
+
 ;;; Good defaults
 
 ;; Lines
@@ -86,6 +94,27 @@
             (auto-save-list-file-prefix
              ,(acdw/in-dir "auto-save-list/.saves-" t))))
 (auto-save-visited-mode +1)
+;; Auto-revert
+(when (require 'autorevert)
+  (global-auto-revert-mode +1))
+;; Save place
+(when (require 'saveplace)
+  (acdw/set
+   `((save-place-file ,(acdw/in-dir "places"))
+     (save-place-forget-unreadable-files ,(eq acdw/system :home))))
+  (save-place-mode +1))
+;; Recent files
+(when (require 'recentf)
+  (acdw/set
+   `((recentf-save-file ,(acdw/in-dir "recentf"))
+     (recentf-max-menu-items 100)
+     (recentf-max-saved-items nil)
+     (recentf-auto-cleanup 10 "Cleanup the recentf list when idle for 10s."))
+   (add-to-list 'recentf-exclude acdw/dir)
+   (recentf-mode +1)))
+
+;; Move the custom file
+(acdw/set `((custom-file ,(acdw/in-dir "custom.el"))))
 
 ;; Cursor
 (acdw/set '((cursor-type bar)