From 4566ec69d269ecba8d9386a131b932ee5244aa8e Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sun, 5 May 2024 09:23:58 -0500
Subject: enhancements, functions, tests, and misc

enhancements
- move accent-company to C-` and ensure it's on for org mode
- re-enable narrow-to-region
- turn on network repos by default
- remove setq in company's use-package custom clause
- increase company delay to .7 secs
- recipe templates should have visibility show all
- move video recordings code to separate module
- move geiser-guile to prog-lisp

functions
- improve cj/reformat-region-or-buffer via restriction
- improvements to test-format-region
- adding tests for clear-blank-lines
- Add prepend-lines and replace-fraction-glyphs functions
- add cj/clear-blank-lines function
- create cj/load-all-tests utility function

tests
- add keybinding for ert-run-tests-interactively
- ensure ert libraries are available to load-all-tests
- remove running the tests when evaluating the buffer
- fix clear-blank-lines and adding better tests

misc
- updated packages
- adding the luddite blog to elfeed
- more abbrevs
---
 modules/test-code.el | 63 +++++-----------------------------------------------
 1 file changed, 6 insertions(+), 57 deletions(-)

(limited to 'modules/test-code.el')

diff --git a/modules/test-code.el b/modules/test-code.el
index 409f8e07..bde37cb2 100644
--- a/modules/test-code.el
+++ b/modules/test-code.el
@@ -7,15 +7,14 @@
 
 ;;; Code:
 
-;; -------------------------------- Geiser Guile -------------------------------
-;; Guile support in Emacs
+;; ----------------------------------- Mpdel -----------------------------------
 
-(use-package geiser-guile
-  :defer 1
-  :commands (geiser-guile)
-  :bind ("C-c G" . geiser-guile)
+(use-package mpdel
+  :defer .5
   :config
-  (setq geiser-guile-binary "/usr/bin/guile"))
+  (setq mpdel-prefix-key (kbd "M-p"))
+  (mpdel-mode))
+
 
 ;; ---------------------------------- Yeetube ----------------------------------
 ;; youtube frontend for emacs
@@ -56,56 +55,6 @@
   :config
   (easy-hugo-enable-menu))
 
-
-;; --------------------------------- Recording ---------------------------------
-
-(defvar cj/ffmpeg-process nil
-  "Variable to store the process of the ffmpeg recording.")
-
-(defvar cj/recording-location "~/videos/recordings"
-  "The location to save the ffmpeg recordings.")
-
-(defun cj/start-recording (arg)
-  "Starts the ffmpeg recording.
-If called with a prefix arg C-u, choose the location on where to save the recording,
-otherwise use the default location in `cj/recording-location'."
-  (interactive "P")
-  (let* ((location (if arg
-					   (read-directory-name "Enter recording location: ")
-					 cj/recording-location))
-		 (directory (file-name-directory location)))
-	(unless (file-directory-p directory)
-	  (make-directory directory t))
-	(cj/ffmpeg-record location)))
-
-(defun cj/ffmpeg-record (directory)
-  "Start an ffmpeg recording. Save output to DIRECTORY."
-  (unless cj/ffmpeg-process
-	(let* ((location (expand-file-name directory))
-		   (name (format-time-string "%Y-%m-%d-%H-%M-%S"))
-		   (filename (concat location "/" name ".mkv"))
-		   (ffmpeg-command
-			(concat "ffmpeg -framerate 30 -f x11grab -i :0.0+ "
-					"-f pulse -i alsa_input.pci-0000_00_1b.0.analog-stereo "
-					"-ac 1 -f pulse -i alsa_output.pci-0000_00_1b.0.analog-stereo.monitor "
-					"-ac 2 " filename)))
-	  ;; start the recording
-	  (setq cj/ffmpeg-process
-			(start-process-shell-command "ffmpeg-recording"
-										 "*ffmpeg-recording*"
-										 ffmpeg-command))
-      (set-process-query-on-exit-flag cj/ffmpeg-process nil)
-	  (message "Started recording process."))))
-
-(defun cj/stop-recording ()
-  "Stop the ffmpeg recording process."
-  (interactive)
-  (when cj/ffmpeg-process
-	(delete-process cj/ffmpeg-process)
-	(setq cj/ffmpeg-process nil)
-	(message "Stopped recording process.")))
-
-
 ;; -------------------------------- Google This --------------------------------
 
 (use-package google-this
-- 
cgit v1.2.3