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

(require 'luki-lisp)

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

(-> 'checkdoc)

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

(setq checkdoc--interactive-docstring-flag   nil)
(setq checkdoc-arguments-in-order-flag       t)
(setq checkdoc-autofix-flag                 'never)
(setq checkdoc-force-docstrings-flag         nil)
(setq checkdoc-package-keywords-flag         t)
(setq checkdoc-permit-comma-termination-flag t)
(setq checkdoc-spellcheck-documentation-flag t)

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

(defun all-elint () (i)
  (elint-current-buffer)
  (checkdoc-current-buffer 'take-notes))

(defun check-package-style () (i)
  (let ((msg "Style check..."))
    ($ msg)
    (checkdoc-current-buffer 'take-notes)
    ($ "%sdone" msg)))

(defalias 'check-style #'check-package-style)

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

(defun insert-package-header () (i)
  (insert   ";; Author: Emanuel Berg <incal@dataswamp.org>"
      (@f "\n;; Created: %s" (format-time-string "%F"))
          "\n;; Keywords: "
          "\n;; License: GPL3+"
          "\n;; Package-Requires:"
      (@f "\n;; URL: https://dataswamp.org/~incal/emacs-init/%s" (buffer-name))
          "\n;; Version: 0.0.0"))

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

(<- 'll-pack-style)