;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; --------------------------------------------------------------------------------

(-> 'll-buffer-menu)
(-> 'll-edit)
(-> 'll-file)
(-> 'll-fill)
(-> 'll-kill)
(-> 'll-revert-buffer)
(-> 'll-sort)
(-> 'll-spell)
(-> 'll-yank)
(-> 'll-zsh)
(-> 'wrap-search)
(-> 'gnus-incal)
(-> 'group-summary)

;; --------------------------------------------------------------------------------

(define-prefix-command 'C-o-prefix)
(keymap-global-set "C-o" 'C-o-prefix)

;; --------------------------------------------------------------------------------

(defun keymap-global-set-unset (keys maps &optional fun)
  (cl-loop
   for k in keys
   do (cl-loop
       for m in maps
       do (keymap-unset m k))
      (keymap-local-unset k)
      (when fun
        (keymap-global-set k fun))))

;; --------------------------------------------------------------------------------

(keymap-global-set "M-<left>"  (L () (window-increase-size nil 'hori)))
(keymap-global-set "M-<right>" (L () (window-decrease-size nil 'hori)))

(keymap-global-set "M-2" #'window-increase-size)
(keymap-global-set "M-`" #'window-decrease-size)

;; -----------------------------------------------------------------------------

(keymap-global-unset "C-h C-a") ; `about-emacs'
(keymap-global-unset "C-h C-n") ; `view-emacs-news'
(keymap-global-unset "C-h C-o") ; `describe-distribution'
(keymap-global-unset "C-h C-p") ; `view-emacs-problems'
(keymap-global-unset "C-h g")   ; `describe-gnu-project'
(keymap-global-unset "C-h h")   ; `view-hello-file'
(keymap-global-unset "C-h n")   ; `view-emacs-news'
(keymap-global-unset "C-h r")   ; `info-emacs-manual'
(keymap-global-unset "C-h t")   ; `help-with-tutorial'
(keymap-global-unset "C-l")     ; `open-line'
(keymap-global-unset "C-x C-c") ; `save-buffers-kill-terminal'
(keymap-global-unset "C-x C-n") ; `set-goal-column'
(keymap-global-unset "C-x C-z") ; `suspend-frame'
(keymap-global-unset "C-z")     ; `suspend-frame'

;; -----------------------------------------------------------------------------

(keymap-global-unset "C-_")     ; `undo', instead use M-0
(keymap-global-unset "C-x 0")   ; `delete-window', M-p
(keymap-global-unset "C-x 1")   ; `delete-other-windows', M-p
(keymap-global-unset "C-x C-u") ; `upcase-region', C-o r u
(keymap-global-unset "C-x m")   ; `compose-mail', C-i
(keymap-global-unset "C-x o")   ; `other-window', M-o

;; -----------------------------------------------------------------------------

;; files
(keymap-global-set "M-RET"    #'find-file-at-point)
(keymap-global-set "S-<caps>" #'dired-jump)

;; scroll horizontally
(keymap-global-set "C-M-j" #'scroll-left-1)
(keymap-global-set "C-M-l" #'scroll-right-1)

;; vertically 1
(keymap-global-set "M-i" #'scroll-up-1)
(keymap-global-set "M-k" #'scroll-down-1)

;; panes
(keymap-global-set "M-I" #'scroll-up-pane)
(keymap-global-set "M-K" #'scroll-down-pane)

;; two windows
(keymap-global-set "M-o" #'other-window-or-split)
(keymap-global-set "M-p" #'delete-other-windows)

;; find function & zsh
(keymap-global-set "C-o f" #'find-function)
(keymap-global-set "C-o p" #'find-zsh-command-file-file)
(keymap-global-set "C-o z" #'find-command-zsh)

;; permissions
(keymap-global-set "C-o F" #'message-permissions)
(keymap-global-set "C-o x" #'make-executable)

;; buffers
(keymap-global-set "<caps>"  #'buffer-menu-files-only)
(keymap-global-set "è"       #'buffer-menu-files-only)
(keymap-global-set "C-x k"   #'kill-current-buffer)
(keymap-global-set "M-<tab>" #'switch-buffer)
(keymap-global-set "C-M-i"   #'switch-buffer)

;; help
(keymap-global-set "C-h a"     #'apropos)
(keymap-global-set "C-h A"     #'apropos-command)
(keymap-global-set "C-h V"     #'apropos-value)
(keymap-global-set "C-o m"     #'man-buc)
(keymap-global-set "C-o C-o m" #'man-buc)

;; repeat commands
(keymap-global-set "M-a" #'repeat-complex-command)
(keymap-global-set "M-A" #'repeat)

;; edit
(keymap-global-set "C-a"   #'back-to-dwim)
(keymap-global-set "C-c j" #'push-to-col)
(keymap-global-set "C-k"   #'kill-line-remove-blanks)
(keymap-global-set "C-M-y" #'yank-pop-back)
(keymap-global-set "M-0"   #'undo)
(keymap-global-set "RET"   #'newline-and-indent)
(keymap-global-set "M-q"   #'fill-down)

;; region
(keymap-global-set "C-o r C" #'capitalize-region)
(keymap-global-set "C-o r c" #'center-region)
(keymap-global-set "C-o r d" #'downcase-region)
(keymap-global-set "C-o r f" #'describe-face)
(keymap-global-set "C-o r l" #'count-words-region)
(keymap-global-set "C-o r s" #'sort-lines-whole)
(keymap-global-set "C-o r u" #'upcase-region)

;; align
(keymap-global-set "C-M-<space>" #'align-from-left)
(keymap-global-set "M-SPC"       #'eat-space)

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

;; misc
(keymap-global-set "M-9" #'eval-last-sexp)

;; spell
(keymap-global-set "C-o e" #'spell-english)
(keymap-global-set "C-o s" #'spell-swedish)

;; buffers
(keymap-global-set "C-o C-o f" #'font-lock-fontify-buffer)
(keymap-global-set "C-o l"     #'revert-buffer-check)

;; top/bottom
(keymap-global-set "C-o i" #'beginning-of-buffer)
(keymap-global-set "C-o k" #'end-of-buffer)

(keymap-global-set "C-<latin-small-letter-i>" #'new-message)
(keymap-global-set "C-l"                     #'gnus-switch-to-group-buffer)

;; -----------------------------------------------------------------------------

(<- 'll-keys)