[Nethack-el-devel] colors, suppress-keymap

[Istvan Marko]

Ryan,

I just wanted to let you know that I got nethack-el working here,
great stuff!

The biggest thing I am missing is colors - I wasn't able to get colors
working in text mode (Haven't tried the glyph mode, never liked
tiles).  It seems that winlisp always sends '8' as the color of
everything on the display. From the *nethack-output* buffer:

(nethack-api-print-glyph 12 7 8 2363 848 46 )
(nethack-api-print-glyph 11 8 8 398 16 100 )
...
(nethack-api-print-glyph 34 17 8 2363 848 46 )
(nethack-api-print-glyph 35 17 8 339 346 64 )

I have OPTIONS=color in .nethackrc. Any clues?

Also, I added suppress-keymap to the keymap definitions. This has the
nice side effect of getting numerical prefixes working without having
to use C-u (for example "8s" to search 8 times):

diff -u -b -B -r1.17 nethack-keys.el
--- nethack-keys.el     1 Feb 2002 10:34:23 -0000       1.17
+++ nethack-keys.el     16 Sep 2002 01:27:20 -0000
@@ -49,6 +49,7 @@
 ;;  *           ~    invert     @
 (defvar nethack-menu-mode-map
   (let ((map (make-sparse-keymap)))
+    (suppress-keymap map)
     ;; add all of the accelerator characters
     (mapc (lambda (char)
            (define-key map (vector char) 'nethack-menu-toggle-item))
@@ -69,6 +70,7 @@
 ;; cmd.c is where the command-key mappings are done in the nh src
 (defvar nethack-map-mode-map
   (let ((map (make-sparse-keymap)))
+    (suppress-keymap map)
     (define-key map "^" 'nethack-command-identify-trap)        ;^
     ;;^[ Cancel command
     (define-key map "\e[" 'nethack-command-cancel)

-- 
        Istvan