davep

(defun list-prog-modes ()
  "List all programming modes known to this Emacs."
  (interactive)
  (with-help-window "*Programming Major Modes*"
    (mapatoms (lambda (f)
                (when (provided-mode-derived-p f 'prog-mode)
                  (princ f)
                  (princ "\n"))))))

davep

Inspired by dannyfritz/commit-message-emoji

See also gitmoji.

Commit type	Emoji
Initial commit	🎉 :tada:
Version tag	🔖 :bookmark:
New feature	✨ :sparkles:
Bugfix	🐛 :bug:

davep

(defun smile ()
  "Smile at you.

See https://emacs.stackexchange.com/questions/34271/equivalent-to-the-vim-smile-command"
  (interactive)
  (with-help-window "*smile*"
    (princ "                            oooo$$$$$$$$$$$$oooo
                        oo$$$$$$$$$$$$$$$$$$$$$$$$o
                     oo$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$o         o$   $$ o$
     o $ oo        o$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$o       $$ $$ $$o$

davep

;; Create and switch to a test buffer.
(with-current-buffer (get-buffer-create "*Foo*")
  ;; Ensure it's empty, for testing purposes.
  (setf (buffer-string) "")
  ;; Insert some test text
  (insert "hello, world!")
  ;; Now use `shell-command-on-region' to manipulate it.
  (shell-command-on-region (point-min) (point-max) "tr a-z A-Z" (current-buffer) t))