emacs-lab.el

;(defun shellfm ()
;(interactive)
; (shell-command-on-region
; (point-min) (point-max) "cat $@"))

(defun shell-command-on-buffer ()
  "Asks for a command and executes it in inferior shell with current buffer
as input."
  (interactive)
  (shell-command-on-region
   (point-min) (point-max) "~/sed.emacs $@ ")
   (next-window-any-frame)
   (eval-buffer))


  (global-set-key (kbd "M-/") 'shell-command-on-buffer)
  (global-set-key (kbd "M-:") 'eval-buffer)

(defun last-30-commands ()
  (interactive)
  (kmacro-start-macro-or-insert-counter nil)
  (shell-command-on-buffer)
  (eval-buffer)
  (shell-command-on-buffer)
  (eval-buffer)
  (kmacro-end-or-call-macro nil))

sed.emacs

grep -v "^;" | sed '/#+BEGIN_SRC emacs-lisp/!d;s//&\n/;s/.*\n//;:a;/#+END_SRC/bb;$!{n;ba};:b;s//\n&/;P;D' $1