;-*- coding: utf-8 -*-
; emacs keyboarding shortcuts
; this shortcut is for Dvorak keyboard users

; Xah Lee
; 2007-06
; ∑ http://xahlee.org/

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load-file "/Users/xah/web/emacs/ergonomic_keybinding_unbind.el")
(load-file "/Users/xah/web/emacs/ergonomic_keybinding_dvorak.el")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; CURSOR MOVEMENT

;; (global-set-key (kbd "M-H") 'goto-point-min)
;; (global-set-key (kbd "M-N") 'goto-point-max)

(global-set-key (kbd "M-E") 'backward-punctuation)
(global-set-key (kbd "M-U") 'forward-punctuation)

;;;; BASIC TEXT CHANGING

(global-set-key (kbd "M-J") 'copy-all)
(global-set-key (kbd "M-Q") 'cut-all)
 
;;;;
; SPECIAL KEYS

; delete previous/next word
(global-set-key (kbd "<home>") 'beginning-of-buffer)
(global-set-key (kbd "<end>") 'end-of-buffer)

(global-set-key (kbd "<delete>") 'delete-char) ; if not evaluated, then Del key wont work.
(global-set-key (kbd "<kp-delete>") 'delete-char) ; on NeXT/OpenStep Emacs.app, the Del key (under Ins key) is in emacs as “<kp-delete>”, but on Carbon Emacs and Aquaemacs, it shows up as “<delete>”.

(global-set-key (kbd "C-<delete>") 'my-erase-buffer)
(global-set-key (kbd "C-<kp-delete>") 'my-erase-buffer)

;;;; PERSONAL

; other

; change C-x prefix to C-t, so this frequently used prefix is easier to type
(keyboard-translate ?\C-t ?\C-x)

(global-set-key (kbd "M-m") 'save-buffer) ; Save

(global-set-key (kbd "M-f") 'find-file) ; Open
(global-set-key (kbd "M-F") 'my-find-file-at-point)

(global-set-key (kbd "M-b") 'close-current-buffer) ; Close

(global-set-key (kbd "M-B") 'ibuffer) ; was nil

;;;; TEMP SHORTCUTS
(global-set-key (kbd "M-3") 'insert-xahurl)

;----------
; NUMBERIC KEYPAD

(global-set-key (kbd "<clear>") 'close-current-buffer)
(global-set-key (kbd "<kp-1>") 'previous-user-buffer)
(global-set-key (kbd "<kp-2>") 'next-user-buffer)

(global-set-key (kbd "C-e") 'down-case-word-or-region)
(global-set-key (kbd "C-S-e") 'up-case-word-or-region)
(global-set-key (kbd "C-.") 'title-case-word-or-region)

(global-set-key (kbd "<kp-0>") 'dictionary-lookup-definition)
(global-set-key (kbd "<S-kp-0>") 'lookup-word-definition-in-w3m)
(global-set-key (kbd "<C-kp-0>") 'lookup-wikipedia)

(global-set-key (kbd "<kp-decimal>") 'my-browse-url-at-point)
(global-set-key (kbd "<C-kp-decimal>") 'lookup-lsl-ref)

(global-set-key (kbd "<kp-subtract>") 'wikipedia-linkify)

;-----------------------------
; kbd shortcuts for particular modes

(add-hook 'html-mode-hook
 (lambda ()
 (define-key html-mode-map (kbd "<M-left>") 'sgml-skip-tag-backward)
 (define-key html-mode-map (kbd "<M-right>") 'sgml-skip-tag-forward)
 (define-key html-mode-map (kbd "<S-tab>") 'html-previous-content)
 (define-key html-mode-map (kbd "<tab>") 'html-next-content)
 (define-key html-mode-map (kbd "C-c w") 'wrap-span-x-w)
 (define-key html-mode-map (kbd "C-c r") 'wrap-span-x-r)
 (define-key html-mode-map (kbd "C-c b") 'wrap-span-x-b)
 (define-key html-mode-map (kbd "C-c t") 'wrap-span-xnt)
 (define-key html-mode-map (kbd "C-c d") 'wrap-span-code)
 (define-key html-mode-map (kbd "C-c n") 'insert-div-x-note)
 (define-key html-mode-map (kbd "<M-return>") 'insert-tag)
 (define-key html-mode-map (kbd "M-4") 'wrap-url)
 (define-key html-mode-map (kbd "M-5") 'image-linkify)
 (define-key html-mode-map (kbd "M-s") 'isearch-forward)
 (define-key html-mode-map (kbd "M-S") 'isearch-backward)
 (define-key html-mode-map (kbd "<f8>") 'browse-url-of-buffer)
 )
)

(add-hook 'nxml-mode-hook
 (lambda ()
 (define-key nxml-mode-map (kbd "M-h") 'backward-char)
 (define-key nxml-mode-map (kbd "C-M-SPC") 'nxml-mark-paragraph)
 (define-key nxml-mode-map (kbd "<f8>") 'browse-url-of-buffer)
 (define-key nxml-mode-map (kbd "<tab>") 'html-next-content)
 (define-key nxml-mode-map (kbd "S-<tab>") 'html-previous-content)
 )
)

(add-hook 'Info-mode-hook
 (lambda ()
 (define-key Info-mode-map (kbd "M-s") 'isearch-forward) ; was Info-search; just press “s” instead
 )
)

(add-hook 'w3m-mode-hook
 (lambda ()
  (define-key w3m-mode-map (kbd "M-a") 'execute-extended-command) ; was w3m-bookmark-add-this-url
  (define-key w3m-mode-map (kbd "M-g") 'backward-word) ; was goto-line
  (define-key w3m-mode-map (kbd "M-n") 'forward-word) ; was w3m-copy-buffer
  (define-key w3m-mode-map (kbd "M-l") 'recenter) ; was w3m-horizontal-recenter

;; re-introduce displaced commands
  (define-key w3m-mode-map (kbd "C-l") 'w3m-horizontal-recenter) ; was nil
))


(global-set-key (kbd "C-n") 'new-temp-file)

(add-hook 'dired-mode-hook
 (lambda ()
  (define-key dired-mode-map (kbd "C-n") 'new-temp-file) ; was dired-next-line
 ))


;;--------------
; misc

(global-set-key (kbd "M-6") 'run-current-file)
(global-set-key (kbd "M-^") 'run-current-java-file)

(global-set-key (kbd "M-<up>") 'backward-up-list)
(global-set-key (kbd "M-<down>") 'down-list)
(global-set-key (kbd "M-<left>") 'backward-sexp)
(global-set-key (kbd "M-<right>") 'forward-sexp)
(global-set-key (kbd "M-S-<left>") 'backward-list)
(global-set-key (kbd "M-S-<right>") 'forward-list)

(global-set-key (kbd "M-8") 'extend-selection)
(global-set-key (kbd "M-7") 'copy-file-path)

(global-set-key (kbd "M-w") 'previous-user-buffer)
(global-set-key (kbd "M-v") 'next-user-buffer)
(global-set-key (kbd "H-M-<left>") 'tabbar-backward)
(global-set-key (kbd "H-M-<right>") 'tabbar-forward)

(global-set-key (kbd "M-W") 'previous-emacs-buffer)
(global-set-key (kbd "M-V") 'next-emacs-buffer)

(global-set-key (kbd "M-`") 'other-frame)

;;---------------------------
;; experimental. 2008-08-28


(global-unset-key (kbd "M-<backspace>"))
(global-unset-key (kbd "M-DEL"))
(global-unset-key (kbd "<M-S-backspace>"))