From 9f8ecdf1c8c4ad378f4644e9b43726f4e9ecfc27 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Tue, 25 May 2010 19:58:44 +0200
Subject: added some terminal fixes

---
 emacs | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

(limited to 'emacs')

diff --git a/emacs b/emacs
index 506b4f9..3e8f6ee 100644
--- a/emacs
+++ b/emacs
@@ -233,6 +233,11 @@
  '(widget-field-face ((t (:background "gray85"))) t)
  '(widget-single-line-field-face ((t (:background "gray85"))) t))
 
+(if (not window-system)
+    (custom-set-faces
+     '(linum ((t (:background "black" :foreground "white" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal))))
+     '(region ((nil (:inverse-video t))))))
+
 (global-set-key [mouse-3] 'imenu)
 
 ;; define F1 to display man page of the current word
@@ -259,6 +264,35 @@
   (normal-top-level-add-subdirs-to-load-path)
   (nconc load-path orig-load-path))
 
+; fix keys for urxvt
+(if (not window-system)
+    (mapc (lambda (map)
+	    (define-key function-key-map
+	      (read-kbd-macro (cadr map))
+	      (read-kbd-macro (car map))))
+	  '(("<S-tab>"     "M-[ Z")
+	    ("<S-up>"      "<select>")
+	    ("<S-down>"    "M-[ b")
+	    ("<S-right>"   "M-[ c")
+	    ("<S-left>"    "M-[ d")
+	    ("<M-up>"      "ESC M-O A")
+	    ("<M-down>"    "ESC M-O B")
+	    ("<M-right>"   "ESC M-O C")
+	    ("<M-left>"    "ESC M-O D")
+	    ("<C-up>"      "M-O a")
+	    ("<C-down>"    "M-O b")
+	    ("<C-right>"   "M-O c")
+	    ("<C-left>"    "M-O d")
+	    ("<C-M-up>"    "ESC M-O a")
+	    ("<C-M-down>"  "ESC M-O b")
+	    ("<C-M-right>" "ESC M-O c")
+	    ("<C-M-left>"  "ESC M-O d")
+	    ("<M-S-up>"    "ESC M-[ a")
+	    ("<M-S-down>"  "ESC M-[ b")
+	    ("<M-S-right>" "ESC M-[ c")
+	    ("<M-S-left>"  "ESC M-[ d")
+	    )))
+
 (setq auto-mode-alist (cons '("README" . text-mode) auto-mode-alist))
 (setq compilation-scroll-output t)
 
-- 
cgit v1.2.3