[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index], add-on for beep.el

From: D Goel
Subject:, 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), 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
;; 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:

;; Example usages:

;; (for some help) 

;; :p "v3 o3 c d e f g a b c4"

;; -p "v3 o3 c d e f g a b c4"

;; :p "v3 o3 c d e f g a b c4" :o 2 

;; :v -1 :p "v3 o3 c d e f g a b c4" :o 1 

;; ":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)
  (let ((args1 
         (shsu-args-keywordify-odds args)))
    ;; debug
     (lambda (arg)
       (shsm (format "%S .. %S" arg (type-of arg))))

    (apply 'beep-sh args1)

(apply 'beep-sh-sh command-line-args-left)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]