Support Elisp fns for current buffer's dirname

Gets the shorthand version of the buffer's current directory's name.

emacs.d/wpc/functions.el

@@ -223,5 +223,11 @@
       (term-char-mode)
     (term-line-mode)))
 
+(defun buffer-dirname ()
+  "Return the directory name of the current buffer as a string."
+  (->> buffer-file-name
+       f-dirname
+       f-filename))
+
 (provide 'functions)
 ;;; functions.el ends here