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


(require 'image-mode)
(defun toggle-mode-line ()
  "If the mode line is displayed, toggle it off.
If the mode line is off, set it to the default value."
  (interactive)
  (setq mode-line-format
        (if mode-line-format
            nil
          (default-value 'mode-line-format))))


;;;; hooks
(add-hook 'image-mode-hook 'toggle-mode-line)


;;;; binds
(keymap-set image-mode-map "l" #'toggle-mode-line)


(provide 'bd--image)