gcentauri

(xah-fly--define-keys
   (define-prefix-command 'xah-fly-elscreen-key-map)
   '(                                      ; qwerty
     ("j" . elscreen-create)               ; c
     ("t" . elscreen-kill)                 ; k
     ("b" . elscreen-next)                 ; n
     ("l" . elscreen-previous)             ; p
     ("p" . elscreen-screen-nickname)      ; r
     ))
     

gcentauri

(defun xah-fly-command-mode-init ()
  "Set command mode keys.
Version 2017-01-21"
  (interactive)
  (xah-fly--define-keys
   xah-fly-key-map
   '(
     ("~" . nil)
     (":" . nil)

gcentauri

(defun my-command-mode ()
  (define-key xah-fly-key-map (kbd "p") nil)
;;  (define-key xah-fly-key-map ...)
;;  ...
  ) 

(add-hook 'xah-fly-command-mode-activate-hook 'my-command-mode)

gcentauri

import Html exposing (Html, button, div, text)
import Html.Events exposing (onClick)
import Game exposing (..)
import Game.Lenses exposing(..)

main =
  Html.beginnerProgram { model = game, view = view, update = update }

type Msg = UpdateGame

gcentauri

;; -*- mode: emacs-lisp; lexical-binding: t -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.

(defun dotspacemacs/layers ()
  "Layer configuration:
This function should only modify configuration layer settings."
  (setq-default
   ;; Base distribution to use. This is a layer contained in the directory
   ;; `+distribution'. For now available distributions are `spacemacs-base'

gcentauri

  (use-package xah-fly-keys
    :diminish (xah-fly-keys . "∑")
    :init
    (setq xah-fly-use-control-key nil)
    (defun xfk-command-mode-on ()
      (global-hl-line-mode 1)
      (set-cursor-color "deep pink")
      (setq cursor-type 'box)
      )
    (defun xfk-insert-mode-on ()

gcentauri

;; -*- mode: emacs-lisp -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.

(defun dotspacemacs/layers ()
  "Configuration Layers declaration.
You should not put any user code in this function besides modifying the variable
values."
  (setq-default
   ;; Base distribution to use. This is a layer contained in the directory

gcentauri

;; -*- mode: emacs-lisp -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.

(defun dotspacemacs/layers ()
  "Configuration Layers declaration.
You should not put any user code in this function besides modifying the variable
values."
  (setq-default
   ;; Base distribution to use. This is a layer contained in the directory

gcentauri

;; -*- mode: emacs-lisp; lexical-binding: t -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.

(defun dotspacemacs/layers ()
  "Layer configuration:
This function should only modify configuration layer settings."
  (setq-default
   ;; Base distribution to use. This is a layer contained in the directory
   ;; `+distribution'. For now available distributions are `spacemacs-base'

gcentauri

(setq *PlayerHealth NIL)
(setq *PlayerAgility NIL)
(setq *PlayerStrength NIL)

(setq *Monsters NIL)
(setq *MonsterBuilders NIL)
(setq *MonsterNum 6)

(de main ()
   (init-monsters)