From 064330b84df0b5af1f63584d66ae9aea090617a9 Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Sun, 15 Jan 2023 20:05:05 -0900 Subject: [PATCH] 2048: cheat on the package name because types are broken --- lisp/2048.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/2048.el b/lisp/2048.el index 1d332f6..7879f3c 100644 --- a/lisp/2048.el +++ b/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