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

(require 'luki-lisp)

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

(-> 'll-quit)
(-> 'make-mode)

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

(defun find-conf-key (key &optional beg end)
  (interactive (let ((ps "[key]"))
                 (if (use-region-p)
                     `(,(read-key ps) ,(region-beginning) ,(region-end))
                   `(,(read-key ps)))))
  (or beg (setq beg (point-min)))
  (or end (setq end (point-max)))
  (let* ((re    (char-to-string key))
         (count (how-many re beg end)))
    (if (z count)
        ($ "no hits!")
      (re-search-forward re end 'noerror)
      ($ "total: %d" count))))

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

(defun this-file-comment (&optional here)
  (interactive "P")
  (let ((pos (point))
        (beg (point-min))
        (lbl "this file:\n")
        (url "https://dataswamp.org/~incal/"))
    (unless here
      (goto-char beg))
    (insert (@f "%s  %s%s\n\n" lbl url
      (string-remove-prefix "public_html/"
        (string-remove-prefix ".emacs.d/"
          (string-remove-prefix "/home/incal/"
            buffer-file-name)))))
    (comment-region beg (point))
    (forward-char (1- pos))
    (save-buffer)))

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

(keymap-set makefile-mode-map "C-c C-c" #'compile)

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

(<- 'll-ide)