;; Time-stamp: <2020-01-18 20:07:14 (tslil@bison)>

;; (eval-after-load "tiny-menu"
;;   (progn
;;     (defun hexl-input-smart ()
;;       (hexl-insert-char (0xc-string-to-number (read-string "Input: ")) 1))

;;     (setq tiny-menu-forever t
;;           tiny-menu-items '(("hexl-menu"
;;                              ("hexl"
;;                               ((?i "Insert" hexl-input-smart)
;;                                (?b "Byte" hexl-forward-char)
;;                                (?e "bytE" hexl-backward-char)
;;                                (?s "Short" hexl-forward-short)
;;                                (?t "shorT" hexl-backward-short))))
;;                             ))))

;; (add-hook 'hexl-mode-hook
;;           (lambda ()
;;             (require '0xc)
;;             (require 'tiny-menu)
;;             (define-key hexl-mode-map (kbd "M-l")
;;               (lambda () (interactive) (tiny-menu "hexl-menu")))))

;; -------------------------------------------------------------------
;; Repeated key presses for region, deletion, and movement

(use-package expand-region :ensure t
  :bind ("C-r" . er/expand-region)
  :config
  (setq expand-region-fast-keys-enabled t
        expand-region-contract-fast-key "c"
        expand-region-reset-fast-key "e"
        expand-region-autocopy-register "i"))

(use-package viking-mode
  :disabled
  :after expand-region
  :bind (:map viking-mode-map
              ("C-d" . nil)
              ("C-c d" . viking-kill-thing-at-point))
  :config
  (setq viking-use-expand-region-when-loaded t
        viking-really-delete nil)
  (viking-global-mode))

;; (defun goto-begin-dwim ()
;;   "Read the source."
;;   (interactive)
;;   (let ((iter (viking-last-key-repeats))
;;         (lisp (memq major-mode '(emacs-lisp-mode
;;                                  lisp-mode
;;                                  scheme-mode
;;                                  slime-repl-mode))))
;;     (if lisp
;;         (cond
;;          ((= iter 1) (back-to-indentation))
;;          ((= iter 2) (backward-sexp))
;;          ((= iter 3) (beginning-of-defun))
;;          (t (beginning-of-defun 1)))
;;       (cond
;;        ((= iter 1) (back-to-indentation))
;;        ((= iter 2) (beginning-of-line))
;;        ((= iter 3) (backward-paragraph))
;;        (t (goto-char (point-min)))))))

;; (defun goto-end-dwim ()
;;   "Read the source."
;;   (interactive)
;;   (let ((iter (viking-last-key-repeats))
;;         (lisp (memq major-mode '(emacs-lisp-mode lisp-mode scheme-mode slime-repl-mode))))
;;     (if lisp
;;         (cond
;;          ((= iter 1) (end-of-line))
;;          ((= iter 2) (end-of-defun))
;;          (t (end-of-defun 1)))
;;       (if (< (point) (point-at-eol)) (end-of-line)
;;         (forward-paragraph)))))

;; (global-set-key (kbd "C-a") 'goto-begin-dwim)
;; (global-set-key (kbd "C-e") 'goto-end-dwim)

;; -------------------------------------------------------------------
;; Window switching
(use-package switch-window :ensure t
  :bind (("C-x o" . switch-window)
         ("C-x C-o" . other-frame)
         ("C-c o" . switch-window)
         ("C-c n" . switch-window-then-maximize)
         :map switch-window-extra-map
         ("u" . switch-window-mvborder-up)
         ("e" . switch-window-mvborder-down)
         ("n" . switch-window-mvborder-left)
         ("o" . switch-window-mvborder-right)
         ("i" . nil)
         ("j" . nil)
         ("k" . nil)
         ("l" . nil))
  :config
  (setq switch-window-input-style 'minibuffer
        switch-window-shortcut-style 'qwerty
        switch-window-multiple-frames nil
        switch-window-qwerty-shortcuts
        '("a" "s" "t" "h" "n" "e" "o" "i" "d" "r" "w" "f" "u" "p")))

;; -------------------------------------------------------------------
;; Character jumping
(use-package avy
  :ensure t
  :demand
  :bind (("C-," . avy-goto-char-timer)
         ("C-." . avy-goto-char-in-line)
         ("M-g s" . avy-goto-word-or-subword-1)
         ("M-g w" . avy-goto-word-1)
         ("M-g a" . avy-goto-word-0)
         ("M-g M-g" . avy-goto-line))
  :config
  (setq avy-keys '(?a ?s ?t ?h ?n ?e ?o ?i ?d ?r ?u ?p)
        avy-dispatch-alist '((?w . avy-action-kill-move)
                             (?W . avy-action-kill-stay)
                             (?j . avy-action-teleport)
                             (?m . avy-action-mark)
                             (?c . avy-action-copy)
                             (?y . avy-action-yank)
                             (?i . avy-action-ispell)
                             (?z . avy-action-zap-to-char))))

;; -------------------------------------------------------------------
;; General stuff

(global-set-key (kbd "C-M-e") 'end-of-buffer)
(global-set-key (kbd "C-M-a") 'beginning-of-buffer)

(global-set-key (kbd "M-h") 'backward-kill-word)

(global-set-key (kbd "M-z") 'zap-up-to-char)

;; Fast movement
(global-set-key (kbd "M-n") 'scroll-up-command)
(global-set-key (kbd "M-p") 'scroll-down-command)

(global-set-key (kbd "C-S-n")
                (lambda () (interactive) (ignore-errors (forward-line 5))))

(global-set-key (kbd "C-S-p")
                (lambda () (interactive) (ignore-errors (forward-line -5))))

(global-set-key (kbd "C-S-f")
                (lambda () (interactive) (ignore-errors (forward-char 5))))

(global-set-key (kbd "C-S-b")
                (lambda () (interactive) (ignore-errors (backward-char 5))))

;; Hardcore mode
(defconst hardcore-nav-mode t)
(when hardcore-nav-mode
  (global-set-key (kbd "<XF86Back>") nil)
  (global-set-key (kbd "<XF86Forward>") nil)
  (global-set-key (kbd "<right>") nil)
  (global-set-key (kbd "<left>") nil)
  (global-set-key (kbd "<up>") nil)
  (global-set-key (kbd "<down>") nil)
  (global-set-key (kbd "S-<right>") nil)
  (global-set-key (kbd "S-<left>") nil)
  (global-set-key (kbd "S-<up>") nil)
  (global-set-key (kbd "C-<down>") nil)
  (global-set-key (kbd "C-<right>") nil)
  (global-set-key (kbd "C-<left>") nil)
  (global-set-key (kbd "C-<up>") nil)
  (global-set-key (kbd "C-<down>") nil)
  (global-set-key (kbd "<Home>") nil)
  (global-set-key (kbd "<End>") nil))