Latar Belakang Gambar Inline Default dalam Mode Org

Ketika sebuah gambar memiliki latar belakang transparan, Emacs tentu saja menghormatinya.

Sayangnya, ini dapat menyebabkan masalah dengan tampilan:

Apakah ada cara untuk menampilkan warna tertentu (misalnya putih) di belakang gambar? Tampaknya ada beberapa dukungan untuk itu di gambar ImageMagick .

Hal-hal spesifik yang sedang saya kerjakan sekarang dapat memiliki set warna latar belakang, namun saya harus menambahkan beberapa baris tambahan ke setiap gambar untuk melakukan itu, yang kurang dari ideal. Saya ingin membawanya ke tempat gambar inline ditampilkan dalam mode-org yang memiliki warna latar belakang yang ditetapkan secara default.

(Catatan: ini bukan spesifik org-babel, kebetulan saja bagaimana saya mendapatkan gambar-gambar ini sekarang)

Setelah banyak menggali, tampaknya tidak ada opsi bawaan untuk menyesuaikan ini di Org atau secara umum. Sistem gambar tidak memiliki cara untuk menyesuaikan latar belakang default, dan org tidak memiliki cara untuk mengatur :backgroundproperti. Namun, itu terlihat seperti kebanyakan gambar mendukung :backgroundproperti tampilan.

Saya menambahkan fungsionalitas ini ke Org dengan memodifikasi (baca: salin dan tempel ke dalamnya .emacs.ddengan perubahan 1 baris) org-display-inline-images.

Saya tidak akan mereproduksi fungsi di sini, karena agak panjang. Baris 51 dari fungsi tersebut berbunyi:

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

Saya mendefinisikan variabel baru yang dapat disesuaikan org-inline-image-background, yang dapat menampung nil(latar belakang transparan) atau warna:

(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)))

Kemudian, saya menambahkannya ke baris 51:

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

Ini berfungsi dengan baik dan dapat dikustomisasi menggunakan color picker, sehingga memenuhi semua persyaratan saya.

Saya mendapat solusi yang lebih baik dengan saran.

(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)