beep.sh, an add-on to the beep.el just posted
;;;---------------- CUT HERE ------------------------------- #!/usr/local/bin/emacscvs --script ;; Time-stamp: <2005-07-29 12:31:09 deego> ;; Note that you don't need this. beep.el can generate bash ;; equivalents for you which you can directly use from bash in any ;; case. ;; But, if you still want to be able to call beep.el from bash, you can ;; use this script to do so. ;; Author: D. Goel ;; Copyright (C) 2005 and onwards D. Goel ;; This file is NOT part of GNU Emacs. ;; This is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; This is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;; This works with gnu emacs cvs. See this page for more: ;; http://www.emacswiki.org/cgi-bin/wiki/CategoryBatchMode ;; Example usages: ;; beep.sh ;; (for some help) ;; beep.sh :p "v3 o3 c d e f g a b c4" ;; beep.sh -p "v3 o3 c d e f g a b c4" ;; beep.sh :p "v3 o3 c d e f g a b c4" :o 2 ;; beep.sh :v -1 :p "v3 o3 c d e f g a b c4" :o 1 ;; beep.sh ":v" "-1" :p "v3 o3 c d e f g a b c4" :o 1 (require 'cl) (load "~/.emacs.script") ;; general helpful shell-scripting functions and setup, not necessary. (unless (ignore-errors (require 'shs)) (error "Cannot load shs.el. Follow INSTALLATION, AND create .emacs.script")) (require 'beep) (require 'shs) (require 'shs-utils) (defun beep-sh-sh (&rest args) (shs-start) (let ((args1 (shsu-args-keywordify-odds args))) ;; debug (mapcar (lambda (arg) (shsm (format "%S .. %S" arg (type-of arg)))) args1) (apply 'beep-sh args1) (shs-bye))) (apply 'beep-sh-sh command-line-args-left) _______________________________________________ Gnu-emacs-sources mailing list Gnu-emacs-sources@gnu.org http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
