distro: Add the `guile', `typesetting', and `databases' package modules.
* distro.scm (package-files): Adjust PREFIX-LEN to use the top-level
directory, not %DISTRO-MODULE-DIRECTORY.
* distro/packages/base.scm (guile-reader, guile-reader/guile-1.8,
guile-reader/guile-2.0, lout, recutils): Move to...
* distro/packages/guile.scm, distro/packages/typesetting.scm,
distro/packages/databases.scm: ... here. New files.
* Makefile.am (MODULES): Add them.
(EXTRA_DIST): Add `.dir-locals.el'.
* .dir-locals.el: New file, with settings formerly in `base.scm'.
2012-09-26 20:17:41 +00:00
|
|
|
;; Per-directory local variables for GNU Emacs 23 and later.
|
|
|
|
|
2014-10-10 16:19:43 +00:00
|
|
|
((nil
|
|
|
|
. ((fill-column . 78)
|
|
|
|
(tab-width . 8)
|
2016-10-04 11:15:12 +00:00
|
|
|
(sentence-end-double-space . t)
|
2014-10-10 16:19:43 +00:00
|
|
|
|
|
|
|
;; For use with 'bug-reference-prog-mode'.
|
|
|
|
(bug-reference-url-format . "http://bugs.gnu.org/%s")
|
|
|
|
(bug-reference-bug-regexp
|
2020-10-25 18:10:15 +00:00
|
|
|
. "<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>")
|
|
|
|
|
|
|
|
;; Emacs-Guix
|
2020-11-16 18:06:27 +00:00
|
|
|
(eval . (setq-local guix-directory
|
|
|
|
(locate-dominating-file default-directory
|
|
|
|
".dir-locals.el")))
|
2020-10-25 18:10:15 +00:00
|
|
|
|
|
|
|
;; Geiser
|
|
|
|
;; This allows automatically setting the `geiser-guile-load-path'
|
|
|
|
;; variable when using various Guix checkouts (e.g., via git worktrees).
|
2020-11-16 18:04:38 +00:00
|
|
|
(eval . (let ((root-dir-unexpanded (locate-dominating-file
|
|
|
|
default-directory ".dir-locals.el")))
|
|
|
|
;; While Guix should in theory always have a .dir-locals.el
|
|
|
|
;; (we are reading this file, after all) there seems to be a
|
|
|
|
;; strange problem where this code "escapes" to some other buffers,
|
|
|
|
;; at least vc-mode. See:
|
|
|
|
;; https://lists.gnu.org/archive/html/guix-devel/2020-11/msg00296.html
|
|
|
|
;; (TODO: add/replace with upstream emacs bug link when reported)
|
|
|
|
;; Hence the following "when", which might otherwise be unnecessary;
|
|
|
|
;; it prevents causing an error when root-dir-unexpanded is nil.
|
|
|
|
(when root-dir-unexpanded
|
|
|
|
(let* ((root-dir (expand-file-name root-dir-unexpanded))
|
|
|
|
;; Workaround for bug https://issues.guix.gnu.org/43818.
|
|
|
|
(root-dir* (directory-file-name root-dir)))
|
|
|
|
|
|
|
|
(unless (boundp 'geiser-guile-load-path)
|
|
|
|
(defvar geiser-guile-load-path '()))
|
|
|
|
(make-local-variable 'geiser-guile-load-path)
|
|
|
|
(require 'cl-lib)
|
|
|
|
(cl-pushnew root-dir* geiser-guile-load-path
|
|
|
|
:test #'string-equal)))))))
|
2020-10-25 18:10:15 +00:00
|
|
|
|
distro: Add the `guile', `typesetting', and `databases' package modules.
* distro.scm (package-files): Adjust PREFIX-LEN to use the top-level
directory, not %DISTRO-MODULE-DIRECTORY.
* distro/packages/base.scm (guile-reader, guile-reader/guile-1.8,
guile-reader/guile-2.0, lout, recutils): Move to...
* distro/packages/guile.scm, distro/packages/typesetting.scm,
distro/packages/databases.scm: ... here. New files.
* Makefile.am (MODULES): Add them.
(EXTRA_DIST): Add `.dir-locals.el'.
* .dir-locals.el: New file, with settings formerly in `base.scm'.
2012-09-26 20:17:41 +00:00
|
|
|
(c-mode . ((c-file-style . "gnu")))
|
|
|
|
(scheme-mode
|
|
|
|
.
|
|
|
|
((indent-tabs-mode . nil)
|
2014-04-28 21:00:57 +00:00
|
|
|
(eval . (put 'eval-when 'scheme-indent-function 1))
|
2015-05-25 16:25:19 +00:00
|
|
|
(eval . (put 'call-with-prompt 'scheme-indent-function 1))
|
2013-02-01 11:48:02 +00:00
|
|
|
(eval . (put 'test-assert 'scheme-indent-function 1))
|
2015-05-06 15:08:00 +00:00
|
|
|
(eval . (put 'test-assertm 'scheme-indent-function 1))
|
2017-05-18 09:35:45 +00:00
|
|
|
(eval . (put 'test-equalm 'scheme-indent-function 1))
|
2013-02-01 11:48:02 +00:00
|
|
|
(eval . (put 'test-equal 'scheme-indent-function 1))
|
2014-03-31 21:34:20 +00:00
|
|
|
(eval . (put 'test-eq 'scheme-indent-function 1))
|
2013-02-01 11:48:02 +00:00
|
|
|
(eval . (put 'call-with-input-string 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'guard 'scheme-indent-function 1))
|
distro: Add the `guile', `typesetting', and `databases' package modules.
* distro.scm (package-files): Adjust PREFIX-LEN to use the top-level
directory, not %DISTRO-MODULE-DIRECTORY.
* distro/packages/base.scm (guile-reader, guile-reader/guile-1.8,
guile-reader/guile-2.0, lout, recutils): Move to...
* distro/packages/guile.scm, distro/packages/typesetting.scm,
distro/packages/databases.scm: ... here. New files.
* Makefile.am (MODULES): Add them.
(EXTRA_DIST): Add `.dir-locals.el'.
* .dir-locals.el: New file, with settings formerly in `base.scm'.
2012-09-26 20:17:41 +00:00
|
|
|
(eval . (put 'lambda* 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'substitute* 'scheme-indent-function 1))
|
2018-01-08 09:38:39 +00:00
|
|
|
(eval . (put 'match-record 'scheme-indent-function 2))
|
2017-04-28 12:53:51 +00:00
|
|
|
|
|
|
|
;; 'modify-phases' and its keywords.
|
2015-02-26 21:48:14 +00:00
|
|
|
(eval . (put 'modify-phases 'scheme-indent-function 1))
|
2017-04-28 12:53:51 +00:00
|
|
|
(eval . (put 'replace 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'add-before 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'add-after 'scheme-indent-function 2))
|
|
|
|
|
2015-10-28 20:36:07 +00:00
|
|
|
(eval . (put 'modify-services 'scheme-indent-function 1))
|
distro: Add the `guile', `typesetting', and `databases' package modules.
* distro.scm (package-files): Adjust PREFIX-LEN to use the top-level
directory, not %DISTRO-MODULE-DIRECTORY.
* distro/packages/base.scm (guile-reader, guile-reader/guile-1.8,
guile-reader/guile-2.0, lout, recutils): Move to...
* distro/packages/guile.scm, distro/packages/typesetting.scm,
distro/packages/databases.scm: ... here. New files.
* Makefile.am (MODULES): Add them.
(EXTRA_DIST): Add `.dir-locals.el'.
* .dir-locals.el: New file, with settings formerly in `base.scm'.
2012-09-26 20:17:41 +00:00
|
|
|
(eval . (put 'with-directory-excursion 'scheme-indent-function 1))
|
2019-06-03 14:23:01 +00:00
|
|
|
(eval . (put 'with-file-lock 'scheme-indent-function 1))
|
2019-11-18 21:22:59 +00:00
|
|
|
(eval . (put 'with-file-lock/no-wait 'scheme-indent-function 1))
|
2019-11-29 13:53:22 +00:00
|
|
|
(eval . (put 'with-profile-lock 'scheme-indent-function 1))
|
2020-08-08 15:05:22 +00:00
|
|
|
(eval . (put 'with-writable-file 'scheme-indent-function 2))
|
2019-06-03 14:23:01 +00:00
|
|
|
|
2013-10-29 16:19:44 +00:00
|
|
|
(eval . (put 'package 'scheme-indent-function 0))
|
2020-08-25 13:17:50 +00:00
|
|
|
(eval . (put 'package/inherit 'scheme-indent-function 1))
|
2013-11-06 23:18:20 +00:00
|
|
|
(eval . (put 'origin 'scheme-indent-function 0))
|
build-system: Introduce "bags" as an intermediate representation.
* guix/build-system.scm (<build-system>)[build, cross-build]: Remove.
[lower]: New field.
(<bag>): New record type.
(make-bag): New procedure.
* guix/packages.scm (bag-transitive-inputs, bag-transitive-build-inputs,
bag-transitive-host-inputs, bag-transitive-target-inputs,
package->bag): New procedures.
(package-derivation): Use it; use the bag, apply its build procedure,
etc.
(package-cross-derivation): Likewise.
* gnu/packages/bootstrap.scm (raw-build, make-raw-bag): New procedure.
(%bootstrap-guile): Use them.
* guix/build-system/trivial.scm (lower): New procedure.
(trivial-build, trivial-cross-build): Remove 'source' parameter. Pass
INPUTS as is.
(trivial-build-system): Adjust accordingly.
* guix/build-system/gnu.scm (%store, inputs-search-paths,
standard-search-paths, expand-inputs, standard-inputs): Remove.
(gnu-lower): New procedure.
(gnu-build): Remove 'source' and #:implicit-inputs? parameters.
Remove 'implicit-inputs' and 'implicit-search-paths' variables. Get
the source from INPUT-DRVS.
(gnu-cross-build): Likewise.
(standard-cross-packages): Remove call to 'standard-packages'.
(standard-cross-inputs, standard-cross-search-paths): Remove.
(gnu-build-system): Remove 'build' and 'cross-build'; add 'lower'.
* guix/build-system/cmake.scm (lower): New procedure.
(cmake-build): Remove 'source' and #:cmake parameters. Use INPUTS and
SEARCH-PATHS as is. Get the source from INPUTS.
* guix/build-system/perl.scm: Likewise.
* guix/build-system/python.scm: Likewise.
* guix/build-system/ruby.scm: Likewise.
* gnu/packages/cross-base.scm (cross-gcc): Change "cross-linux-headers"
to "linux-headers".
(cross-libc)[xlinux-headers]: Pass #:implicit-cross-inputs? #f.
Likewise. In 'propagated-inputs', change "cross-linux-headers" to
"linux-headers".
* guix/git-download.scm (git-fetch): Use 'standard-packages' instead of
'standard-inputs'.
* tests/builders.scm ("gnu-build-system"): Remove use of
'build-system-builder'.
("gnu-build"): Remove 'source' and #:implicit-inputs? arguments to
'gnu-build'.
* tests/packages.scm ("search paths"): Adjust to new build system API.
("package-cross-derivation, no cross builder"): Likewise.
* doc/guix.texi (Build Systems): Add paragraph on bags.
2014-10-03 16:06:16 +00:00
|
|
|
(eval . (put 'build-system 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'bag 'scheme-indent-function 0))
|
2014-10-14 12:47:49 +00:00
|
|
|
(eval . (put 'graft 'scheme-indent-function 0))
|
2014-05-02 22:26:07 +00:00
|
|
|
(eval . (put 'operating-system 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'file-system 'scheme-indent-function 0))
|
2013-11-01 22:11:17 +00:00
|
|
|
(eval . (put 'manifest-entry 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'manifest-pattern 'scheme-indent-function 0))
|
2012-10-31 23:50:01 +00:00
|
|
|
(eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1))
|
2014-01-19 22:03:43 +00:00
|
|
|
(eval . (put 'with-store 'scheme-indent-function 1))
|
2018-10-19 15:58:00 +00:00
|
|
|
(eval . (put 'with-external-store 'scheme-indent-function 1))
|
2013-05-14 21:53:38 +00:00
|
|
|
(eval . (put 'with-error-handling 'scheme-indent-function 0))
|
2013-10-03 20:45:25 +00:00
|
|
|
(eval . (put 'with-mutex 'scheme-indent-function 1))
|
2013-12-29 14:51:07 +00:00
|
|
|
(eval . (put 'with-atomic-file-output 'scheme-indent-function 1))
|
2014-03-24 21:15:29 +00:00
|
|
|
(eval . (put 'call-with-compressed-output-port 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'call-with-decompressed-port 'scheme-indent-function 2))
|
2016-07-18 21:14:14 +00:00
|
|
|
(eval . (put 'call-with-gzip-input-port 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-gzip-output-port 'scheme-indent-function 1))
|
2019-05-24 06:26:38 +00:00
|
|
|
(eval . (put 'call-with-lzip-input-port 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-lzip-output-port 'scheme-indent-function 1))
|
2014-03-31 21:34:20 +00:00
|
|
|
(eval . (put 'signature-case 'scheme-indent-function 1))
|
2014-08-02 23:24:50 +00:00
|
|
|
(eval . (put 'emacs-batch-eval 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'emacs-batch-edit-file 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'emacs-substitute-sexps 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'emacs-substitute-variables 'scheme-indent-function 1))
|
2015-02-02 09:37:23 +00:00
|
|
|
(eval . (put 'with-derivation-narinfo 'scheme-indent-function 1))
|
2015-06-06 17:05:25 +00:00
|
|
|
(eval . (put 'with-derivation-substitute 'scheme-indent-function 2))
|
2017-01-18 22:21:29 +00:00
|
|
|
(eval . (put 'with-status-report 'scheme-indent-function 1))
|
2019-01-09 10:25:11 +00:00
|
|
|
(eval . (put 'with-status-verbosity 'scheme-indent-function 1))
|
2020-03-18 21:17:39 +00:00
|
|
|
(eval . (put 'with-build-handler 'scheme-indent-function 1))
|
2013-10-03 20:45:25 +00:00
|
|
|
|
Add (guix memoization).
* guix/combinators.scm (memoize): Remove.
* guix/memoization.scm: New file.
* Makefile.am (MODULES): Add it.
* gnu/packages.scm, gnu/packages/bootstrap.scm,
guix/build-system/gnu.scm, guix/build-system/python.scm,
guix/derivations.scm, guix/gnu-maintenance.scm,
guix/import/cran.scm, guix/import/elpa.scm,
guix/modules.scm, guix/scripts/build.scm,
guix/scripts/graph.scm, guix/scripts/lint.scm,
guix/store.scm, guix/utils.scm: Adjust imports accordingly.
2017-01-28 15:33:57 +00:00
|
|
|
(eval . (put 'mlambda 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'mlambdaq 'scheme-indent-function 1))
|
2013-10-03 20:45:25 +00:00
|
|
|
(eval . (put 'syntax-parameterize 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-monad 'scheme-indent-function 1))
|
2014-10-08 21:35:08 +00:00
|
|
|
(eval . (put 'mbegin 'scheme-indent-function 1))
|
2014-12-02 09:11:11 +00:00
|
|
|
(eval . (put 'mwhen 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'munless 'scheme-indent-function 1))
|
2013-10-03 20:45:25 +00:00
|
|
|
(eval . (put 'mlet* 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'mlet 'scheme-indent-function 2))
|
2014-04-28 21:00:57 +00:00
|
|
|
(eval . (put 'run-with-store 'scheme-indent-function 1))
|
2015-01-17 17:46:41 +00:00
|
|
|
(eval . (put 'run-with-state 'scheme-indent-function 1))
|
2014-11-29 12:36:24 +00:00
|
|
|
(eval . (put 'wrap-program 'scheme-indent-function 1))
|
2016-07-03 20:26:19 +00:00
|
|
|
(eval . (put 'with-imported-modules 'scheme-indent-function 1))
|
2018-05-28 16:14:37 +00:00
|
|
|
(eval . (put 'with-extensions 'scheme-indent-function 1))
|
2020-03-06 10:25:43 +00:00
|
|
|
(eval . (put 'with-parameters 'scheme-indent-function 1))
|
2017-11-14 09:16:22 +00:00
|
|
|
(eval . (put 'let-system 'scheme-indent-function 1))
|
2014-04-28 21:00:57 +00:00
|
|
|
|
2018-05-27 17:19:30 +00:00
|
|
|
(eval . (put 'with-database 'scheme-indent-function 2))
|
2020-06-24 06:00:40 +00:00
|
|
|
(eval . (put 'call-with-transaction 'scheme-indent-function 1))
|
2020-06-02 00:21:43 +00:00
|
|
|
(eval . (put 'with-statement 'scheme-indent-function 3))
|
2020-06-24 06:00:40 +00:00
|
|
|
(eval . (put 'call-with-retrying-transaction 'scheme-indent-function 1))
|
2020-06-02 02:43:14 +00:00
|
|
|
(eval . (put 'call-with-savepoint 'scheme-indent-function 1))
|
2020-06-02 03:15:21 +00:00
|
|
|
(eval . (put 'call-with-retrying-savepoint 'scheme-indent-function 1))
|
2018-05-27 17:19:30 +00:00
|
|
|
|
2015-06-02 12:48:16 +00:00
|
|
|
(eval . (put 'call-with-container 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'container-excursion 'scheme-indent-function 1))
|
2017-04-17 20:04:31 +00:00
|
|
|
(eval . (put 'eventually 'scheme-indent-function 1))
|
2015-06-02 12:48:16 +00:00
|
|
|
|
2017-11-22 13:39:26 +00:00
|
|
|
(eval . (put 'call-with-progress-reporter 'scheme-indent-function 1))
|
2020-06-08 10:01:24 +00:00
|
|
|
(eval . (put 'with-repository 'scheme-indent-function 2))
|
2019-09-14 15:54:06 +00:00
|
|
|
(eval . (put 'with-temporary-git-repository 'scheme-indent-function 2))
|
2020-10-10 04:33:32 +00:00
|
|
|
(eval . (put 'with-temporary-git-worktree 'scheme-indent-function 2))
|
2020-06-01 21:20:06 +00:00
|
|
|
(eval . (put 'with-environment-variables 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-fresh-gnupg-setup 'scheme-indent-function 1))
|
2017-11-22 13:39:26 +00:00
|
|
|
|
2020-06-06 21:17:02 +00:00
|
|
|
(eval . (put 'with-paginated-output-port 'scheme-indent-function 1))
|
|
|
|
|
gexp: Add 'ungexp-native' and 'ungexp-native-splicing'.
* guix/gexp.scm (<gexp>)[natives]: New field.
(write-gexp): Use both 'gexp-references' and
'gexp-native-references'.
(gexp->derivation): Use both 'gexp-inputs' and 'gexp-native-inputs',
and append them.
(gexp-inputs): Add 'references' parameter and honor it.
(gexp-native-inputs): New procedure.
(gexp->sexp)[reference->sexp]: Add 'native?' parameter and honor it.
Use it, and use 'gexp-native-references'.
(gexp)[collect-native-escapes]: New procedure.
[escape->ref]: Handle 'ungexp-native' and 'ungexp-native-splicing'.
[substitute-ungexp, substitute-ungexp-splicing]: New procedures.
[substitute-references]: Use them, and handle 'ungexp-native' and
'ungexp-native-splicing'.
Adjust generated 'make-gexp' call to provide both normal references
and native references.
[read-ungexp]: Support 'ungexp-native' and
'ungexp-native-splicing'.
Add reader extension for #+.
* tests/gexp.scm (gexp-native-inputs): New procedure.
(gexp->sexp*): Add 'target' parameter.
("ungexp + ungexp-native",
"input list + ungexp-native",
"input list splicing + ungexp-native-splicing",
"gexp->derivation, ungexp-native",
"gexp->derivation, ungexp + ungexp-native"): New tests.
("sugar"): Add tests for #+ and #+@.
* doc/guix.texi (G-Expressions): Document 'ungexp-native' et al.
2014-08-18 12:53:10 +00:00
|
|
|
;; This notably allows '(' in Paredit to not insert a space when the
|
|
|
|
;; preceding symbol is one of these.
|
2014-04-28 21:00:57 +00:00
|
|
|
(eval . (modify-syntax-entry ?~ "'"))
|
gexp: Add 'ungexp-native' and 'ungexp-native-splicing'.
* guix/gexp.scm (<gexp>)[natives]: New field.
(write-gexp): Use both 'gexp-references' and
'gexp-native-references'.
(gexp->derivation): Use both 'gexp-inputs' and 'gexp-native-inputs',
and append them.
(gexp-inputs): Add 'references' parameter and honor it.
(gexp-native-inputs): New procedure.
(gexp->sexp)[reference->sexp]: Add 'native?' parameter and honor it.
Use it, and use 'gexp-native-references'.
(gexp)[collect-native-escapes]: New procedure.
[escape->ref]: Handle 'ungexp-native' and 'ungexp-native-splicing'.
[substitute-ungexp, substitute-ungexp-splicing]: New procedures.
[substitute-references]: Use them, and handle 'ungexp-native' and
'ungexp-native-splicing'.
Adjust generated 'make-gexp' call to provide both normal references
and native references.
[read-ungexp]: Support 'ungexp-native' and
'ungexp-native-splicing'.
Add reader extension for #+.
* tests/gexp.scm (gexp-native-inputs): New procedure.
(gexp->sexp*): Add 'target' parameter.
("ungexp + ungexp-native",
"input list + ungexp-native",
"input list splicing + ungexp-native-splicing",
"gexp->derivation, ungexp-native",
"gexp->derivation, ungexp + ungexp-native"): New tests.
("sugar"): Add tests for #+ and #+@.
* doc/guix.texi (G-Expressions): Document 'ungexp-native' et al.
2014-08-18 12:53:10 +00:00
|
|
|
(eval . (modify-syntax-entry ?$ "'"))
|
|
|
|
(eval . (modify-syntax-entry ?+ "'"))))
|
distro: Add the `guile', `typesetting', and `databases' package modules.
* distro.scm (package-files): Adjust PREFIX-LEN to use the top-level
directory, not %DISTRO-MODULE-DIRECTORY.
* distro/packages/base.scm (guile-reader, guile-reader/guile-1.8,
guile-reader/guile-2.0, lout, recutils): Move to...
* distro/packages/guile.scm, distro/packages/typesetting.scm,
distro/packages/databases.scm: ... here. New files.
* Makefile.am (MODULES): Add them.
(EXTRA_DIST): Add `.dir-locals.el'.
* .dir-locals.el: New file, with settings formerly in `base.scm'.
2012-09-26 20:17:41 +00:00
|
|
|
(emacs-lisp-mode . ((indent-tabs-mode . nil)))
|
|
|
|
(texinfo-mode . ((indent-tabs-mode . nil)
|
|
|
|
(fill-column . 72))))
|