67 lines
2.1 KiB
EmacsLisp
67 lines
2.1 KiB
EmacsLisp
|
;;; elm-format.el --- Automatically format an Elm buffer.
|
||
|
|
|
||
|
|
;; Copyright (C) 2015 Bogdan Popa
|
||
|
|
|
||
|
|
;; Author: Bogdan Popa
|
||
|
|
;; URL: https://github.com/jcollard/elm-mode
|
||
|
|
|
||
|
|
;; This file is not part of GNU Emacs.
|
||
|
|
|
||
|
|
;; This file is free software; you can redistribute it and/or modify
|
||
|
|
;; it under the terms of the GNU General Public License as published by
|
||
|
|
;; the Free Software Foundation; either version 3, or (at your option)
|
||
|
|
;; any later version.
|
||
|
|
|
||
|
|
;; This file is distributed in the hope that it will be useful,
|
||
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
;; GNU General Public License for more details.
|
||
|
|
|
||
|
|
;; You should have received a copy of the GNU General Public License
|
||
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(require 'reformatter)
|
||
|
|
|
||
|
|
(defcustom elm-format-on-save nil
|
||
|
|
"When non-nil, run `elm-format-buffer' on save.
|
||
|
|
|
||
|
|
This variable is obsolete, and you should prefer to enable
|
||
|
|
`elm-format-on-save-mode' by adding it to your `elm-mode-hook',
|
||
|
|
or by placing a clause like the following in the .dir-locals.el
|
||
|
|
for your project:
|
||
|
|
|
||
|
|
((elm-mode (mode . elm-format-on-save)))"
|
||
|
|
:group 'elm-format
|
||
|
|
:type 'boolean)
|
||
|
|
|
||
|
|
(defcustom elm-format-elm-version "0.19"
|
||
|
|
"The version of Elm against which code should be formatted."
|
||
|
|
:group 'elm-format
|
||
|
|
:type '(choice (const :tag "Default: 0.19" "0.19")
|
||
|
|
(const :tag "0.18" "0.18")
|
||
|
|
(const :tag "0.17" "0.17")
|
||
|
|
(const :tag "0.16" "0.16")))
|
||
|
|
|
||
|
|
(defcustom elm-format-command "elm-format"
|
||
|
|
"The name of the `elm-format' command."
|
||
|
|
:group 'elm-format
|
||
|
|
:type 'string)
|
||
|
|
|
||
|
|
;;;###autoload (autoload 'elm-format-buffer "elm-format" nil t)
|
||
|
|
;;;###autoload (autoload 'elm-format-on-save-mode "elm-format" nil t)
|
||
|
|
(reformatter-define elm-format
|
||
|
|
:program elm-format-command
|
||
|
|
:args (list "--stdin" "--elm-version" elm-format-elm-version "--yes")
|
||
|
|
:group 'elm-format
|
||
|
|
:lighter " ElmFmt")
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(define-obsolete-function-alias 'elm-mode-format-buffer 'elm-format-buffer "20190113")
|
||
|
|
|
||
|
|
|
||
|
|
(provide 'elm-format)
|
||
|
|
;;; elm-format.el ends here
|