@@ -12,7 +12,7 @@ With this in mind, I decided to try to add support for opening projects under a given subdirectory, e.g. `~/projects`, regardless of whether or not I've visited them before.
 
 I saw that projectile uses [Dash.el][] in some places, and after reading about [anaphoric macros], I decided that I'd try to use them to aid me.
 
-```elisp
+```lisp
 (defun ap/subfolder-projects (dir)
   (--map (file-relative-name it dir)
          (-filter (lambda (subdir)
@@ -23,14 +23,14 @@ ```
 
 First, this filters the non-special files under `dir`, filtering non-directories.  Then it runs the list of `projectile-project-root-files-functions` on it to determine if it looks like a projectile project.  To make the list more readable, it makes the filenames relative to the passed-in directory.  It runs like this:
                   
-```elisp
+```lisp
 (ap/subfolder-projects "~/projects") =>
 ("dotfiles" "ggtags" …)
 ```
 
 So, we've got ourselves a list, but now we need to be able to open the project that's there, even though the folders are relative.
 
-```elisp
+```lisp
 (defun ap/open-subfolder-project (from-dir &optional arg)
   (let ((project-dir (projectile-completing-read "Open project: "
                                      (ap/subfolder-projects from-dir))))
@@ -43,7 +43,7 @@ We get support for multiple completion systems for free, since projectile has a wrapper function that works with the default system, ido, [grizzl][] and recently, [helm][].
 
 Then I defined some helper functions to make it easy to open work and home projects.
 
-```elisp
+```lisp
 (defvar work-project-directory "~/work")
 (defvar home-project-directory "~/projects")
 
@@ -62,7 +62,7 @@ With this all set up, whenever I want to start working on a project I just type `M-x home RET` to call up the list.
 
 I also considered trying to add all the projects under a directory to the projectile known project list.  I didn't find it quite as easy to use, but it's available below if anyone would prefer that style.
 
-```elisp
+```lisp
 (defun ap/-add-known-subfolder-projects (dir)
   (-map #'projectile-add-known-project (--map (concat (file-name-as-directory dir) it) (ap/subfolder-projects dir))))