ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove validation functions

This commit is contained in:
ndwarshuis 2019-05-01 16:57:04 -04:00
parent d67bee2c89
commit b6a4479835
2 changed files with 0 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
README.org
View File

@ -6,7 +6,6 @@ This is my personal emacs config. It is quite massive. Please use the table of c
- [[#for-new-users][for new users]]
- [[#config-structure][config structure]]
- [[#library][library]]
- [[#validation][validation]]
- [[#external][external]]
- [[#macros][macros]]
- [[#functions][functions]]
@ -79,52 +78,6 @@ Once loaded, the =init.el= pulls in another file called =conf.el= with the funct
Using an org file like this offers several advantages. First, org files are foldable in emacs which makes navigation easy. Second, they allow code snippets (the bit that actually go into =conf.el=) which allows for explanatory prose to be written around them, making documentation easy and clear. Third, =org-mode= has an automatic table of contents through the =toc-org= package, which makes naviagation even easier. Fourth, github itself is awesome enough to recognize org files as valid markdown and will render all the text, code snippets, headers, and table of contents in the nice html that you are reading now if on github. The result is a nearly self-documenting, self-organizing configuration that is easy to maintain and also easy to view for other users. Using the =init.el= itself would just have plain eLisp, which gets cluttered quickly. Some people break the =init.el= down into multiple files to keep everything sane, but I personally think it is easier to use one giant file that itself can be folded and abstracted to reduce the clutter.
* library
This is code that is used generally throughout the emacs config
** validation
This provides =validate-setq= which acts like a type checker for customizable variables. It must be loaded first since any other package may use it.
#+BEGIN_SRC emacs-lisp
(use-package validate
:straight t)
(defun get-invalid ()
(let (ret)
(mapatoms
(lambda (x)
(when (and (custom-variable-p x) (custom-invalid-p x))
(let ((val (symbol-value x))
(cur (car (get x 'customized-value)))
(sav (car (get x 'saved-value)))
(std (car (get x 'standard-value))))
;; (when (equal cur std)
(setq ret (cons (list x val cur sav std) ret))))))
ret))
(defun custom-invalid-p (symbol)
"Return non-nil if SYMBOL has invalid customization."
(when (get symbol 'custom-type)
(let* ((type (custom-variable-type symbol))
(conv (and type (widget-convert type))))
(and (widgetp conv)
(null (condition-case nil
(widget-apply conv :match (symbol-value symbol))
(error t)))))))
(defun custom-invalid-vars ()
"Print list of variables with non-matching custom-type."
(interactive)
(when (called-interactively-p 'any)
(with-current-buffer (get-buffer-create "*Custom: Invalid Vars*")
(delete-region (point-min) (point-max))
(insert (mapconcat
(lambda (c) (format "%s | %s | %s | %s | %s"
(nth 0 c)
(nth 1 c)
(nth 2 c)
(nth 3 c)
(nth 4 c)))
(get-invalid)
"\n"))
(display-buffer (current-buffer)))))
#+END_SRC
** external
*** s
#+BEGIN_SRC emacs-lisp

47
etc/conf.org
View File

@ -6,7 +6,6 @@ This is my personal emacs config. It is quite massive. Please use the table of c
- [[#for-new-users][for new users]]
- [[#config-structure][config structure]]
- [[#library][library]]
- [[#validation][validation]]
- [[#external][external]]
- [[#macros][macros]]
- [[#functions][functions]]
@ -79,52 +78,6 @@ Once loaded, the =init.el= pulls in another file called =conf.el= with the funct
Using an org file like this offers several advantages. First, org files are foldable in emacs which makes navigation easy. Second, they allow code snippets (the bit that actually go into =conf.el=) which allows for explanatory prose to be written around them, making documentation easy and clear. Third, =org-mode= has an automatic table of contents through the =toc-org= package, which makes naviagation even easier. Fourth, github itself is awesome enough to recognize org files as valid markdown and will render all the text, code snippets, headers, and table of contents in the nice html that you are reading now if on github. The result is a nearly self-documenting, self-organizing configuration that is easy to maintain and also easy to view for other users. Using the =init.el= itself would just have plain eLisp, which gets cluttered quickly. Some people break the =init.el= down into multiple files to keep everything sane, but I personally think it is easier to use one giant file that itself can be folded and abstracted to reduce the clutter.
* library
This is code that is used generally throughout the emacs config
** validation
This provides =validate-setq= which acts like a type checker for customizable variables. It must be loaded first since any other package may use it.
#+BEGIN_SRC emacs-lisp
(use-package validate
:straight t)
(defun get-invalid ()
(let (ret)
(mapatoms
(lambda (x)
(when (and (custom-variable-p x) (custom-invalid-p x))
(let ((val (symbol-value x))
(cur (car (get x 'customized-value)))
(sav (car (get x 'saved-value)))
(std (car (get x 'standard-value))))
;; (when (equal cur std)
(setq ret (cons (list x val cur sav std) ret))))))
ret))
(defun custom-invalid-p (symbol)
"Return non-nil if SYMBOL has invalid customization."
(when (get symbol 'custom-type)
(let* ((type (custom-variable-type symbol))
(conv (and type (widget-convert type))))
(and (widgetp conv)
(null (condition-case nil
(widget-apply conv :match (symbol-value symbol))
(error t)))))))
(defun custom-invalid-vars ()
"Print list of variables with non-matching custom-type."
(interactive)
(when (called-interactively-p 'any)
(with-current-buffer (get-buffer-create "*Custom: Invalid Vars*")
(delete-region (point-min) (point-max))
(insert (mapconcat
(lambda (c) (format "%s | %s | %s | %s | %s"
(nth 0 c)
(nth 1 c)
(nth 2 c)
(nth 3 c)
(nth 4 c)))
(get-invalid)
"\n"))
(display-buffer (current-buffer)))))
#+END_SRC
** external
*** s
#+BEGIN_SRC emacs-lisp