+(defun pico8-gff-eldoc ()
+ "Show information about the flag under the point."
+ (save-excursion
+ (when (cl-oddp (current-column))
+ (backward-char))
+ (when (looking-at "..")
+ (let* ((hex (substring-no-properties (match-string 0)))
+ (int (string-to-number hex 16)))
+ (format "%08d %3d %02x"
+ (let ((calc-number-radix 2))
+ (string-to-number (math-format-radix int)))
+ int int)))))
+
+(defconst pico8-gff-font-lock-keywords
+ '(("..\n?" 0
+ (prog1 nil
+ ;; TODO: Lots of work to do here…
+ (let ((pdl (or (car (overlays-at (match-beginning 0)))
+ (make-overlay (match-beginning 0) (match-end 0)))))
+ (overlay-put pdl 'after-string " "))))))
+
+