@@ -430,14 +430,13 @@ * Projects
 
 #+BEGIN_SRC emacs-lisp
-(defvar work-project-directory "~/work")
-(defvar home-project-directory "~/projects")
+(defvar projects-root-directory "~/projects")
 #+END_SRC
 
 #+BEGIN_SRC emacs-lisp
 (defun switch-to-dotfiles ()
   (interactive)
-  (projectile-switch-project-by-name (expand-file-name "~/dotfiles")))
+  (projectile-switch-project-by-name (expand-file-name "~/projects/git.alanpearce.uk/alan/dotfiles/")))
 #+END_SRC
 
 ** The Silver Searcher
@@ -515,13 +514,9 @@ (interactive "scommand: ")               (projectile-with-default-dir (projectile-project-root)
                 (cmd-to-echo "yarn" (concat "run " cmd))))
 
-            (defun ap/open-work-project (&optional arg)
-              (interactive "P")
-              (ap/open-subfolder-project work-project-directory arg))
-
-            (defun ap/open-home-project (&optional arg)
+            (defun ap/open-project (&optional arg)
               (interactive "P")
-              (ap/open-subfolder-project home-project-directory arg))
+              (ap/open-subfolder-project projects-root-directory arg))
 
             (setq projectile-switch-project-action #'projectile-commander
                   projectile-completion-system 'ivy)))