;;; ll-w3m-version --- Emacs-w3m and w3m(1) version -*- lexical-binding: t -*-
;;; Commentary:
;; Emacs-w3m and w3m(1) version.
;;; Code:

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'll)

(-> 'w3m)

(defun emacs-w3m-version (&optional here)
  "Version number of this version of Emacs-w3m,
as stored in the variable `emacs-w3m-version'.\n
If optional argument HERE is non-nil, insert string at point.\n
This is not the version of the shell tool w3m(1);
for that use the function `w3m-version'."
  (interactive "P")
  (when-let* ((ver (@f "Emacs-w3m %s" emacs-w3m-version)))
    (if here (@i ver) ($ ver))))

(defun w3m-version (&optional here)
  "Version number of this version of the shell tool w3m(1),
as stored in the variable `w3m-version'.\n
If optional argument HERE is non-nil, insert string at point.\n
This is not the version of the browser Emacs-w3m;
for that use the function `emacs-w3m-version'."
  (interactive "P")
  (if here (@i ($ w3m-version)) ($ w3m-version)))

(<- 'll-w3m-version)
;;; ll-w3m-version.el ends here