emacsのカレントバッファを標準出力に出すシェル関数

ecat.sh

  function ecat (){
    local ecat_tempfile=`mktemp -t ecat_tempfile.XXXXXXXX`
    emacsclient -e "
      (with-current-buffer
        (if (featurep 'elscreen)
            (let* ((frame-confs (elscreen-get-frame-confs (selected-frame)))
                   (num (nth 1 (assoc 'screen-history frame-confs)))
                   (cur-window-conf (cadr (assoc num (assoc 'screen-property frame-confs))))
                   (marker (nth 2 cur-window-conf)))
              (marker-buffer marker))
          (nth 1
               (assoc 'buffer-list
                      (nth 1 (nth 1 (current-frame-configuration))))))
        (if (region-active-p)
            (write-region (region-beginning) (region-end) \"$ecat_tempfile\")
          (write-region (point-min) (point-max) \"$ecat_tempfile\"))
        )
    "
    cat "$ecat_tempfile"
    rm -f "$ecat_tempfile"
  }

メモ: e2wm対応は with-current-buffer の第1引数 (if (featurep 'elscreen) ... ) を
https://gist.github.com/1247111 の (e2wm:current-buffer) にするとできそう。