From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/87890 Path: news.gmane.org!.POSTED!not-for-mail From: asjo@koldfront.dk (Adam =?utf-8?Q?Sj=C3=B8gren?=) Newsgroups: gmane.emacs.gnus.general Subject: Re: The Gnus logo in the modeline is displayed with a non-transparent background Date: Mon, 26 Feb 2018 20:59:40 +0100 Organization: koldfront - analysis & revolution, Copenhagen, Denmark Message-ID: <87k1uzmsib.fsf@tullinup.koldfront.dk> References: <87h8q4wybs.fsf@tullinup.koldfront.dk> <87371o8zj8.fsf@linux-m68k.org> <87woz07jps.fsf@tullinup.koldfront.dk> <87tvu4sjmz.fsf@ericabrahamsen.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: blaine.gmane.org 1519675094 28767 195.159.176.226 (26 Feb 2018 19:58:14 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 26 Feb 2018 19:58:14 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: ding@gnus.org Original-X-From: ding-owner+m36104@lists.math.uh.edu Mon Feb 26 20:58:10 2018 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from mxfilter-048034.atla03.us.yomura.com ([107.189.48.34]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eqOuX-0006tn-KC for ding-account@gmane.org; Mon, 26 Feb 2018 20:58:09 +0100 X-Yomura-MXScrub: 1.0 Original-Received: from lists1.math.uh.edu (unknown [129.7.128.208]) by mxfilter-048034.atla03.us.yomura.com (Halon) with ESMTPS id a893402b-1b2f-11e8-82b2-b499baa2b07a; Mon, 26 Feb 2018 20:00:14 +0000 (UTC) Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.89) (envelope-from ) id 1eqOwC-0005B2-SE; Mon, 26 Feb 2018 13:59:52 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by lists1.math.uh.edu with esmtps (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.89) (envelope-from ) id 1eqOwA-0005AK-FS for ding@lists.math.uh.edu; Mon, 26 Feb 2018 13:59:50 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.89) (envelope-from ) id 1eqOw9-0008EQ-Dw for ding@lists.math.uh.edu; Mon, 26 Feb 2018 13:59:50 -0600 Original-Received: from [195.159.176.226] (helo=blaine.gmane.org) by quimby.gnus.org with esmtps (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1eqOw7-0007oo-5p for ding@gnus.org; Mon, 26 Feb 2018 20:59:47 +0100 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1eqOu2-0004FO-VZ for ding@gnus.org; Mon, 26 Feb 2018 20:57:38 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 48 Original-X-Complaints-To: usenet@blaine.gmane.org OpenPGP: id=476630590A231909B0A0961A49D0746121BDE416; url=https://asjo.koldfront.dk/gpg.asc Mail-Follow-Up-To: never X-Now-Playing: Frederick Douglass, In Our Time (BBC Radio 4) X-Face: )qY&CseJ?.:=8F#^~GcSA?F=9eu'{KAFfL1C3/A&:nE?PW\i65"ba0NS)97,Q(^@xk}n4Ou rPuR#V8I(J_@~H($[ym:`K_+]*kjvW>xH5jbgLBVFGXY:(#4P>zVBklLbdL&XxL\M)%T}3S/IS9lMJ ^St'=VZBR Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:87890 Archived-At: Ah! Found the reason! When I got a "HiDPI" screen for the first time, Katsumi helped me with these two defadvice, to scale images: (defadvice create-image (after scale-image-size activate) "Scale the image size." (condition-case nil (let* ((magnitude (frame-parameter nil 'image-dpi-scale-magnitude)) (image (copy-sequence ad-return-value)) (size (image-size image t)) (spec (cdr image)) (image-width (or (plist-get spec :width) (car size))) (image-height (or (plist-get spec :height) (cdr size)))) (plist-put spec :width (round (* image-width magnitude))) (plist-put spec :height (round (* image-height magnitude))) (plist-put spec :type 'imagemagick) (setq ad-return-value image)) (error nil))) (defadvice find-image (after scale-image-size activate) "Scale the image size." (condition-case nil (let* ((magnitude (frame-parameter nil 'image-dpi-scale-magnitude)) (image (copy-sequence ad-return-value)) (size (image-size image t)) (spec (cdr image)) (image-width (or (plist-get spec :width) (car size))) (image-height (or (plist-get spec :height) (cdr size)))) (plist-put spec :width (round (* image-width magnitude))) (plist-put spec :height (round (* image-height magnitude))) (plist-put spec :type 'imagemagick) (setq ad-return-value image)) (error nil))) If I remove those (all images are too small, but) the image in the modeline is transparent! So another self-inflicted wound... Best regards, Adam -- "Mr. Cotton's... parrot. Same question." Adam Sjøgren asjo@koldfront.dk