42 lines
1.1 KiB
EmacsLisp
42 lines
1.1 KiB
EmacsLisp
|
;; -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
(defun roguelike-evil-insert ()
|
||
|
|
(interactive)
|
||
|
|
(vterm-reset-cursor-point)
|
||
|
|
(call-interactively #'evil-insert))
|
||
|
|
|
||
|
|
(defun roguelike-buffer-setup ()
|
||
|
|
(setq-local cursor-type 'box
|
||
|
|
blink-cursor-mode nil
|
||
|
|
evil-insert-state-cursor 'box
|
||
|
|
evil-normal-state-cursor 'hollow
|
||
|
|
evil-motion-state-cursor 'hollow
|
||
|
|
left-fringe-width 0
|
||
|
|
right-fringe-width 0)
|
||
|
|
(evil-local-set-key 'normal (kbd "i") #'roguelike-evil-insert))
|
||
|
|
|
||
|
|
(defun play-roguelike (exe)
|
||
|
|
(unless (executable-find exe)
|
||
|
|
(user-error "%s is not installed" exe))
|
||
|
|
(let ((buffer (format "*%s*" exe)))
|
||
|
|
(when (get-buffer buffer)
|
||
|
|
(kill-buffer buffer))
|
||
|
|
(vterm buffer)
|
||
|
|
(with-current-buffer buffer
|
||
|
|
(roguelike-buffer-setup)
|
||
|
|
(vterm-send-string (format "%s; exit" exe))
|
||
|
|
(vterm-send-return))
|
||
|
|
(switch-to-buffer buffer)))
|
||
|
|
|
||
|
|
(defun nethack ()
|
||
|
|
(interactive)
|
||
|
|
(play-roguelike "nethack"))
|
||
|
|
|
||
|
|
(defvar crawl-executable (expand-file-name "~/crawl/crawl-ref/source/crawl"))
|
||
|
|
|
||
|
|
(defun crawl ()
|
||
|
|
(interactive)
|
||
|
|
(play-roguelike crawl-executable))
|
||
|
|
|
||
|
|
(provide 'init-games)
|