;;; navigation.el --- Set up Emacs buffer navigation -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:

(defun user/scroll-up ()
  "Scroll page up without moving point."
  (interactive)
  (scroll-down 1))


(defun user/scroll-down ()
  "Scroll page down without moving point."
  (interactive)
  (scroll-up 1))


(defun user--navigation-config ()
  "Set up Emacs buffer navigation."
  ;; Enable mouse in iTerm2
  (when (eq system-type 'darwin)
    (with-feature 'mouse
      (xterm-mouse-mode t)
      (defun track-mouse (e))))

  ;;; (Bindings) ;;;
  (user/bind-key-global :nav :scroll-up 'user/scroll-up)
  (user/bind-key-global :nav :scroll-down 'user/scroll-down)
  (user/bind-key-global :nav :goto-line 'goto-line)
  (user/bind-key-global :nav :go-back 'pop-global-mark)

  ;; https://github.com/abo-abo/avy
  ;; Jump to things in Emacs tree-style
  (use-package avy
    :bind ("M-s" . avy-goto-char)
    :config
    (avy-setup-default))

  ;; https://github.com/jcs-elpa/goto-line-preview
  ;; Preview line when executing goto-line command.
  (use-package goto-line-preview
    :disabled
    :config
    (user/bind-key-global :nav :goto-line 'goto-line-preview))

  ;; https://github.com/magnars/smart-forward.el
  ;; smart-forward gives you semantic navigation, building on expand-region
  (use-package smart-forward
    :disabled
    :defer
    :init
    (user/bind-key-global :nav :context-forward 'smart-forward)
    (user/bind-key-global :nav :context-backward 'smart-backward)
    (user/bind-key-global :nav :context-up 'smart-up)
    (user/bind-key-global :nav :context-down 'smart-down)))

(user--navigation-config)


(provide 'ux/navigation)
;;; navigation.el ends here