 (use-package shell-pop
   :ensure t)
 
-;; Comment current line or region.
 (defun ar/comment-dwim ()
+  "Comment current line or region."
   (interactive)
   (let ((start (line-beginning-position))
         (end (line-end-position)))

    (yas-exit-all-snippets)))

(defun ar/new-objc-file ()
  "Create and yas-expand Objective-C interface header/implementation files."
  (interactive)
  (let ((interface-name (read-from-minibuffer "Interface name: ")))
    (ar/new-file-with-snippet interface-name

(setq magit-status-buffer-switch-function 'switch-to-buffer)

(defun ar/sort-lines-ignore-case ()
  "Sort region (case-insensitive)."
  (interactive)
  (let ((sort-fold-case t))
    (call-interactively 'sort-lines)))
