From 1f8f9ed5be9756aac910dc6cbddb5c6b1febe811 Mon Sep 17 00:00:00 2001
From: Tobias Ostner <tobias.ostner@gmail.com>
Date: Fri, 21 Jul 2023 09:25:01 +0200
Subject: [PATCH] Add xcode-info function

---
 .emacs.d/init.el     | 3 +++
 .emacs.d/to/utils.el | 9 +++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 .emacs.d/to/utils.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index b120a3b..6fbfcc9 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -35,6 +35,9 @@
 
 (setq gc-cons-threshold (* 2 1000 1000))
 
+(add-to-list 'load-path (expand-file-name "to/" user-emacs-directory))
+(require 'utils)
+
 ;; -----------------------------------------------------------------
 
 (use-package ace-window
diff --git a/.emacs.d/to/utils.el b/.emacs.d/to/utils.el
new file mode 100644
index 0000000..7504f79
--- /dev/null
+++ b/.emacs.d/to/utils.el
@@ -0,0 +1,9 @@
+(defun to/xcode-info ()
+    (interactive)
+    (let ((buffer "*Xcode info*"))
+      (shell-command "system_profiler SPDeveloperToolsDataType" buffer)
+      (with-current-buffer buffer
+        (view-mode +1)
+        (select-window (get-buffer-window buffer)))))
+
+(provide 'utils)