 						(define-key key-translation-map (kbd "M-K") (kbd "S-<down>"))
 						(define-key key-translation-map (kbd "M-J") (kbd "S-<left>"))		
 						(define-key key-translation-map (kbd "M-L") (kbd "S-<right>"))
-	
+
 						;; move cursor
 						(define-key map (kbd "M-n") 'scroll-up-command)
 						(define-key map (kbd "M-p") 'scroll-down-command)

;;; Code:


(require 'helm)

(define-minor-mode underi-mode
	"Keymap for the 21th century.

						(define-key map (kbd "C-d C-a") '(lambda () (interactive) (kill-line 0)))
						(define-key map (kbd "C-S-d") 'kill-whole-line)

						;; return
						(define-key input-decode-map (kbd "C-m") (kbd "H-o")) ; to disentangle <return> and C-m
						(define-key key-translation-map (kbd "H-o") (kbd "RET"))
						(define-key map (kbd "C-S-m") 'smart-open-line)
						
						;; miscellaneous actions
						(define-key map (kbd "C-s") 'save-buffer)
						(define-key map (kbd "C-S-s") 'write-file)
						(define-key map (kbd "C-f") 'helm-occur)
						(define-key map (kbd "C-S-f") 'helm-swoop)
						;; (define-key map (kbd "C-f") 'isearch-search)
						(define-key map (kbd "C-r") 'query-replace)
						(define-key map (kbd "C-S-r") 'query-replace-regexp)
						(define-key map (kbd "C-o") 'helm-find-files)
						(define-key map (kbd "C-x C-a") 'mark-whole-buffer)
						;; (define-key map (kbd "C-p") 'recenter-top-bottom)
						(define-key key-translation-map (kbd "M-q") (kbd "C-g"))
