projects/guix·blob version-1.3.0 · refs

117 lines · 3.5 KiB

1:;exec emacs --batch --quick --load="$0" --funcall=main "$@"
2;;; indent-code.el --- Run Emacs to indent a package definition.
3
4;; Copyright © 2017 Alex Kost <[email protected]>
5;; Copyright © 2017 Ludovic Courtès <[email protected]>
6;; Copyright © 2020 Maxim Cournoyer <[email protected]>
7;; Copyright © 2020 Tobias Geerinckx-Rice <[email protected]>
8
9;; This file is part of GNU Guix.
10
11;; GNU Guix is free software; you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by
13;; the Free Software Foundation, either version 3 of the License, or
14;; (at your option) any later version.
15
16;; GNU Guix is distributed in the hope that it will be useful,
17;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19;; GNU General Public License for more details.
20
21;; You should have received a copy of the GNU General Public License
22;; along with this program. If not, see <http://www.gnu.org/licenses/>.
23
24;;; Commentary:
25
26;; This scripts indents the given file or package definition in the specified
27;; file using Emacs.
28
29;;; Code:
30
31;; Load Scheme indentation rules from ".dir-locals.el".
32(with-temp-buffer
33 (scheme-mode)
34 (let ((default-directory (file-name-as-directory load-file-name))
35 (enable-local-variables :all))
36 (hack-dir-local-variables)
37 (hack-local-variables-apply)))
38
39;; Add indentation info for Scheme constructs that are not Guix-specific.
40;; This is normally provided by Geiser but this file is for people who may not
41;; be running Geiser, so we just copy it here (from 'geiser-syntax.el').
42(defmacro guix-syntax--scheme-indent (&rest pairs)
43 `(progn ,@(mapcar (lambda (p)
44 `(put ',(car p) 'scheme-indent-function ',(cadr p)))
45 pairs)))
46
47(guix-syntax--scheme-indent
48 (and-let* 1)
49 (case-lambda 0)
50 (catch defun)
51 (class defun)
52 (dynamic-wind 0)
53 (guard 1)
54 (let*-values 1)
55 (let-values 1)
56 (let/ec 1)
57 (letrec* 1)
58 (match 1)
59 (match-lambda 0)
60 (match-lambda* 0)
61 (match-let scheme-let-indent)
62 (match-let* 1)
63 (match-letrec 1)
64 (opt-lambda 1)
65 (parameterize 1)
66 (parameterize* 1)
67 (receive 2)
68 (require-extension 0)
69 (syntax-case 2)
70 (test-approximate 1)
71 (test-assert 1)
72 (test-eq 1)
73 (test-equal 1)
74 (test-eqv 1)
75 (test-group-with-cleanup 1)
76 (test-runner-on-bad-count! 1)
77 (test-runner-on-bad-end-name! 1)
78 (test-runner-on-final! 1)
79 (test-runner-on-group-begin! 1)
80 (test-runner-on-group-end! 1)
81 (test-runner-on-test-begin! 1)
82 (test-runner-on-test-end! 1)
83 (test-with-runner 1)
84 (unless 1)
85 (when 1)
86 (while 1)
87 (with-exception-handler 1)
88 (with-syntax 1))
89
90
91(defun main ()
92 (pcase command-line-args-left
93 (`(,file-name ,package-name)
94 ;; Indent the definition of PACKAGE-NAME in FILE-NAME.
95 (find-file file-name)
96 (goto-char (point-min))
97 (if (re-search-forward (concat "^(define\\(\\|-public\\) +"
98 package-name)
99 nil t)
100 (let ((indent-tabs-mode nil))
101 (beginning-of-defun)
102 (indent-sexp)
103 (save-buffer)
104 (message "Done!"))
105 (error "Package '%s' not found in '%s'"
106 package-name file-name)))
107 (`(,file-name)
108 ;; Indent all of FILE-NAME.
109 (find-file file-name)
110 (let ((indent-tabs-mode nil))
111 (indent-region (point-min) (point-max))
112 (save-buffer)
113 (message "Done!")))
114 (x
115 (error "Usage: indent-code.el FILE [PACKAGE]"))))
116
117;;; indent-code.el ends here