From mboxrd@z Thu Jan  1 00:00:00 1970
From: Marco Wahl <marcowahlsoft@gmail.com>
Subject: Re: Support for something like org-image-max-width
Date: Mon, 02 Dec 2019 22:00:47 +0100
Message-ID: <844kyil9xc.fsf@gmail.com>
References: <87wobfhj6s.fsf@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:56724)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1ibsoX-0007HC-4U
 for emacs-orgmode@gnu.org; Mon, 02 Dec 2019 16:01:03 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1ibsoV-0001ar-8W
 for emacs-orgmode@gnu.org; Mon, 02 Dec 2019 16:01:00 -0500
Received: from 195-159-176-226.customer.powertech.no ([195.159.176.226]:60440
 helo=blaine.gmane.org)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <geo-emacs-orgmode@m.gmane.org>)
 id 1ibsoU-0001Xl-Ny
 for emacs-orgmode@gnu.org; Mon, 02 Dec 2019 16:00:58 -0500
Received: from list by blaine.gmane.org with local (Exim 4.89)
 (envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1ibsoQ-000Wb4-7m
 for emacs-orgmode@gnu.org; Mon, 02 Dec 2019 22:00:54 +0100
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
 <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: emacs-orgmode@gnu.org

Terje Larsen <terlar@gmail.com> writes:

> There is already org-image-actual-width but the problem with that one is
> that images that have quite small width, but are tall will be scaled and
> become very tall.

> I think it would make sense to introduce something like
> org-image-max-width, which would scale images that are larger than this
> width, but leave images within this width alone.

I think this is doable since there is already a max-width parameter for
images IIRC.  But this means some work AFAICS.  A way could be to allow
a pair like (max-width . 555) as org-image-actual-width with the meaning
to downsize any image wider than 555 and let the smaller images alone.

Could you invest some energy and possibly suggest a patch?  You have all
the time.

> Another interesting thing would be to be able to adjust the max-width to
> the width of the buffer, but not sure how well that will play in all
> cases and how complex that would be.

This looks also doable AFAICT.

FWIW I use a little extension of the image-map which allows to adjust
the image width with the window-width with key "W" on the image.  (Quite
a bunch of w's in that sentence.)

This is the respective code from my init file:
#v+
(defun mw-image-change-width-to-window-width ()
"Resize image width to match window-width."
  (interactive)
  (let* ((image (image--get-image))
         (new-image (image--image-without-parameters image)))
    (setcdr image (cdr new-image))
    (plist-put (cdr image) :width (nth 2 (window-inside-pixel-edges)))))

(define-key image-map "W" #'mw-image-change-width-to-window-width)
#v-