 ;;; Code:
 
 
-(require 'helm)
+;; (require 'helm)
+;; (require 'ace-jump-mode)
 
 (define-minor-mode underi-mode
 	"Keymap for the 21th century.

;; http://stackoverflow.com/a/12010437/6452961

(defun underi-minibuffer ()
	""
	(let ((map minibuffer-local-map))

		;; move cursor

						(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"))
