Skip to content

Instantly share code, notes, and snippets.

@kuwa72

kuwa72/27-q1.sh

Last active February 15, 2017 05:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kuwa72/2ee15cb45a6a857873e0c097dce60d3f to your computer and use it in GitHub Desktop.
Save kuwa72/2ee15cb45a6a857873e0c097dce60d3f to your computer and use it in GitHub Desktop.
Download ZIP
Emacsシェル芸サンプル(27回Q1）https://blog.ueda.asia/?p=9309
Raw
27-q1.sh
echo abcdefghijklmn | emacs -Q --batch --insert /dev/stdin --eval '(progn (while (re-search-forward "\\(.\\)\\(.\\)" nil t) (replace-match (concat "\\1" (capitalize (match-string 2))) nil nil))(princ (buffer-string)))'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment