a20787706c
Fixes <http://bugs.gnu.org/15756>. * guix/profiles.scm (<manifest-pattern>): New record type. (remove-manifest-entry): Remove. (entry-predicate, manifest-matching-entries): New procedures. (manifest-remove): Accept a list of <manifest-pattern>. (manifest-installed?): Replace 'name' parameter by 'pattern', a <manifest-pattern>. * guix/scripts/package.scm (options->removable): Return a list of <manifest-pattern>. (guix-package)[process-action]: Use 'manifest-matching-entries' to compute the list of packages to remove. * tests/profiles.scm: New file. * Makefile.am (SCM_TESTS): Add it.
31 lines
1.4 KiB
EmacsLisp
31 lines
1.4 KiB
EmacsLisp
;; Per-directory local variables for GNU Emacs 23 and later.
|
|
|
|
((nil . ((fill-column . 78)
|
|
(tab-width . 8)))
|
|
(c-mode . ((c-file-style . "gnu")))
|
|
(scheme-mode
|
|
.
|
|
((indent-tabs-mode . nil)
|
|
(eval . (put 'test-assert 'scheme-indent-function 1))
|
|
(eval . (put 'test-equal 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-input-string 'scheme-indent-function 1))
|
|
(eval . (put 'guard 'scheme-indent-function 1))
|
|
(eval . (put 'lambda* 'scheme-indent-function 1))
|
|
(eval . (put 'substitute* 'scheme-indent-function 1))
|
|
(eval . (put 'with-directory-excursion 'scheme-indent-function 1))
|
|
(eval . (put 'package 'scheme-indent-function 0))
|
|
(eval . (put 'manifest-entry 'scheme-indent-function 0))
|
|
(eval . (put 'manifest-pattern 'scheme-indent-function 0))
|
|
(eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1))
|
|
(eval . (put 'with-error-handling 'scheme-indent-function 0))
|
|
(eval . (put 'with-mutex 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'syntax-parameterize 'scheme-indent-function 1))
|
|
(eval . (put 'with-monad 'scheme-indent-function 1))
|
|
(eval . (put 'mlet* 'scheme-indent-function 2))
|
|
(eval . (put 'mlet 'scheme-indent-function 2))
|
|
(eval . (put 'run-with-store 'scheme-indent-function 1))))
|
|
(emacs-lisp-mode . ((indent-tabs-mode . nil)))
|
|
(texinfo-mode . ((indent-tabs-mode . nil)
|
|
(fill-column . 72))))
|