2048: cheat on the package name because types are broken
This commit is contained in:
parent
c4b9733f18
commit
064330b84d
12
lisp/2048.el
12
lisp/2048.el
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user