beep.sh, add-on for beep.el

[D Goel]

 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)