From: alex <alex@pdp7.net>
Date: Fri, 8 Mar 2024 18:22:42 +0000 (+0100)
Subject: Archive some emacs configuration
X-Git-Tag: 20241020-emacs~254
X-Git-Url: https://xn--ix-yja.es/gitweb/?a=commitdiff_plain;h=8bb0f3c316fc50a6d629dcb0b0851591a656bed5;p=alex.git

Archive some emacs configuration
---

diff --git a/emacs/emacs-rh.el b/emacs/emacs-rh.el
new file mode 100644
index 0000000..0948a36
--- /dev/null
+++ b/emacs/emacs-rh.el
@@ -0,0 +1,42 @@
+;; archive of some stuff I used in a previous job
+
+;; Abbrevs for work, declared in emacs.el for version control
+(clear-abbrev-table global-abbrev-table)
+
+(progn
+  (when (boundp 'adoc-mode-abbrev-table)
+    (clear-abbrev-table adoc-mode-abbrev-table))
+  (define-abbrev-table 'adoc-mode-abbrev-table
+    '(
+      ("oomit" "_...output omitted..._")
+)))
+
+(setq save-abbrevs nil)
+
+;; AsciiDoc + Vale + Aspell support for work
+(use-package adoc-mode
+  :ensure t
+  :config
+  (add-hook 'adoc-mode-hook #'abbrev-mode))
+
+(cl-defun slot/vc-install (&key (fetcher "github") repo name rev backend)
+  (let* ((url (format "https://www.%s.com/%s" fetcher repo))
+         (iname (when name (intern name)))
+         (pac-name (or iname (intern (file-name-base repo)))))
+    (unless (package-installed-p pac-name)
+      (package-vc-install url iname rev backend))))
+
+(use-package flymake-vale
+  :init (slot/vc-install :fetcher "github" :repo "tpeacock19/flymake-vale")
+  :ensure t)
+
+(add-hook 'adoc-mode-hook #'flymake-vale-load)
+(add-hook 'find-file-hook 'flymake-vale-maybe-load)
+(add-hook 'adoc-mode-hook 'flymake-mode)
+
+(use-package flymake-aspell
+  :ensure t)
+(add-hook 'adoc-mode-hook #'flymake-aspell-setup)
+(setq ispell-dictionary "en_US-RH")
+
+(add-hook 'adoc-mode-hook (lambda () (setq flymake-aspell-aspell-mode "asciidoc")))
diff --git a/emacs/emacs.el b/emacs/emacs.el
index 3090e31..e0d283d 100644
--- a/emacs/emacs.el
+++ b/emacs/emacs.el
@@ -115,46 +115,3 @@
 
 (use-package puppet-mode
   :ensure t)
-
-;; ==== WORK ====
-
-;; Abbrevs for work, declared in emacs.el for version control
-(clear-abbrev-table global-abbrev-table)
-
-(progn
-  (when (boundp 'adoc-mode-abbrev-table)
-    (clear-abbrev-table adoc-mode-abbrev-table))
-  (define-abbrev-table 'adoc-mode-abbrev-table
-    '(
-      ("oomit" "_...output omitted..._")
-)))
-
-(setq save-abbrevs nil)
-
-;; AsciiDoc + Vale + Aspell support for work
-(use-package adoc-mode
-  :ensure t
-  :config
-  (add-hook 'adoc-mode-hook #'abbrev-mode))
-
-(cl-defun slot/vc-install (&key (fetcher "github") repo name rev backend)
-  (let* ((url (format "https://www.%s.com/%s" fetcher repo))
-         (iname (when name (intern name)))
-         (pac-name (or iname (intern (file-name-base repo)))))
-    (unless (package-installed-p pac-name)
-      (package-vc-install url iname rev backend))))
-
-(use-package flymake-vale
-  :init (slot/vc-install :fetcher "github" :repo "tpeacock19/flymake-vale")
-  :ensure t)
-
-(add-hook 'adoc-mode-hook #'flymake-vale-load)
-(add-hook 'find-file-hook 'flymake-vale-maybe-load)
-(add-hook 'adoc-mode-hook 'flymake-mode)
-
-(use-package flymake-aspell
-  :ensure t)
-(add-hook 'adoc-mode-hook #'flymake-aspell-setup)
-(setq ispell-dictionary "en_US-RH")
-
-(add-hook 'adoc-mode-hook (lambda () (setq flymake-aspell-aspell-mode "asciidoc")))