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
|
|
|
|
2023-09-12 02:31:56 +00:00
|
|
|
;; For use with 'bug-reference-prog-mode'. Extra bug-reference
|
|
|
|
;; configuration should be done in your Emacs user configuration file;
|
|
|
|
;; refer to (info (guix) The Perfect Setup).
|
2014-10-10 16:19:43 +00:00
|
|
|
(bug-reference-bug-regexp
|
2022-06-07 16:14:52 +00:00
|
|
|
. "\\(<https?://\\bugs\\.gnu\\.org/\\([0-9]+\\)>\\)")
|
2023-09-12 02:31:56 +00:00
|
|
|
(bug-reference-url-format . "https://issues.guix.gnu.org/%s")
|
2020-10-25 18:10:15 +00:00
|
|
|
|
2022-09-05 06:13:48 +00:00
|
|
|
(eval . (add-to-list 'completion-ignored-extensions ".go"))
|
|
|
|
|
2020-10-25 18:10:15 +00:00
|
|
|
;; Emacs-Guix
|
2020-11-16 18:06:27 +00:00
|
|
|
(eval . (setq-local guix-directory
|
|
|
|
(locate-dominating-file default-directory
|
|
|
|
".dir-locals.el")))
|
2022-09-07 06:19:17 +00:00
|
|
|
|
2022-08-03 14:51:48 +00:00
|
|
|
;; YASnippet
|
|
|
|
(eval . (with-eval-after-load
|
|
|
|
'yasnippet
|
|
|
|
(let ((guix-yasnippets
|
|
|
|
(expand-file-name
|
2022-09-07 06:19:17 +00:00
|
|
|
"etc/snippets/yas"
|
2022-08-03 14:51:48 +00:00
|
|
|
(locate-dominating-file default-directory
|
|
|
|
".dir-locals.el"))))
|
|
|
|
(unless (member guix-yasnippets yas-snippet-dirs)
|
|
|
|
(add-to-list 'yas-snippet-dirs guix-yasnippets)
|
|
|
|
(yas-reload-all)))))
|
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).
|
2023-09-06 17:57:49 +00:00
|
|
|
(geiser-repl-per-project-p . t)))
|
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))
|
2023-02-02 19:13:36 +00:00
|
|
|
(eval . (put 'test-assertm 'scheme-indent-function 2))
|
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))
|
2022-03-03 20:40:21 +00:00
|
|
|
(eval . (put 'call-with-port 'scheme-indent-function 1))
|
2013-02-01 11:48:02 +00:00
|
|
|
(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))
|
2023-04-28 19:19:04 +00:00
|
|
|
(eval . (put 'match-record 'scheme-indent-function 3))
|
2023-04-28 19:19:05 +00:00
|
|
|
(eval . (put 'match-record-lambda 'scheme-indent-function 2))
|
2017-04-28 12:53:51 +00:00
|
|
|
|
2023-02-16 21:34:58 +00:00
|
|
|
;; TODO: Contribute these to Emacs' scheme-mode.
|
|
|
|
(eval . (put 'let-keywords 'scheme-indent-function 3))
|
|
|
|
|
2021-06-16 21:52:42 +00:00
|
|
|
;; 'modify-inputs' and its keywords.
|
|
|
|
(eval . (put 'modify-inputs 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'replace 'scheme-indent-function 1))
|
|
|
|
|
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))
|
2022-07-10 10:39:44 +00:00
|
|
|
(eval . (put 'mparameterize '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))
|
2022-06-28 04:37:34 +00:00
|
|
|
(eval . (put 'wrap-script '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))
|
build-system: Rewrite using gexps.
* guix/packages.scm (expand-input): Remove 'store', 'system', and
'cross-system' parameters; add #:native?. Rewrite to return
name/gexp-input tuples.
(bag->derivation): Adjust accordingly. Lower (bag-build bag).
(bag->cross-derivation): Ditto. Instead of #:native-drvs and
#:target-drvs, pass #:build-inputs, #:host-inputs, and #:target-inputs.
(%derivation-cache): Remove.
* gnu/packages/bootstrap.scm (raw-build): Turn into a monadic procedure.
* gnu/packages/commencement.scm (glibc-final)[arguments]: Use
'gexp-input' for the #:allowed-references argument.
* guix/build-system/cmake.scm (cmake-build): Remove 'store' parameter.
Switch to the use of gexps and 'gexp->derivation'.
(lower): Remove #:source from 'private-keywords'.
* guix/build-system/glib-or-gtk.scm (glib-or-gtk-build, lower):
Likewise.
* guix/build-system/font.scm (font-build): Likewise.
* guix/build-system/gnu.scm (gnu-build): Likewise, and remove
'canonicalize-reference'.
(gnu-cross-build): Likewise, and expect #:build-inputs, #:host-inputs,
and #:target-inputs instead of #:native-drvs and #:target-drvs.
(lower): Likewise.
* guix/build-system/perl.scm (perl-build, lower): Likewise.
* guix/build-system/python.scm (python-build, lower): Likewise.
* guix/build-system/ruby.scm (ruby-build, lower): Likewise.
* guix/build-system/waf.scm (waf-build, lower): Likewise.
* guix/build-system/trivial.scm (guile-for-build): Remove.
(trivial-build): Remove 'store' parameter, change to gexps.
(trivial-cross-build): Ditto, and change to #:build-inputs & co.
* guix/build-system/cargo.scm (cargo-build): Change to 'gexp->derivation'.
* guix/build-system/copy.scm (copy-build): Likewise.
* guix/build-system/dune.scm (dune-build): Likewise.
* guix/build-system/guile.scm (guile-build, guile-cross-build):
Likewise.
* guix/build-system/meson.scm (meson-build): Likewise.
* guix/build-system/ocaml.scm (ocaml-build): Likewise.
* guix/build-system/scons.scm (scons-build): Likewise.
* guix/build-system/texlive.scm (texlive-build): Likewise.
* guix/build-system/android-ndk.scm (android-ndk-build): Likewise.
* guix/build-system/ant.scm (ant-build): Likewise.
* guix/build-system/asdf.scm (asdf-build/source, asdf-build): Likewise.
* guix/build-system/chicken.scm (chicken-build): Likewise.
* guix/build-system/clojure.scm (clojure-build): Likewise.
(source->output-path, maybe-guile->guile): Remove.
* guix/build-system/dub.scm (dub-build): Likewise.
* guix/build-system/emacs.scm (emacs-build): Likewise.
* guix/build-system/go.scm (go-build): Likewise.
* guix/build-system/haskell.scm (haskell-build): Likewise.
* guix/build-system/julia.scm (julia-build): Likewise.
* guix/build-system/linux-module.scm (linux-module-build)
(linux-module-build-cross): Likewise.
* guix/build-system/maven.scm (maven-build): Likewise.
* guix/build-system/minify.scm (minify-build): Likewise.
* guix/build-system/node.scm (node-build): Likewise.
* guix/build-system/qt.scm (qt-build, qt-cross-build): Likewise.
* guix/build-system/r.scm (r-build): Likewise.
* guix/build-system/rakudo.scm (rakudo-build): Likewise.
* guix/build-system/renpy.scm (renpy-build): Likewise.
* tests/builders.scm ("gnu-build"): Call 'store-lower' on 'gnu-build'.
Pass #:source parameter.
* tests/packages.scm ("search paths"): Use 'abort-to-prompt' instead of
a normal return from the 'build' method.
("package->bag, sensitivity to %current-target-system"): Change 'build'
to match the new build system signature.
squash! build-system: Rewrite using gexps.
squash! build-system: Rewrite using gexps.
2015-03-28 18:26:39 +00:00
|
|
|
(eval . (put 'with-build-variables 'scheme-indent-function 2))
|
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-12-11 11:36:52 +00:00
|
|
|
(eval . (put 'call-with-database 'scheme-indent-function 1))
|
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-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))
|
|
|
|
|
2021-05-28 12:05:02 +00:00
|
|
|
(eval . (put 'with-shepherd-action 'scheme-indent-function 3))
|
|
|
|
|
2022-03-06 17:14:51 +00:00
|
|
|
(eval . (put 'with-http-server '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 ?$ "'"))
|
2022-07-09 03:29:52 +00:00
|
|
|
(eval . (modify-syntax-entry ?+ "'"))
|
|
|
|
|
|
|
|
;; Emacs 28 changed the behavior of 'lisp-fill-paragraph', which causes the
|
|
|
|
;; first line of package descriptions to extrude past 'fill-column', and
|
|
|
|
;; somehow that is deemed more correct upstream (see:
|
|
|
|
;; https://issues.guix.gnu.org/56197).
|
|
|
|
(eval . (progn
|
|
|
|
(require 'lisp-mode)
|
|
|
|
(defun emacs27-lisp-fill-paragraph (&optional justify)
|
|
|
|
(interactive "P")
|
|
|
|
(or (fill-comment-paragraph justify)
|
|
|
|
(let ((paragraph-start
|
|
|
|
(concat paragraph-start
|
|
|
|
"\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
|
|
|
|
(paragraph-separate
|
|
|
|
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
|
|
|
|
(fill-column (if (and (integerp emacs-lisp-docstring-fill-column)
|
|
|
|
(derived-mode-p 'emacs-lisp-mode))
|
|
|
|
emacs-lisp-docstring-fill-column
|
|
|
|
fill-column)))
|
|
|
|
(fill-paragraph justify))
|
|
|
|
;; Never return nil.
|
|
|
|
t))
|
|
|
|
(setq-local fill-paragraph-function #'emacs27-lisp-fill-paragraph)))))
|
|
|
|
|
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))))
|