From 89889525ccf70b36ac06e5bf9294ecf7fd0066de Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 28 Oct 2024 21:12:40 -0400 Subject: More cleanup and use-package --- .config/emacs/modules/bd--image.el | 28 ++++++++++++---------------- 1 file changed, 12 insertions(+), 16 deletions(-) (limited to '.config/emacs/modules/bd--image.el') diff --git a/.config/emacs/modules/bd--image.el b/.config/emacs/modules/bd--image.el index ca2a11a..b8aaccb 100644 --- a/.config/emacs/modules/bd--image.el +++ b/.config/emacs/modules/bd--image.el @@ -1,25 +1,21 @@ ;;; -*- lexical-binding: t; -*- ;;; Commentary: +;;; not loaded bd 10/28/24 ;;; Code: -(require 'image-mode) -(defun toggle-mode-line () - "If the mode line is displayed, toggle it off. +(use-package image-mode + :custom + (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) + (interactive) + (setq mode-line-format + (if mode-line-format + nil + (default-value 'mode-line-format)))) + (add-hook 'image-mode-hook 'toggle-mode-line) + (keymap-set image-mode-map "l" #'toggle-mode-line)) (provide 'bd--image) -- cgit v1.2.3