พื้นหลังภาพอินไลน์เริ่มต้นในโหมดองค์กร

เมื่อภาพมีพื้นหลังโปร่งใสแน่นอนว่า Emacs เคารพสิ่งนั้น

น่าเสียดายสิ่งนี้อาจนำไปสู่ปัญหาเกี่ยวกับการแสดงผล:

มีวิธีแสดงสีเฉพาะ (เช่นสีขาว) ด้านหลังภาพหรือไม่? ดูเหมือนจะสนับสนุนบางส่วนสำหรับมันในภาพ ImageMagick

สิ่งที่เฉพาะเจาะจงที่ฉันทำงานด้วยในตอนนี้สามารถมีชุดสีพื้นหลังได้ แต่ฉันต้องเพิ่มสองสามบรรทัดลงในทุก ๆ รูปเพื่อที่จะทำเช่นนั้นซึ่งน้อยกว่าอุดมคติ ฉันต้องการไปยังที่ที่รูปภาพแบบอินไลน์แสดงในโหมด org มีสีพื้นหลังที่ตั้งไว้โดยค่าเริ่มต้น

(หมายเหตุ: นี่ไม่ใช่เฉพาะองค์กร orgelel มันเพิ่งเกิดขึ้นกับที่ฉันได้รับภาพเหล่านี้ตอนนี้)

หลังจากขุดมากมีไม่ได้ดูเหมือนจะเป็นในตัวเลือกที่จะปรับในองค์กรหรือในทั่วไป ระบบภาพไม่มีวิธีใดในการปรับแต่งพื้นหลังเริ่มต้นและองค์กรไม่มีวิธีการตั้งค่า:backgroundคุณสมบัติ อย่างไรก็ตามดูเหมือนว่าภาพส่วนใหญ่จะสนับสนุน:backgroundคุณสมบัติการแสดงผล

ฉันจะเพิ่มฟังก์ชั่นนี้เพื่อองค์กรโดยการปรับเปลี่ยน (อ่าน: การคัดลอกและวางลงใน.emacs.dที่มีการเปลี่ยนแปลงสาย org-display-inline-images1)

ฉันจะไม่ทำหน้าที่นี้ซ้ำเพราะมันค่อนข้างยาว บรรทัดที่ 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)