diff options
| -rw-r--r-- | archive/gptel/tests/testutil-filesystem.el | 7 | ||||
| -rw-r--r-- | custom/utilities/vcf-conversion-helpers.el | 8 | ||||
| -rw-r--r-- | early-init.el | 5 |
3 files changed, 9 insertions, 11 deletions
diff --git a/archive/gptel/tests/testutil-filesystem.el b/archive/gptel/tests/testutil-filesystem.el index b1970b62d..283a3b2b0 100644 --- a/archive/gptel/tests/testutil-filesystem.el +++ b/archive/gptel/tests/testutil-filesystem.el @@ -1,4 +1,4 @@ -;;; testutil-filesystem.el --- -*- coding: utf-8; lexical-binding: t; -*- +;;; testutil-filesystem.el --- Filesystem helpers for archived GPTel tests -*- coding: utf-8; lexical-binding: t; -*- ;; ;; Author: Craig Jennings <c@cjennings.net> ;; @@ -27,11 +27,8 @@ By default, hidden entries (starting with '.') are excluded unless INCLUDE-HIDDEN is non-nil. FILTER-PREDICATE, if non-nil, is a predicate function called on each entry's absolute path; only entries where it returns non-nil are included." - ;; Convert 'path' to an absolute filename string (let* ((expanded-path (expand-file-name path)) - ;; get absolute paths in expanded directory (entries (directory-files expanded-path t nil t)) - ;; remove "." ".." entries (filtered-entries (cl-remove-if (lambda (entry) @@ -40,10 +37,8 @@ non-nil are included." (and (not include-hidden) (string-prefix-p "." (f-filename entry))))) entries))) - ;; apply filtered predicate if provided (if filter-predicate (seq-filter filter-predicate filtered-entries) - ;; retun filtered-entries filtered-entries))) (defun cj/get-file-info (path) diff --git a/custom/utilities/vcf-conversion-helpers.el b/custom/utilities/vcf-conversion-helpers.el index d336eac8e..4ea340236 100644 --- a/custom/utilities/vcf-conversion-helpers.el +++ b/custom/utilities/vcf-conversion-helpers.el @@ -15,8 +15,8 @@ (insert-file-contents input-vcf) (goto-char (point-min)) - ;; First, clean up multi-line fields (unfold them) BEFORE processing - ;; This ensures PHOTO and other multi-line fields are on single lines + ;; Unfold continuation lines before field-level parsing; PHOTO and NOTE values + ;; often span multiple physical lines in exported VCF files. (goto-char (point-min)) (while (re-search-forward "\n[ \t]+" nil t) (replace-match " " t t)) @@ -60,7 +60,7 @@ (field-value (match-string 3))) (replace-match (format "%s%s:%s" field-type field-params field-value) t t))) - ;; NOW remove unwanted fields (but not the converted TEL/EMAIL fields) + ;; Remove Apple/Google metadata fields after preserving converted TEL/EMAIL data. (let ((remove-patterns '("^PHOTO:.*$" "^X-ABRELATEDNAMES:.*$" @@ -156,7 +156,7 @@ (widen))))))) - ;; Remove VCARDs with no identifying information (in reverse order to preserve positions) + ;; Drop cards with no displayable name, in reverse order to keep positions valid. (dolist (vcard-range (reverse vcards-to-remove)) (delete-region (car vcard-range) (cdr vcard-range)) (message "Removed VCARD with no identifying information"))) diff --git a/early-init.el b/early-init.el index 32f144cdb..f2ed5bfa3 100644 --- a/early-init.el +++ b/early-init.el @@ -21,7 +21,8 @@ ;; (add-hook 'after-init-hook 'benchmark-init/deactivate)) ;; -------------------------------- Debug Flags -------------------------------- -;; debugging enabled during Emacs startup. disabled again after Emacs startup. +;; Keep debug-on-error enabled only during startup; the startup hook restores the +;; normal interactive behavior after init has loaded. ;; uncomment when repo signatures expire and package installation is necessary ;; (setq package-check-signature nil) @@ -295,6 +296,8 @@ early-init.el.") bidi-inhibit-bpa t) ;; additional speedup ;; Disable global font lock mode until after initialization +;; Defer global font-lock until init finishes; major modes re-enable normal +;; highlighting after startup. (setq-default global-font-lock-mode nil) (add-hook 'emacs-startup-hook #'global-font-lock-mode) |