dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix indentation in utility library to conform to Common Lisp 

This is the current indentation default.
This commit is contained in:
Daniel - 2023-04-30 17:28:23 +02:00
parent 28b9918325
commit 7db9f8d56c
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
site-lisp/db-utils.el
View File

@ -515,30 +515,30 @@ entries, even if I want to use the input directly."
(stringp bn) (stringp bn)
(file-name-nondirectory bn))) (file-name-nondirectory bn)))
(default-alias (default-alias
(and fn (and fn
(let ((aliases (remove (assoc "all" grep-files-aliases) (let ((aliases (remove (assoc "all" grep-files-aliases)
grep-files-aliases)) grep-files-aliases))
alias) alias)
(while aliases (while aliases
(setq alias (car aliases) (setq alias (car aliases)
aliases (cdr aliases)) aliases (cdr aliases))
(if (string-match (mapconcat (if (string-match (mapconcat
#'wildcard-to-regexp #'wildcard-to-regexp
(split-string (cdr alias) nil t) (split-string (cdr alias) nil t)
"\\|") "\\|")
fn) fn)
(setq aliases nil) (setq aliases nil)
(setq alias nil))) (setq alias nil)))
(cdr alias)))) (cdr alias))))
(default-extension (default-extension
(and fn (and fn
(let ((ext (file-name-extension fn))) (let ((ext (file-name-extension fn)))
(and ext (concat "*." ext))))) (and ext (concat "*." ext)))))
(default (default
(or default-alias (or default-alias
default-extension default-extension
(car grep-files-history) (car grep-files-history)
(car (car grep-files-aliases)))) (car (car grep-files-aliases))))
(files (completing-read (files (completing-read
(format "Search for \"%s\" in files matching wildcard: " (format "Search for \"%s\" in files matching wildcard: "
regexp) regexp)
@ -617,7 +617,7 @@ duplicates when elements are considered as symbols."
(-each-indexed (string-to-list base45-alphabet) (-each-indexed (string-to-list base45-alphabet)
(-lambda (index char) (-lambda (index char)
(puthash char index decode-hash-table) (puthash char index decode-hash-table)
;; Add an encode-hash-table here in case base45-encode-string will ever be ;; Add an encode-hash-table here in case base45-encode-string will ever be
;; written, like so: (puthash index char encode-hash-table) ;; written, like so: (puthash index char encode-hash-table)
)) ))