fix: paredit in ielm; twiddle: some themes and svg export stuff

1 files changed, 49 insertions, 15 deletions

diff --git a/init-el.org b/init-el.org
index 88c7f7c..66948ae 100644
--- a/init-el.org
+++ b/init-el.org
@@ -599,12 +599,17 @@ New in emacs 28, native compilation can be enabled:
 ;(load "~/.emacs.d/shanty-themes.el")
 
 (setq my-installed-themes
-      '(zerodark-theme
-        zenburn-theme
-        tao-theme
+      '(lab-themes
+        morgentau-theme
+        avk-emacs-themes
+        eziam-themes
+        monokai-pro-theme
         yoshi-theme
-        solo-jazz-theme 
-        uwu-theme))
+        timu-caribbean-theme
+        lush-theme
+        oldlace-theme
+        soft-morning-theme
+        warm-night-theme))
 
 (dolist (package my-installed-themes)
   (when (not (package-installed-p package)) 
@@ -619,18 +624,21 @@ New in emacs 28, native compilation can be enabled:
 
 (setq *my-themes*
       '(modus-operandi
-        tao-yang
-        solo-jazz
-        leuven
-        zenburn
-        zerodark
+        eziam-light
+        avk-daylight
+        soft-morning 
+        oldlace
+        lab-light
+        eziam-dusk
+        warm-night 
         yoshi
-        sweet
-        uwu
-        tao-yin
+        morgentau
+        timu-caribbean
+        lush
+        eziam-dark
         modus-vivendi))
 
-(load-theme 'dichromacy t)
+(load-theme (first *my-themes*) t)
 
 (defun my-theme-string ()
   (if (car custom-enabled-themes)
@@ -1370,12 +1378,12 @@ from debian contrib
 (autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
 (add-hook 'emacs-lisp-mode-hook       #'enable-paredit-mode)
 (add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
-(add-hook 'ielm-mode-hook             #'enable-paredit-mode)
 (add-hook 'lisp-mode-hook             #'enable-paredit-mode)
 (add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
 (add-hook 'scheme-mode-hook           #'enable-paredit-mode)
 (add-hook 'clojure-mode-hook          #'paredit-mode)
 
+(add-to-list 'auto-mode-alist (cons "\\.sexp\\'" 'lisp-mode)
 (add-to-list 'auto-mode-alist (cons "\\.parenscript\\'" 'lisp-mode))
 (add-to-list 'auto-mode-alist (cons "\\.lass\\'" 'lisp-mode))
 (add-to-list 'auto-mode-alist (cons "\\.spinneret\\'" 'lisp-mode))
@@ -1429,3 +1437,29 @@ from debian contrib
 #+begin_src elisp :noweb no-export :results none
 
 #+end_src
+
+* Tools
+#+name: tools
+#+begin_src elis :noweb no-export
+<<buffer-export-config>>
+#+end_src
+** Export Emacs Buffer
+
+#+name: buffer-export-config
+#+begin_src emacs-lisp 
+(defun screenshot-svg (filename)
+  "Save a screenshot of the current frame as an SVG image.
+Saves to a temp file and puts the filename in the kill ring."
+  (interactive "sfilename:")
+  (let* ((tmpfile (make-temp-file "Emacs" nil ".svg"))
+         (data (x-export-frames nil 'svg)))
+    (with-temp-file tmpfile
+      (insert data))
+    (copy-file tmpfile filename t)
+    (message filename)))
+#+end_src
+
+#+RESULTS: buffer-export-config
+: screenshot-svg
+
+