[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
beep.sh, add-on for beep.el
From: |
D Goel |
Subject: |
beep.sh, add-on for beep.el |
Date: |
Fri, 29 Jul 2005 12:49:54 -0400 |
User-agent: |
Gnus/5.1007 (Gnus v5.10.7) Emacs/21.4 (gnu/linux) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- beep.sh, add-on for beep.el,
D Goel <=