;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/ide/package-style.el

(require '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 ()
  (interactive)
  (elint-current-buffer)
  (checkdoc-current-buffer t))
  ;; (package-lint-current-buffer)

(defun check-package-style ()
  (interactive)
  (let ((msg "Style check..."))
    (message msg)
    (checkdoc-current-buffer t)
    (message "%sdone" msg) ))

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

(defun check-package-and-install ()
  (interactive)
  (check-package-style)
  (package-install-from-buffer) )

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

(provide 'package-style)