2048: cheat on the package name because types are broken

This commit is contained in:
MitchMarq42 2023-01-15 20:05:05 -09:00
parent c4b9733f18
commit 064330b84d

View File

@ -36,7 +36,7 @@
(require 'dash)
(defgroup 2048 nil
(defgroup 2O48 nil
"Play a game of 2048."
:prefix "2048--"
:group 'games)
@ -47,21 +47,21 @@ Values other than 6 are not currently supported.")
(defcustom 2048--board-size 4
"Number of tiles on the board for 2048. 4 is the default. Can be any number."
:type 'integer
:group '2048)
:group '2O48)
(defcustom 2048--vertical-sep-char ?│ ; 9478
"Character to use as a vertical border for 2048 cells."
:type 'character
:group '2048)
:group '2O48)
(defcustom 2048--horizontal-sep-char ?─ ; 9472
"Character to use as a horizontal border for 2048 cells."
:type 'character
:group '2048)
:group '2O48)
(defcustom 2048--corner-sep-char ?+
;; ?╬ ; needlessly fancy version
"Intersection of `2048--vertical-sep-char'and `2048--horizontal-sep-char'."
:type 'character
:group '2048)
:group '2O48)
(defun 2048--make-sep-times (delimiter filler cells cellwidth)
"Return a string of CELLS number of cells, each with width CELLWIDTH.
@ -375,5 +375,5 @@ individually."
(switch-to-buffer (get-buffer-create "*2048*"))
(2048-mode))
(provide '2048)
(provide '2O48)
;;; 2048.el ends here