Add xcode-info function

.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

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