(defun to/xcode-info ()
    (interactive)
    (let ((buffer "*Xcode info*"))
      (shell-command "system_profiler SPDeveloperToolsDataType" buffer buffer)
      (with-current-buffer buffer
        (view-mode +1)
        (select-window (get-buffer-window buffer)))))

(defun to/toggle-delete-other-windows ()
  "Delete other windows, or restore the previous window configuration."
  (interactive)
  (if (and winner-mode
           (one-window-p t))
      (winner-undo)
    (delete-other-windows)))