X-Git-Url: https://git.korewanetadesu.com/?p=pico8.git;a=blobdiff_plain;f=pico8.el;h=0bb0d19ef63651a2e7f9ccf17b56e14ad3cc8d15;hp=95fcd2036190d7ef2daeba073c5a53f2f3361652;hb=73187a92264b01f75c3aa713490a3591743f0409;hpb=8f8b10d094b14dc6b5fc8cf105a5ae456b02d42e;ds=sidebyside diff --git a/pico8.el b/pico8.el index 95fcd20..0bb0d19 100644 --- a/pico8.el +++ b/pico8.el @@ -2,20 +2,20 @@ ;; ;; Author: Joe Wreschnig ;; Package-Version: 20170620 -;; Package-Requires: ((emacs "25") (polymode "20170307") (lua-mode "20151025")) +;; Package-Requires: ((emacs "25") (polymode "20170307") (lua-mode "20151025") (dash "2.12.0")) ;; 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. @@ -24,6 +24,7 @@ (require 'polymode) (require 'lua-mode) (require 'thingatpt) +(require 'dash) (defgroup pico8 nil @@ -31,11 +32,6 @@ :tag "PICO-8" :group 'languages) -(defgroup pico8-faces nil - "Faces for PICO-8 (.p8) cartridge files." - :tag "PICO-8 Faces" - :group 'pico8) - (defcustom pico8-executable-paths '("/Applications/PICO-8.app/Contents/MacOS/pico8" ; macOS "/usr/lib/pico8/pico8" ; PocketCHIP @@ -50,8 +46,8 @@ 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) @@ -59,8 +55,8 @@ disabled by setting this to t." (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 @@ -88,10 +84,9 @@ where the convention is 1." (defconst pico8-data-characters (append "0123456789abcdef" nil)) -(defface pico8-data-face +(defface pico8-data '((t (:inherit fixed-pitch))) - "Face for PICO-8 binary data." - :group 'pico8-faces) + "Face for PICO-8 binary data.") (define-derived-mode pico8-data-mode fundamental-mode "PICO-8 Data" @@ -130,7 +125,7 @@ widened if necessary to reach it." "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." @@ -271,48 +266,22 @@ Make sure it is installed, and present in `pico8-executable-paths'"))) (error "Valid flag numbers are 0 to 255, inclusive")) (+ (* 2 flag) (if (> flag 128) 1 0))) -(defgroup pico8-pixel-faces nil - "Font faces to use for PICO-8 pixels. - -Rather than customizing each directly, you'll probably just want -to change `pico8-pixel-face'." - :tag "PICO-8 Pixel Faces" - :group 'pico8-faces) - -(defface pico8-pixel-face - '((t (:inherit pico8-data-face :height 100))) - "Face for PICO-8 sprite 'pixels'." - :group 'pico8-faces) - -(dotimes (i (length pico8-colors)) - (let ((c (nth i pico8-colors))) - (eval `(defface ,(intern (format "pico8-pixel-%x" i)) - '((t (:inherit pico8-pixel-face :foreground ,c))) - ,(format "Face for PICO-8 sprite 'pixel' %x" i) - :group 'pico8-pixel-faces - :tag ,(format "Face for PICO-8 sprite 'pixel' %x." i))))) +(defface pico8-pixel + '((t (:inherit pico8-data :height 100))) + "Face for PICO-8 sprite “pixels.”" + :group 'pico8) (defconst pico8-gfx-font-lock-keywords - `(("0+" . 'pico8-pixel-0) - ("1+" . 'pico8-pixel-1) - ("2+" . 'pico8-pixel-2) - ("3+" . 'pico8-pixel-3) - ("4+" . 'pico8-pixel-4) - ("5+" . 'pico8-pixel-5) - ("6+" . 'pico8-pixel-6) - ("7+" . 'pico8-pixel-7) - ("8+" . 'pico8-pixel-8) - ("9+" . 'pico8-pixel-9) - ("a+" . 'pico8-pixel-a) - ("b+" . 'pico8-pixel-b) - ("c+" . 'pico8-pixel-c) - ("d+" . 'pico8-pixel-d) - ("e+" . 'pico8-pixel-e) - ("f+" . 'pico8-pixel-f) - - ;; If the \n isn't in the smaller face the line is taller to - ;; accommodate the full sized point at the end-of-line. - ("\n" . 'pico8-pixel-0))) + (cons + ;; If the \n isn't in the smaller face the line is taller to + ;; accommodate the full sized point at the end-of-line. + '("\n" . 'pico8-pixel) + (-map-indexed + (lambda (i c) + `(,(format "%x+" i) + 0 '(face (:inherit pico8-pixel :foreground ,c)))) + pico8-colors))) + (defun pico8-gfx-current-position () "Calculate the sprite and in-sprite position of the cursor." @@ -370,14 +339,14 @@ to change `pico8-pixel-face'." (define-key pico8-gfx-mode-map "q" 'pico8-backward-sprite) (define-key pico8-gfx-mode-map "w" 'pico8-forward-sprite) -(defface pico8-map-tile-face - '((t (:inherit pico8-data-face :height 100))) +(defface pico8-map-tile + '((t (:inherit pico8-data :height 100))) "Face for PICO-8 map 'tiles'." :group 'pico8-faces) (defconst pico8-map-font-lock-keywords - '(("[0-9a-f]+" . 'pico8-map-tile-face) - ("\n" . 'pico8-map-tile-face))) + '(("[0-9a-f]+" . 'pico8-map-tile) + ("\n" . 'pico8-map-tile))) (defun pico8-map-lighter () "Calculate the map tile under the cursor." @@ -442,8 +411,8 @@ Returns nil, not 0, if the string was not converted." "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)) @@ -465,8 +434,8 @@ this is the numeric literal in the code." "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) @@ -535,7 +504,7 @@ This function needs a lot of work.." (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 @@ -547,7 +516,7 @@ See URL `http://www.lua.org/'." (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 @@ -564,7 +533,7 @@ See URL `https://github.com/mpeterv/luacheck'." (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)) @@ -614,3 +583,7 @@ See URL `https://github.com/mpeterv/luacheck'." (provide 'pico8) ;;; pico8.el ends here + +;; Local Variables: +;; sentence-end-double-space: t +;; End: