From edede428fcde701a334249459f769758b98a1cdd Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 2 Mar 2024 11:16:14 +0000
Subject: emacs: Move my/macos-dark-p to the macOS dotfiles

---
 dotfiles-darwin/emacs/functions.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'dotfiles-darwin/emacs/functions.el')

diff --git a/dotfiles-darwin/emacs/functions.el b/dotfiles-darwin/emacs/functions.el
index 938ae97..4a39418 100644
--- a/dotfiles-darwin/emacs/functions.el
+++ b/dotfiles-darwin/emacs/functions.el
@@ -1,5 +1,11 @@
 ;; -*- lexical-binding: t -*-
 
+(defun my/macos-dark-p ()
+  "Returns non-nil if macOS is currently in dark mode, nil otherwise."
+  (interactive)
+  (string= (shell-command-to-string "defaults read -g AppleInterfaceStyle")
+           "Dark\n"))
+
 (defun my/modify-frame-parameters (parameters &optional frame)
   (when (frame-parameter frame 'fullscreen)
     (toggle-frame-maximized))
-- 
cgit v1.2.3-70-g09d2