# -*- mode: snippet -*- # name: Org Scaffold # -- #+title: ${1:` (string-join (mapcar #'capitalize ;; Replace -,_... with space (split-string (let (case-fold-search) ;; Seperating lower from upper: hello|World (replace-regexp-in-string "\\([[:lower:]]\\)\\([[:upper:]]\\)" "\\1 \\2" ;; Separating upper from (upper and lower): HTTP|Server (replace-regexp-in-string "\\([[:upper:]]\\)\\([[:upper:]][0-9[:lower:]]\\)" "\\1 \\2" (file-name-base buffer-file-name)))) "[^[:word:]0-9]+" )) " " ) `} $0