# -*- mode: snippet -*- # name: namespace # key: ns # -- namespace ${1:`(string-join (mapcar (lambda (s) (let ((case-fold-search nil)) (if (string-match-p (rx upper-case) s) s (capitalize s)))) (cdr (split-string (directory-file-name (file-name-directory (file-relative-name buffer-file-name (project-root (project-current))))) "/"))) "\\")`};