plugins/hide-show/progs/init-hide-show.scm

   1
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; arch-tag: 2b7b32af-fade-4d57-a1d0-836dbec5d0cd
   3 ;;
   4 ;; MODULE      : init-hide-show.scm
   5 ;; DESCRIPTION : Initialize the 'hide-show' plugin
   6 ;; COPYRIGHT   : (C) 2004  David Allouche
   7 ;;
   8 ;; This software falls under the GNU general public license and comes WITHOUT
   9 ;; ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for details.
  10 ;; If you don't have this file, write to the Free Software Foundation, Inc.,
  11 ;; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  12 ;;
  13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14
  15 (lazy-define (interactive-proc) interactive-proc/callback-wrapper)
  16
  17 (define (hide-show-initialize)
  18   (lazy-define (hide-show) hide-ia)
  19   (lazy-define (hide-show) show-ia)
  20   (lazy-define (hide-show) show-all)
  21   (menu-extend tools-menu
  22     ---
  23     (-> "Hide and show"
  24         ("Hide..." (hide-ia))
  25         ("Show..." (show-ia))
  26         ("Show all" (show-all)))))
  27
  28 (plugin-configure hide-show
  29   (:require #t)
  30   (:initialize (hide-show-initialize)))