;; This file: http://user.it.uu.se/~embe8573/conf/emacs-init/global-keys.el

(require 'align-new)
(require 'article)
(require 'buc)
(require 'buffer-menu)
(require 'caps-back)
(require 'close)
(require 'dired-x)
(require 'edit)
(require 'files-my)
(require 'fill-new)
(require 'find-command)
(require 'gnus-my)
(require 'group)
(require 'help-new)
(require 'kill)
(require 'linux-shell)
(require 'lisp-new)
(require 'quit)
(require 'revert-buffer-my)
(require 'scroll)
(require 'shell-cli)
(require 'spell-new)
(require 'super)
(require 'w3m-unisearch)
(require 'window-new)
(require 'wrap-search)
(require 'yank-my)

;; scroll
(super-global-set-key "\C-\M-j" #'scroll-left-1)
(super-global-set-key "\C-\M-l" #'scroll-right-1)
(super-global-set-key "\M-i"    #'scroll-up-1)
(super-global-set-key "\M-k"    #'scroll-down-1)
(super-global-set-key "\C-\M-i" #'scroll-up-pane)
(super-global-set-key "\C-\M-k" #'scroll-down-pane)

;; the two-window solution
(super-global-set-key "\M-o"  #'other-window-or-split)
(super-global-set-key "\M-p"  #'delete-other-windows)

;; change window height
(global-set-key "\C-ow" #'window-increase-size)
(global-set-key "\C-oW" #'window-decrease-size)

;; file navigation
(super-global-set-key [S-caps]  #'dired-jump)
(super-global-set-key "\M-\r"   #'find-file-at-line)
(global-set-key       "\C-oh"   #'find-here)

;; the `find-command' package: ~/.emacs.d/emacs-init/global-keys.el
(global-set-key       "\C-of"   #'find-command)
(global-set-key       "\C-oz"   #'find-command-zsh)
(global-set-key       "\C-oE"   #'find-command-elisp)

;; file permissions ("modes")
(global-set-key "\C-oF" #'message-permissions)
(global-set-key "\C-ox" #'make-executable)

;; buffers
(global-set-key [M-tab] #'switch-buffer)
(global-set-key [caps]  #'buffer-menu-files-only)
(global-set-key "\C-xk" #'kill-current-buffer)

;; shortcuts to specific buffers
(global-set-key "\C-o\C-oa" #'switch-to-article-buffer)
(global-set-key "\C-o\C-oh" #'switch-to-help-buffer)
(global-set-key "\C-o\C-oH" #'switch-to-info-buffer)

;; help / apropos
(global-set-key "\M-m"      #'describe-variable-short)
(global-set-key "\C-hV"     #'apropos-value)
(global-set-key "\C-hA"     #'apropos-command)
(global-set-key "\C-ha"     #'apropos)

;; misc
(global-set-key  "\M-q"  #'fill-down)
(global-set-key  "\C-ot" #'tmux-yank)

;; buc
(global-set-key  "\C-om"     #'man-buc)
(global-set-key  "\C-o\C-om" #'man-buc)

;; repeat commands
(super-global-set-key  "\M-A"    #'repeat)
(super-global-set-key  "\M-a"    #'do-repeat-complex-command)

;; misc commands
(global-set-key  [C-semi-colon]  #'string-to-cmd)
(global-set-key  [C-m]           #'eval-defun)

;; disable M-j and M-l
;; as used to switch VT (and to go to X) anyway
(global-set-key  "\M-j" nil)
(global-set-key  "\M-l" nil)
(global-set-key  "\M-u" nil)

;; edit
(global-set-key [M-caps]  #'toggle-caps-mode)
(global-set-key "\r"      #'newline-and-indent)
(global-set-key "\C-k"    #'kill-line-remove-blanks)
(global-set-key "\M-0"    #'undo)
(global-set-key "\C-a"    #'back-to-dwim)
(global-set-key "\C-\M-y" #'yank-pop-back)

;; align
(global-set-key "\M- "        #'eat-space)
(global-set-key [my-C-M-SPC]  #'align-from-left)

;; search
(global-set-key "\C-s" #'wrap-search)
(global-set-key "\C-r" #'wrap-search-again)

;; unbind
(global-unset-key "\C-hh")    ; view-hello-file
(global-unset-key "\C-h\C-a") ; about-emacs

(defvar *mother* nil)
(setq *mother* nil)
(if *mother*
    (progn
      (global-set-key [f1] #'save-buffer)
      (global-set-key [f8] #'no-confirm-emacs-quit) )
  (global-unset-key [right]) )

(global-unset-key [insertchar])
(global-unset-key "\C-_")         ; use M-0 instead
(global-unset-key "\C-x0")        ; ditto M-[
(global-unset-key "\C-x1")        ; M-p
(global-unset-key "\C-xo")        ; M-o
(global-unset-key "\C-xm")        ; no compose-mail
(global-unset-key "\C-hg")        ; ditto describe-gnu-project
(global-unset-key "\C-z")         ; suspend-frame
(global-unset-key "\C-x\C-z")     ; -"-
(global-unset-key "\C-l")         ; open-line

;; spell
(global-set-key "\C-oe" #'spell-english)
(global-set-key "\C-os" #'spell-swedish)

;; buffers
(global-set-key "\C-\M-a"    #'mark-whole-buffer)
(global-set-key "\C-oc"      #'erase-buffer)
(global-set-key "\C-op"      #'find-zsh-command-file-file)
(global-set-key "\C-ol"      #'revert-buffer-check)
(global-set-key "\C-o\C-of"  #'font-lock-fontify-buffer)
(global-set-key "\M-2"       #'irc)

;; top/bottom
(global-set-key "\C-oi" #'beginning-of-buffer)
(global-set-key "\C-ok" #'end-of-buffer)

;; Usenet/mail
(super-global-set-key "\C-l" #'gnus-group-refresh)
(global-set-key        [C-i] #'new-message)

;; w3m
(global-set-key "\C-o\C-ow" #'w3m)
(global-set-key "\C-o\C-op" #'pirate-search)
(global-set-key "\C-o\C-os" #'web-search)
(global-set-key "\C-o\C-oS" #'google-image-search)
(global-set-key "\C-o\C-oY" #'you-tube-search-long)
(global-set-key "\C-o\C-oy" #'you-tube-search)
(global-set-key "\C-o\C-oi" #'wiki-search)
(global-set-key "\C-o\C-oe" #'emacs-wiki-search)

(provide 'global-keys)