15 lines
498 B
EmacsLisp
15 lines
498 B
EmacsLisp
(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)))
|