mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2048: cheat on the package name because types are broken

Browse Source
This commit is contained in:
MitchMarq42 2023-01-15 20:05:05 -09:00
parent c4b9733f18
commit 064330b84d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/2048.el
View File

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