From 7a845e4bbd061cd47552942e3eaf71798b56f4b5 Mon Sep 17 00:00:00 2001 From: MaxSt Date: Thu, 6 Dec 2018 12:15:55 +0100 Subject: [PATCH] Add tetris --- evil-collection-tetris.el | 56 +++++++++++++++++++++++++++++++++++++++ evil-collection.el | 1 + 2 files changed, 57 insertions(+) create mode 100644 evil-collection-tetris.el diff --git a/evil-collection-tetris.el b/evil-collection-tetris.el new file mode 100644 index 0000000..9583cea --- /dev/null +++ b/evil-collection-tetris.el @@ -0,0 +1,56 @@ +;;; evil-collection-tetris.el --- Bindings for `tetris' -*- lexical-binding: t -*- + +;; Copyright (C) 2018 James Nguyen + +;; Author: MaxSt +;; Maintainer: James Nguyen +;; Pierre Neidhardt +;; URL: https://github.com/emacs-evil/evil-collection +;; Version: 0.0.1 +;; Package-Requires: ((emacs "25.1")) +;; Keywords: evil, emacs, tools + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: +;; Bindings for `tetris'. + +;;; Code: +(require 'evil-collection) +(require 'tetris nil t) + +(defconst evil-collection-tetris-maps '(tetris-mode-map)) + +;;;###autoload +(defun evil-collection-tetris-setup () + "Set up `evil' bindings for `tetris'." + (evil-set-initial-state 'tetris-mode 'normal) + (evil-collection-define-key 'normal 'tetris-mode-map + "h" 'tetris-move-left + "l" 'tetris-move-right + "k" 'tetris-rotate-next + "K" 'tetris-rotate-prev + "j" 'tetris-move-down + "J" 'tetris-move-bottom + "G" 'tetris-move-bottom + "gr" 'tetris-start-game + (kbd "TAB") 'tetris-move-bottom + "p" 'tetris-pause-game + "q" 'quit-window + "ZQ" 'quit-window + "ZZ" 'tetris-end-game + (kbd "") 'quit-window)) + +(provide 'evil-collection-tetris) +;;; evil-collection-tetris.el ends here diff --git a/evil-collection.el b/evil-collection.el index 1c898da..09a21b7 100644 --- a/evil-collection.el +++ b/evil-collection.el @@ -185,6 +185,7 @@ See https://github.com/emacs-evil/evil-collection/issues/60 for more details.") simple slime (term term ansi-term multi-term) + tetris tide transmission typescript-mode