#+TITLE: Language - Image
#+AUTHOR: Juan Placencia

* Package

Define image language package.

#+BEGIN_SRC emacs-lisp
  (use-package emacs
    :after uno-lang
    :config
    (provide 'uno-lang-image))
#+END_SRC

* Default Behavior

- Open image as image first.
- Add keybinds

#+BEGIN_SRC emacs-lisp
  (use-package emacs
    :after uno-lang-image
    :hook
    (image-mode . uno/lang/image/check-type)
    (image-minor-mode . uno/run-prog-mode-hook)
    :general
    (uno-mode-leader-define
      :definer 'minor-mode
      :keymaps 'image-minor-mode
      uno-mode-leader-key '(image-toggle-display :which-key "Toggle preview"))
    :init
    (defun uno/lang/image/check-type ()
      "Add support for text-based images."
      (when (member (image-type-from-buffer) '(svg))
        (uno-mode-leader-define
          :keymaps 'local
          uno-mode-leader-key '(image-toggle-display :which-key "Toggle preview"))))
    (push '("\\.svg$" . image-mode-as-text) auto-mode-alist))
#+END_SRC