;;; -*- lexical-binding: t -*-
;;
;; note: this file is about compilation in Emacs
;;       for compiling in general see ll-compile.el
;;
;; -----------------------------------------------------------------------------

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

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

(-> 'compile)
(-> 'll-close)

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

(setq compilation-read-command  nil)
(setq compilation-scroll-output t)

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

(defun find-digit (&optional rev)
  (let ((dig "[[:digit:]]"))
    (if rev
        (re-search-backward dig nil t)
      (re-search-forward dig nil t))))

(defun goto-prev-number () (i)
  (find-digit t))

(defun goto-next-number () (i)
  (forward-char)
  (if (find-digit)
      (goto-char (match-beginning 0))
    (backward-char)))

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

(let ((kmap compilation-mode-map))
  (set-close-key kmap)
  (keymap-set kmap "j" #'goto-prev-number)
  (keymap-set kmap "l" #'goto-next-number))

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

(<- 'll-compilation)