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

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

(-> 'w3m)

(defun emacs-w3m-version (&optional here)
  "Version number of this version of Emacs-w3m, `emacs-w3m-version'.
If optional argument HERE is non-nil, insert string at point.\n
This is not the version of the shell tool w3m; see `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 w3m, `w3m-version'.
If optional argument HERE is non-nil, insert string at point.\n
This is not the version of the Emacs browser; see `emacs-w3m-version'."
  (interactive "P")
  (if here (@i ($ w3m-version)) ($m w3m-version)))

('<- 'w3m-version)