Dark title bar in Elementary OS

The default DOOM Emacs looks weird on Elementary OS, because the title bar is light, and the rest is dark.

doom-white-title-bar

GNOME 3 has support for light/dark window decorations. Here’s how you can configure Emacs to use the dark theme for the title bar.

;; Set the title bar to black
(defun set-selected-frame-dark (&rest _)
  (call-process-shell-command "xprop -f _GTK_THEME_VARIANT 8u -set _GTK_THEME_VARIANT \"dark\" -id \"$(xdotool getactivewindow)\""))

(add-hook 'after-make-frame-functions #'set-selected-frame-dark)

doom-white-title-bar