games: add sudoku

layers/+fun/games/README.org

@@ -8,6 +8,7 @@
  - [[#games-instructions][Games instructions]]
    - [[#2048][2048]]
    - [[#pacmacs][Pacmacs]]
+   - [[#sudoku][Sudoku]]
    - [[#tetris][Tetris]]
    - [[#typit][Typit]]
      - [[#create-a-new-dictionary][Create a new dictionary]]
@@ -18,6 +19,7 @@ This layer allows you to play evilified games in spacemacs.
 The games available now are:
 - 2048-game
 - Pacmacs (Pacman for Emacs)
+- Sudoku
 - Tetris
 - Typit
 
@@ -57,6 +59,20 @@ Possible helm actions:
 | ~l~         | Move right  |
 |             |             |
 
+** Sudoku
+
+| Key Bindings | Description  |
+| ~h~          | Move left    |
+| ~j~          | Move down    |
+| ~k~          | Move up      |
+| ~l~          | Move right   |
+| ~1 ... 9~    | Insert value |
+| ~0~          | Remove value |
+| ~N~          | New puzzle   |
+| ~, h~        | Hint         |
+| ~, s~        | Save puzzle  |
+| ~, l~        | Load puzzle  |
+
 ** Tetris
 
 | Key Binding | Description                    |

layers/+fun/games/packages.el

@@ -16,6 +16,7 @@
                     :toggle (configuration-layer/package-usedp 'helm))
         pacmacs
         (tetris :location built-in)
+        sudoku
         typit
         ))
 
@@ -72,6 +73,52 @@
         "l" 'tetris-move-right
         "q" 'spacemacs/tetris-quit-game))))
 
+(defun games/init-sudoku ()
+  (use-package sudoku
+    :defer t
+    :init
+    (progn
+      (push '("sudoku" . (sudoku :quit (kill-buffer-ask (get-buffer "*Sudoku*"))
+                                 :reset sudoku-restart)) helm-games-list)
+      (evilified-state-evilify sudoku-mode sudoku-mode-map
+        ;; Movement
+        "j" 'sudoku-move-point-down
+        "J" 'sudoku-move-point-downmost
+        "k" 'sudoku-move-point-up
+        "K" 'sudoku-move-point-upmost
+        "h" 'sudoku-move-point-left
+        "H" 'sudoku-move-point-leftmost
+        "l" 'sudoku-move-point-right
+        "L" 'sudoku-move-point-rightmost
+
+        ;; Start/quit/print game
+        "N" 'sudoku
+        "q" 'sudoku-quit
+        "Q" 'sudoku-quit-immediately
+        "P" 'sudoku-print
+
+        ;; Undo/redo
+        "u"    'sudoku-undo
+        "\C-r" 'sudoku-redo
+
+        ;; Inserting values
+        "1" 'sudoku-change-point
+        "2" 'sudoku-change-point
+        "3" 'sudoku-change-point
+        "4" 'sudoku-change-point
+        "5" 'sudoku-change-point
+        "6" 'sudoku-change-point
+        "7" 'sudoku-change-point
+        "8" 'sudoku-change-point
+        "9" 'sudoku-change-point)
+
+      (spacemacs/set-leader-keys-for-major-mode 'sudoku-mode
+        "c" 'sudoku-comment-puzzle
+        "h" 'sudoku-hint
+        "l" 'sudoku-load-puzzle
+        "L" 'sudoku-load-puzzle-collection
+        "s" 'sudoku-save-puzzle))))
+
 (defun games/init-typit ()
   (use-package typit
     :defer t