etc/indent-code.el

   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 <alezost@gmail.com>
   5 ;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org>
   6 ;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
   7 ;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
   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 \f
  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