;; URL: https://git.korewanetadesu.com/pico8.git
;; Keywords: convenience
;;
-;; This program 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
-;; of the License, or (at your option) any later version.
+;; This program 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 of the License, or (at
+;; your option) any later version.
;;; Commentary:
;;
-;; This mode (ab)uses polymode to fit six modes into one buffer, one
-;; of which is "real Lua" text and the other five of which have
-;; diverse strict formatting requirements.
+;; This mode (ab)uses polymode to fit six modes into one buffer, one of
+;; which is "real Lua" text and the other five of which have diverse
+;; strict formatting requirements.
;;
;; It provides keybindings and commands for inter-mode actions.
PICO-8 processes are long-lived with little surprising output, so
their output buffers are killed by default when they exit.
-However, this is not usual behavior in Emacs, and can be
-disabled by setting this to t."
+However, this is not usual behavior in Emacs, and can be disabled
+by setting this to t."
:group 'pico8
:tag "Preserve PICO-8 Output On Exit"
:type 'boolean)
(defcustom pico8-lua-indent-level 1
"Default indentation for PICO-8 Lua mode.
-This overrides `lua-indent-level' in `pico8-lua-mode'.
-`lua-mode''s default indentation is 3, which is both
+This overrides ‘lua-indent-level’ in ‘pico8-lua-mode’.
+‘lua-mode’ uses a default indentation is 3, which is both
idiosyncratic and quite large when viewed in the PICO-8 editor,
where the convention is 1."
:group 'pico8
"Look up the PICO-8 executable."
(or (car (delete nil (mapcar 'executable-find pico8-executable-paths)))
(error "The PICO-8 executable could not be found.
-Make sure it is installed, and present in `pico8-executable-paths'")))
+Make sure it is installed, and present in ‘pico8-executable-paths’")))
(defun pico8--create-output-buffer ()
"Create and return a buffer for PICO-8 output."
"Get the sprite number relevant to the point.
When editing a flag, this is the flag number. When editing a
-map, this is the value at the map. When editing Lua code,
-this is the numeric literal in the code."
+map, this is the value at the map. When editing Lua code, this
+is the numeric literal in the code."
(cond
((derived-mode-p 'pico8-gff-mode) (pico8-gff-current-position))
"Go to the sprite number relevant to the text at the point.
When editing a flag, this is the flag number. When editing a
-map, this is the value at the map. When editing Lua code,
-this is the numeric literal in the code."
+map, this is the value at the map. When editing Lua code, this
+is the numeric literal in the code."
(interactive)
(let ((sprite (pico8-sprite-relevant-to-point)))
(if sprite (pico8-goto-sprite sprite)
(flycheck-define-checker pico8-lua
"A PICO-8 Lua syntax checker using the Lua compiler.
-See URL `http://www.lua.org/'."
+See URL ‘http://www.lua.org/'."
:command ("luac" "-p" source)
:standard-input nil
:error-patterns
(flycheck-define-checker pico8-luacheck
"A PICO-8 Lua syntax checker using luacheck.
-See URL `https://github.com/mpeterv/luacheck'."
+See URL ‘https://github.com/mpeterv/luacheck’."
:command ("luacheck"
"--formatter" "plain"
"--codes" ; Show warning codes
(error line-start
(optional (file-name))
":" line ":" column ":"
- ;; `luacheck' before 0.11.0 did not output codes for errors, hence
+ ;; ‘luacheck’ before 0.11.0 did not output codes for errors, hence
;; the ID is optional here
(optional " (" (id "E" (one-or-more digit)) ") ")
(message) line-end))
(provide 'pico8)
;;; pico8.el ends here
+
+;; Local Variables:
+;; sentence-end-double-space: t
+;; End: