組織モードのデフォルトのインライン画像背景

画像に透明な背景がある場合、Emacsはもちろんそれを尊重します。

残念ながら、これは表示に関する問題を引き起こす可能性があります：

画像の背後に特定の色（白など）を表示する方法はありますか？ImageMagick画像でのサポートがいくつかあるようです。

私が現在作業している特定のものは、背景色を設定できますが、それを行うには、すべての図に余分な数行を追加する必要があり、理想的とは言えません。org-modeで表示されるインライン画像の背景色がデフォルトで設定されている場所に到達したいと思います。

（注：これはorg-babel固有ではなく、たまたまこれらの画像を取得する方法です）

多くの掘り下げの後、これをOrgまたは一般に調整するための組み込みオプションはないようです。画像システムにはデフォルトの背景をカスタマイズする方法がなく、組織には:backgroundプロパティを設定する方法がありません。ただし、ほとんどの画像が:backgrounddisplayプロパティをサポートしているように見えます。

私はこの機能をOrgに変更して追加しました（読み取り：.emacs.d1行の変更でコピーして貼り付けます）org-display-inline-images。

機能がかなり長いため、ここでは再現しません。関数の51行目は次のとおりです。

(setq img (save-match-data (create-image file type nil :width width)))

（透明な背景）または色をorg-inline-image-background保持できる新しいカスタマイズ可能な変数を定義しましたnil。

(defcustom org-inline-image-background nil
  "The color used as the default background for inline images.
  When nil, use the default face background."
  :group 'org
  :type '(choice color (const nil)))

次に、51行目に追加しました。

(setq img (save-match-data (create-image file type nil :width width 
                                                       :background org-inline-image-background)))

これは美しく機能し、カラーピッカーを使用してカスタマイズできるため、すべての要件を満たします。

私はアドバイスでより良い解決策を得ました。

(defun create-image-with-background-color (args)
  "Specify background color of Org-mode inline image through modify `ARGS'."
  (let* ((file (car args))
         (type (cadr args))
         (data-p (caddr args))
         (props (cdddr args)))
    ;; get this return result style from `create-image'
    (append (list file type data-p)
            (list :background (face-background 'default))
            props)))

(advice-add 'create-image :filter-args
            #'create-image-with-background-color)