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

(require 'mhtml-mode)
(require 'mode-line)
(require 'super)
(require 'w3m-url)

(defun img-caption ()
  (interactive)
  (let ((beg (point)))
    (insert "<div class=\"outer\">
  <figure>
    <a href=\"img/.\">
      <img src=\"img/thumb/-thumb.\"
           alt=\"\">
    </a>
    <figcaption>
    </figcaption>
  </figure>
</div>")
    (indent-region beg (point))
    (forward-line -7)
    (forward-char  21) ))
(defalias 'img #'img-caption)

(defun section-update (section update)
  (interactive "ssection: \nsupdate: ")
  (insert "<li><a href=\"#" section "\">&hash;"
          section "</a> update: "
          update "</li>") )
(defalias 'secup 'section-update)

(defun link ()
  (interactive)
  (insert "<a href=\"\"></a>")
  (forward-char -6) )

;; (setq mhtml-mode-hook nil)
(defun mhtml-mode-hook-f ()
  (disable-super-global-keys)
  (keymap-set mhtml-mode-map "C-o w" #'w3m-view) )
(add-hook 'mhtml-mode-hook #'mhtml-mode-hook-f)

(provide 'html)