   (with-current-buffer (find-file-noselect (expand-file-name
                                             "~/stuff/active/non-public/daily.org"))
     (ar/org-helm-entry-child-candidates "current-week")))
+
+(defun ar/switch-to-file (file-path)
+  "Switch to buffer with FILE-PATH."
+  (switch-to-buffer (find-file-noselect (expand-file-name file-path))))
 
 (defmacro ar/with-current-file (file-path &rest body)
   "Open file at FILE-PATH and execute BODY."

  :commands (helm-buffers-list)
  :ensure t)

;; (use-package git :ensure t)
;; (require 'git)

;; (defun ar/pull-repo-at-path (path)
;;   "Pull repository at PATH."
;;   (ar/with-current-file path
;;                         (setq-local git-repo default-directory)
;;                         (git-pull)))

;; (defun ar/pull-frequent-repos ()
;;   "Pull all frequent repositories."
;;   (interactive)
;;   (ar/pull-repo-at-path "~/stuff/active/dots/emacs/init.el")
;;   (ar/pull-repo-at-path "~/stuff/active/dots/emacs/init.el"))

(defun ar/projectile-helm-ag ()
  "Search current repo/project using ag."

  (setq magit-status-buffer-switch-function #'switch-to-buffer)
  (fullframe magit-status magit-mode-quit-window)
  (magit-auto-revert-mode)
  :bind ("C-x g" . magit-status)
  :commands (magit-pull magit-status magit-log))

(use-package vc
  :commands (vc-pull)
