sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 19:45:25 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(emacs): add disabled to Guix tables

Browse source
This commit is contained in:
Pavel Korytov 2021-06-06 17:52:43 +03:00
parent d91c662884
commit 695629551f
1 changed files with 20 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
Emacs.org
View file

@ -2345,9 +2345,12 @@ As of now, this package loads Helm on start. To avoid this, I have to exclude He
Functions used across my literate config files. Functions used across my literate config files.
*** Tables for Guix Dependencies *** Tables for Guix Dependencies
A function to extract Guix dependencies from the org file. If column name matches =[G|g]uix.*dep=, its contents will be added to the result. A function to extract Guix dependencies from the org file.
- If column name matches =[G|g]uix.*dep=, its contents will be added to the result.
- If =CATEGORY= is passed, a column with name =[C|c]ategory= will be used to filter results. That way one file can be used to produce multiple manifests.
- If there is a =[D|d]isabled= column, entries which have non-empty value in this column will be filtered out.
That seems pretty nice as I'm planning to move to Guix unless I encounter some unmovable obstacles.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun my/extract-guix-dependencies (&optional category) (defun my/extract-guix-dependencies (&optional category)
(let ((dependencies '())) (let ((dependencies '()))
@ -2368,14 +2371,24 @@ That seems pretty nice as I'm planning to move to Guix unless I encounter some u
nil nil
(mapcar #'substring-no-properties (nth 0 table)) (mapcar #'substring-no-properties (nth 0 table))
:test (lambda (_ elem) :test (lambda (_ elem)
(string-match-p ".*[C|c]ategory.*" elem))))) (string-match-p ".*[C|c]ategory.*" elem))))
(disabled-name-index
(cl-position
nil
(mapcar #'substring-no-properties (nth 0 table))
:test (lambda (_ elem)
(string-match-p ".*[D|d]isabled.*" elem)))))
(when dep-name-index (when dep-name-index
(dolist (elem (cdr table)) (dolist (elem (cdr table))
(when (when
(or (and
(not category) (or
(not category-name-index) (not category)
(string-match-p category (nth category-name-index elem))) (not category-name-index)
(string-match-p category (nth category-name-index elem)))
(or
(not disabled-name-index)
(string-empty-p (nth disabled-name-index elem))))
(add-to-list (add-to-list
'dependencies 'dependencies
(substring-no-properties (nth dep-name-index elem))))))))) (substring-no-properties (nth dep-name-index elem)))))))))