diff options
| -rw-r--r-- | init.el | 29 | ||||
| -rw-r--r-- | tests/testutil-general.el | 25 |
2 files changed, 14 insertions, 40 deletions
@@ -1,4 +1,4 @@ -;;; init.el --- Emacs Init File -*- lexical-binding: t; coding: utf-8; -*- +w;;; init.el --- Emacs Init File -*- lexical-binding: t; coding: utf-8; -*- ;; author: Craig Jennings <c@cjennings.net> ;;; Commentary: @@ -27,25 +27,24 @@ ;; -------------------------- Utilities And Libraries -------------------------- (require 'custom-case) ;; operations for upper/lower/title case -(require 'custom-comments) ;; operations with comments -(require 'custom-datetime) ;; date/timestamp insertion in various formats -(require 'custom-file-buffer) ;; custom buffer and file operations and keymap -(require 'custom-line-paragraph) ;; operations on lines and paragraphs -;; <<<< writing tests for custom-misc -(require 'custom-misc) ;; miscellaneous functions -(require 'custom-ordering) ;; ordering and sorting operations -(require 'custom-text-enclose) ;; operations to append, prepend, and surround text -(require 'custom-whitespace) ;; whitespace operations +(require 'custom-comments) ;; operations with comments (tests done) +(require 'custom-datetime) ;; date/timestamp insertion in various formats (too trivial) +(require 'custom-file-buffer) ;; custom buffer and file operations and keymap (tests done) +(require 'custom-line-paragraph) ;; operations on lines and paragraphs (tests done) +(require 'custom-misc) ;; miscellaneous functions (tests done) +(require 'custom-ordering) ;; ordering and sorting operations (tests done) +(require 'custom-text-enclose) ;; operations to append, prepend, and surround text (tests done) +(require 'custom-whitespace) ;; whitespace operations (tests done) (require 'external-open) ;; files to open outside of Emacs (require 'media-utils) ;; download and play urls ;; ------------------------- System Level Functionality ------------------------ (require 'auth-config) ;; emacs gnupg integration -(require 'keyboard-macros) ;; tested: keyboard macro management +(require 'keyboard-macros) ;; keyboard macro management (tests done) (require 'system-utils) ;; timers, process monitor (require 'text-config) ;; text settings and functionality -(require 'undead-buffers) ;; bury rather than kill specific buffers +(require 'undead-buffers) ;; bury rather than kill buffers you choose (tests done) ;; ------------------------ User Interface Configuration ----------------------- @@ -83,7 +82,7 @@ (require 'markdown-config) (require 'pdf-config) ;; pdf display settings (require 'quick-video-capture) ;; desktop and/or audio recording via ffmpeg -(require 'show-kill-ring) ;; displays and facilitates pasting from history +;; (require 'show-kill-ring) ;; displays and facilitates pasting from history (require 'video-audio-recording) ;; desktop and/or audio recording via ffmpeg (require 'weather-config) ;; utility to display the weather @@ -113,7 +112,7 @@ (require 'org-export-config) (require 'org-gcal-config) (require 'org-refile-config) ;; refile org-branches -(require 'org-roam-config) ;; personal knowledge management in org mode +(require 'org-roam-config) ;; personal knowledge management in org mode (tests added) (require 'org-webclipper) ;; "instapaper" to org-roam workflow ;; (require 'org-noter-config) ;; wip @@ -128,7 +127,7 @@ ;; Filesystem Tools (require 'read_text_file) (require 'write_text_file) -;; (require 'update_text_file) ;; BUG: issues with this tool + ;; (require 'update_text_file) ;; BUG: issues with this tool (require 'list_directory_files) (require 'move_to_trash)) diff --git a/tests/testutil-general.el b/tests/testutil-general.el index d3c08135..b7222d1a 100644 --- a/tests/testutil-general.el +++ b/tests/testutil-general.el @@ -81,31 +81,6 @@ Return the full created path." (cj/create--directory-ensuring-parents path) (cj/create--file-ensuring-parents path content executable)))) - -;; (defun cj/create-file-with-content-ensuring-parents (filepath content &optional executable) -;; "Create a file at FILEPATH with CONTENT, ensuring parent directories exist. -;; FILEPATH will be relative to `cj/test-base-dir'. -;; Signals an error if the file already exists. -;; If EXECUTABLE is non-nil, set executable permission on the file. -;; Errors if the resulting path is outside `cj/test-base-dir`." -;; (let* ((base (file-name-as-directory cj/test-base-dir)) -;; (fullpath (if (file-name-absolute-p filepath) -;; (expand-file-name filepath) -;; (expand-file-name filepath base)))) -;; (unless (string-prefix-p base fullpath) -;; (error "File path %s is outside base test directory %s" fullpath base)) -;; (let ((parent-dir (file-name-directory fullpath))) -;; (when (file-exists-p fullpath) -;; (error "File already exists: %s" fullpath)) -;; (unless (file-directory-p parent-dir) -;; (make-directory parent-dir t)) -;; (with-temp-buffer -;; (insert content) -;; (write-file fullpath)) -;; (when executable -;; (chmod fullpath #o755)) -;; fullpath))) - (defun cj/fix-permissions-recursively (dir) "Recursively set read/write permissions for user under DIR. Directories get user read, write, and execute permissions to allow recursive |