rename some Emacs files under ~/doc/

1 files changed, 7 insertions, 7 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 21162fbe..d30e76d3 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -915,7 +915,7 @@ To be used only when it seems to be necessary."
 (global-set-key "\C-cih" #'add-file-local-variable-prop-line)
 
 ;; don't do anything with abbrevs if ~/doc is not checked out
-(defvar spw/doc-abbrevs-file (expand-file-name "~/doc/emacs-abbrevs"))
+(defvar spw/doc-abbrevs-file (expand-file-name "~/doc/abbrevs"))
 (when (file-exists-p spw/doc-abbrevs-file)
   (setq abbrev-file-name spw/doc-abbrevs-file)
   (quietly-read-abbrev-file)
@@ -926,7 +926,7 @@ To be used only when it seems to be necessary."
   (setf (cadr (assq 'abbrev-mode minor-mode-alist)) nil))
 
 ;; similar
-(defvar spw/doc-bookmarks-file (expand-file-name "~/doc/emacs-bookmarks"))
+(defvar spw/doc-bookmarks-file (expand-file-name "~/doc/bookmarks"))
 (when (file-exists-p spw/doc-bookmarks-file)
   (setq bookmark-default-file spw/doc-bookmarks-file
         bookmark-save-flag 1))
@@ -4810,7 +4810,7 @@ before uploading to NEW again." \n \n
  '(org-adapt-indentation t nil)
 
  '(org-agenda-entry-text-maxlines 3)
- '(org-agenda-files "~/doc/emacs-org-agenda-files")
+ '(org-agenda-files "~/doc/org-agenda-files")
  '(org-agenda-persistent-filter t)
  '(org-agenda-remove-times-when-in-prefix 'beg)
 
@@ -5439,7 +5439,7 @@ different occasions."
 	     (string-to-number day) dayname)))
  '(calendar-date-style 'iso)
  '(calendar-week-start-day 1)
- '(diary-file "~/doc/emacs-diary")
+ '(diary-file "~/doc/diary")
  '(diary-list-entries-hook
    '(diary-include-other-diary-files diary-sort-entries))
  '(diary-mark-entries-hook '(diary-mark-included-diary-files))
@@ -5451,13 +5451,13 @@ different occasions."
 ;; bindings, and for editing purposes just C-x b suffices.
 (global-set-key "\C-cC" #'calendar)
 
-(when (file-readable-p "~/doc/emacs-diary")
+(when (file-readable-p "~/doc/diary")
   (require 'org-agenda)	; for `org-class'
   (unless
       (bound-and-true-p appt-timer)    ; avoid msgs when `eval-buffer' init.el
     (appt-activate 1))
   (add-to-list 'auto-mode-alist
-	       `(,(format "\\`%s\\'" (expand-file-name "~/doc/emacs-diary"))
+	       `(,(format "\\`%s\\'" (expand-file-name "~/doc/diary"))
 		  . diary-mode)))
 
 (defun spw/diary-archive-entry (year)
@@ -5468,7 +5468,7 @@ different occasions."
   (let ((start (point)))
     (forward-line 1)
     (while (looking-at "[[:blank:]]+") (forward-line 1))
-    (append-to-file start (point) (format "~/doc/archive/emacs-diary-%d" year))
+    (append-to-file start (point) (format "~/doc/archive/diary-%d" year))
     (delete-region start (point))
     (when (and (bolp) (eolp)) (delete-blank-lines))))
 (with-eval-after-load 'diary-lib