mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
22fa92cf28
While care does need to be taken with making updates or inserts to the
ValidPaths table, I think that trying to ensure this within update-or-insert
is the wrong approach. Instead, when working with the store database, only one
connection should be used to make changes to the database and those changes
should happen in transactions that ideally begin immediately.
This reverts commit 37545de4a3.
* .dir-locals.el (scheme-mode): Remove entries for call-with-savepoint and
call-with-retrying-savepoint.
* guix/store/database.scm (call-with-savepoint, call-with-retrying-savepoint):
Remove procedures.
(update-or-insert): Remove use of call-with-savepoint.
Change-Id: I2f986e8623d8235a90c40d5f219c1292c1ab157b
184 lines
8.9 KiB
EmacsLisp
184 lines
8.9 KiB
EmacsLisp
;; Per-directory local variables for GNU Emacs 23 and later.
|
|
|
|
((nil
|
|
. ((fill-column . 78)
|
|
(tab-width . 8)
|
|
(sentence-end-double-space . t)
|
|
|
|
;; 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).
|
|
(bug-reference-bug-regexp
|
|
. "\\(<https?://\\bugs\\.gnu\\.org/\\([0-9]+\\)>\\)")
|
|
(bug-reference-url-format . "https://issues.guix.gnu.org/%s")
|
|
|
|
(eval . (add-to-list 'completion-ignored-extensions ".go"))
|
|
|
|
;; Emacs-Guix
|
|
(eval . (setq-local guix-directory
|
|
(locate-dominating-file default-directory
|
|
".dir-locals.el")))
|
|
|
|
;; YASnippet
|
|
(eval . (with-eval-after-load
|
|
'yasnippet
|
|
(let ((guix-yasnippets
|
|
(expand-file-name
|
|
"etc/snippets/yas"
|
|
(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)))))
|
|
|
|
;; Geiser
|
|
;; This allows automatically setting the `geiser-guile-load-path'
|
|
;; variable when using various Guix checkouts (e.g., via git worktrees).
|
|
(geiser-repl-per-project-p . t)))
|
|
|
|
(c-mode . ((c-file-style . "gnu")))
|
|
(scheme-mode
|
|
.
|
|
((indent-tabs-mode . nil)
|
|
(eval . (put 'eval-when 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-prompt 'scheme-indent-function 1))
|
|
(eval . (put 'test-assert 'scheme-indent-function 1))
|
|
(eval . (put 'test-assertm 'scheme-indent-function 1))
|
|
(eval . (put 'test-equalm 'scheme-indent-function 1))
|
|
(eval . (put 'test-equal 'scheme-indent-function 1))
|
|
(eval . (put 'test-eq 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-input-string 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-port '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 'match-record 'scheme-indent-function 3))
|
|
(eval . (put 'match-record-lambda 'scheme-indent-function 2))
|
|
|
|
;; TODO: Contribute these to Emacs' scheme-mode.
|
|
(eval . (put 'let-keywords 'scheme-indent-function 3))
|
|
|
|
;; 'modify-inputs' and its keywords.
|
|
(eval . (put 'modify-inputs 'scheme-indent-function 1))
|
|
(eval . (put 'replace 'scheme-indent-function 1))
|
|
|
|
;; 'modify-phases' and its keywords.
|
|
(eval . (put 'modify-phases 'scheme-indent-function 1))
|
|
(eval . (put 'replace 'scheme-indent-function 1))
|
|
(eval . (put 'add-before 'scheme-indent-function 2))
|
|
(eval . (put 'add-after 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'modify-services 'scheme-indent-function 1))
|
|
(eval . (put 'with-directory-excursion 'scheme-indent-function 1))
|
|
(eval . (put 'with-file-lock 'scheme-indent-function 1))
|
|
(eval . (put 'with-file-lock/no-wait 'scheme-indent-function 1))
|
|
(eval . (put 'with-profile-lock 'scheme-indent-function 1))
|
|
(eval . (put 'with-writable-file 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'package 'scheme-indent-function 0))
|
|
(eval . (put 'package/inherit 'scheme-indent-function 1))
|
|
(eval . (put 'origin 'scheme-indent-function 0))
|
|
(eval . (put 'build-system 'scheme-indent-function 0))
|
|
(eval . (put 'bag 'scheme-indent-function 0))
|
|
(eval . (put 'graft 'scheme-indent-function 0))
|
|
(eval . (put 'operating-system 'scheme-indent-function 0))
|
|
(eval . (put 'file-system '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-store 'scheme-indent-function 1))
|
|
(eval . (put 'with-external-store 'scheme-indent-function 1))
|
|
(eval . (put 'with-error-handling 'scheme-indent-function 0))
|
|
(eval . (put 'with-mutex 'scheme-indent-function 1))
|
|
(eval . (put 'with-atomic-file-output 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-compressed-output-port 'scheme-indent-function 2))
|
|
(eval . (put 'call-with-decompressed-port 'scheme-indent-function 2))
|
|
(eval . (put 'call-with-gzip-input-port 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-gzip-output-port 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-lzip-input-port 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-lzip-output-port 'scheme-indent-function 1))
|
|
(eval . (put 'signature-case 'scheme-indent-function 1))
|
|
(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))
|
|
(eval . (put 'with-derivation-narinfo 'scheme-indent-function 1))
|
|
(eval . (put 'with-derivation-substitute 'scheme-indent-function 2))
|
|
(eval . (put 'with-status-report 'scheme-indent-function 1))
|
|
(eval . (put 'with-status-verbosity 'scheme-indent-function 1))
|
|
(eval . (put 'with-build-handler 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'mlambda 'scheme-indent-function 1))
|
|
(eval . (put 'mlambdaq 'scheme-indent-function 1))
|
|
(eval . (put 'syntax-parameterize 'scheme-indent-function 1))
|
|
(eval . (put 'with-monad 'scheme-indent-function 1))
|
|
(eval . (put 'mbegin 'scheme-indent-function 1))
|
|
(eval . (put 'mwhen 'scheme-indent-function 1))
|
|
(eval . (put 'munless 'scheme-indent-function 1))
|
|
(eval . (put 'mlet* 'scheme-indent-function 2))
|
|
(eval . (put 'mlet 'scheme-indent-function 2))
|
|
(eval . (put 'mparameterize 'scheme-indent-function 2))
|
|
(eval . (put 'run-with-store 'scheme-indent-function 1))
|
|
(eval . (put 'run-with-state 'scheme-indent-function 1))
|
|
(eval . (put 'wrap-program 'scheme-indent-function 1))
|
|
(eval . (put 'wrap-script 'scheme-indent-function 1))
|
|
(eval . (put 'with-imported-modules 'scheme-indent-function 1))
|
|
(eval . (put 'with-extensions 'scheme-indent-function 1))
|
|
(eval . (put 'with-parameters 'scheme-indent-function 1))
|
|
(eval . (put 'let-system 'scheme-indent-function 1))
|
|
(eval . (put 'with-build-variables 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'with-database 'scheme-indent-function 2))
|
|
(eval . (put 'call-with-database 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-transaction 'scheme-indent-function 1))
|
|
(eval . (put 'with-statement 'scheme-indent-function 3))
|
|
(eval . (put 'call-with-retrying-transaction 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-container 'scheme-indent-function 1))
|
|
(eval . (put 'container-excursion 'scheme-indent-function 1))
|
|
(eval . (put 'eventually 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-progress-reporter 'scheme-indent-function 1))
|
|
(eval . (put 'with-repository 'scheme-indent-function 2))
|
|
(eval . (put 'with-temporary-git-repository 'scheme-indent-function 2))
|
|
(eval . (put 'with-environment-variables 'scheme-indent-function 1))
|
|
(eval . (put 'with-fresh-gnupg-setup 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-paginated-output-port 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-shepherd-action 'scheme-indent-function 3))
|
|
|
|
(eval . (put 'with-http-server 'scheme-indent-function 1))
|
|
|
|
;; This notably allows '(' in Paredit to not insert a space when the
|
|
;; preceding symbol is one of these.
|
|
(eval . (modify-syntax-entry ?~ "'"))
|
|
(eval . (modify-syntax-entry ?$ "'"))
|
|
(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)))))
|
|
|
|
(emacs-lisp-mode . ((indent-tabs-mode . nil)))
|
|
(texinfo-mode . ((indent-tabs-mode . nil)
|
|
(fill-column . 72))))
|