spacemacs/layers/+fun/games/extensions.el
justbur 6eab954afe Use + instead of ! for layer categories
Helm seems to treat "!" specially in pattern matching, so having a ! in
the pattern string when traversing directories is problematic. This
change fixes #2737, because as far as I can tell "+" has no special
meaning in a helm pattern.

Of course, we can choose a different character, but I'm fond of "+" as
representing "more layers here".
2015-09-11 00:13:51 -04:00

51 lines
1.5 KiB
EmacsLisp

;;; extensions.el --- Games Layer Extensions File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(setq games-post-extensions
'(
emacs-builtin-tetris
helm-games
))
(defun games/init-emacs-builtin-tetris ()
(use-package tetris
:defer t
:init
(progn
(push '("Tetris" . (tetris :quit spacemacs/tetris-quit-game
:reset tetris-start-game)) helm-games-list)
(setq tetris-score-file (concat spacemacs-games-cache-directory
"tetris-scores.txt"))
(defun spacemacs/tetris-quit-game ()
"Correctly quit tetris by killng the game buffer."
(interactive)
(tetris-pause-game)
(if (yes-or-no-p "Do you really want to quit ? ")
(progn
(tetris-end-game)
(kill-buffer "*Tetris*"))
(tetris-pause-game))))
:config
(progn
(evilify tetris-mode tetris-mode-map
"h" 'tetris-move-left
"i" 'tetris-rotate-prev
"j" 'tetris-move-bottom
"k" 'tetris-rotate-next
"l" 'tetris-move-right
"q" 'spacemacs/tetris-quit-game))))
(defun games/init-helm-games ()
(use-package helm-games
:commands helm-games
:init (evil-leader/set-key "aG" 'helm-games)))