cgit.sxemacs.org Git - packages/blob - xemacs-packages/hyperbole/kotl/kmenu.el

   1 ;;; kmenu.el --- Pulldown and popup menus for kotl-mode, the Hyperbole Outliner.
   2
   3 ;; Copyright (C) 1994, 1995, 2006, 2007 Free Software Foundation, Inc.
   4 ;; Developed with support from Motorola Inc.
   5
   6 ;; Author: Bob Weiner, Brown U.
   7 ;; Maintainer: Mats Lidell <matsl@contactor.se>
   8 ;; Keywords: mouse, outlines, wp
   9
  10 ;; This file is part of GNU Hyperbole.
  11
  12 ;; GNU Hyperbole is free software; you can redistribute it and/or
  13 ;; modify it under the terms of the GNU General Public License as
  14 ;; published by the Free Software Foundation; either version 3, or (at
  15 ;; your option) any later version.
  16
  17 ;; GNU Hyperbole is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20 ;; General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  25 ;; Boston, MA 02110-1301, USA.
  26
  27 ;;; Commentary:
  28
  29 ;;; Code:
  30
  31 ;;;
  32 ;;; Public variables
  33 ;;;
  34
  35 (defconst kmenu:menu
  36   '("Koutline"
  37     ["All-Cells-Attributes" (kotl-modecell-help nil -1)  t]
  38     ["Help"                describe-mode                  t]
  39     ["Manual"              (id-info "(hyperbole.info)Outliner") t]
  40     "----"
  41     ("Edit"
  42      ["Set-Cell-Attribute"  kotl-mode:set-cell-attribute   t]
  43      "----"
  44      ["Add-Child"           kotl-mode:add-child            t]
  45      ["Add-Cell"            kotl-mode:add-cell             t]
  46      ["Add-Parent"          kotl-mode:add-parent           t]
  47      ["Append-Cell"         kotl-mode:append-cell          t]
  48      ["Split-Cell"          kotl-mode:split-cell           t]
  49      "----"
  50      ["Kill-to-Cell-End"    kotl-mode:kill-contents        t]
  51      ["Kill-Tree"           kotl-mode:kill-tree            t]
  52      ["Yank"                kotl-mode:yank                 t]
  53      "----"
  54      ["Copy-After-Cell"     kotl-mode:copy-after           t]
  55      ["Copy-Before-Cell"    kotl-mode:copy-before          t]
  56      ["Move-After-Cell"     kotl-mode:move-after           t]
  57      ["Move-Before-Cell"    kotl-mode:move-before          t]
  58      "----"
  59      ["Fill"                kotl-mode:fill-cell            t]
  60      ["Fill-Paragraph"      kotl-mode:fill-paragraph       t]
  61      ["Set-Fill-Prefix"     kotl-mode:set-fill-prefix      t]
  62      )
  63     ("Jump-to"
  64      ["Cell"                kotl-mode:goto-cell            t]
  65      "----"
  66      ["Cell-Beginning"      kotl-mode:beginning-of-cell    t]
  67      ["Cell-End"            kotl-mode:end-of-cell          t]
  68      "----"
  69      ["Child"               kotl-mode:down-level           t]
  70      ["Parent"              kotl-mode:up-level             t]
  71      "----"
  72      ["Next-Cell"           kotl-mode:next-cell            t]
  73      ["Prev-Cell"           kotl-mode:previous-cell        t]
  74      "----"
  75      ["Next-Same-Level"     kotl-mode:forward-cell         t]
  76      ["Prev-Same-Level"     kotl-mode:backward-cell        t]
  77      "----"
  78      ["First-Sibling"       kotl-mode:first-sibling        t]
  79      ["Last-Sibling"        kotl-mode:last-sibling         t]
  80      "----"
  81      ["Beginning-of-Tree"   kotl-mode:beginning-of-tree    t]
  82      ["End-of-Tree"         kotl-mode:end-of-tree          t]
  83      "----"
  84      ["First-Cell"          kotl-mode:beginning-of-buffer  t]
  85      ["Last-Cell"           kotl-mode:end-of-buffer        t]
  86      )
  87     ("Label-Type"
  88      ["Alphanumeric (Default)"  (kview:set-label-type kview 'alpha)  t]
  89      ["Legal"                   (kview:set-label-type kview 'legal)  t]
  90      ["None"                    (kview:set-label-type kview 'no)     t]
  91      ["Partial-Alpha"           (kview:set-label-type kview 'partial-alpha) t]
  92      ["Permanent-Idstamp"       (kview:set-label-type kview 'id)     t]
  93      ["Stars"                   (kview:set-label-type kview 'star) t]
  94      )
  95     ("Link"
  96      ["Add-at-Point"        klink:create                   t]
  97      )
  98     ("Tree"
  99      ["Copy-to-Buffer"      kotl-mode:copy-to-buffer       t]
 100      ["Demote"              kotl-mode:demote-tree          t]
 101      ["Kill"                kotl-mode:kill-tree            t]
 102      ["Mail"                kotl-mode:mail-tree            t]
 103      ["Promote"             kotl-mode:promote-tree         t]
 104      ["Show-Attributes"     (kotl-modecell-help nil 2)   t]
 105      "----"
 106      ["Copy-After-Cell"     kotl-mode:copy-after           t]
 107      ["Copy-Before-Cell"    kotl-mode:copy-before          t]
 108      ["Move-After-Cell"     kotl-mode:move-after           t]
 109      ["Move-Before-Cell"    kotl-mode:move-before          t]
 110      )
 111     ("View"
 112      ["Set-View-Spec"       kvspec:activate                t]
 113      ["Toggle-Blank-Lines"  kvspec:toggle-blank-lines      t]
 114      "----"
 115      ["Set-Cell-Attribute"   kotl-mode:set-cell-attribute  t]
 116      ["Show-Cell-Attributes" (kotl-modecell-help)        t]
 117      ["All-Cells-Attributes" (kotl-modecell-help nil -1) t]
 118      ["Show-Tree-Attributes" (kotl-modecell-help nil 2)  t]
 119      "----"
 120      ["Hide (Collapse)"     kotl-mode:hide-tree            t]
 121      ["Hide-Levels"         kotl-mode:hide-sublevels       t]
 122      ["Hide-Subtree"        kotl-mode:hide-subtree         t]
 123      ["Overview"            kotl-mode:overview             t]
 124      "----"
 125      ["Show (Expand)"       kotl-mode:show-tree            t]
 126      ["Show-All"            kotl-mode:show-all             t]
 127      ["Show-Subtree"        kotl-mode:show-subtree         t]
 128      ["Show-Top-Level-Only" kotl-mode:top-cells            t]
 129      )
 130     "----"
 131     ["Find (Open)"         find-file                      t]
 132     ["Find-Read-Only"      find-file-read-only            t]
 133     ["Save"                save-buffer                    t]
 134     ["Toggle-Read-Only"    toggle-read-only               t]
 135     ["Write (Save as)"     kfile:write                    t]
 136     "----"
 137     ["Quit"                (id-tool-quit '(kill-buffer nil))  t]
 138     ))
 139
 140 ;;;
 141 ;;; Public functions
 142 ;;;
 143
 144 (provide 'kmenu)
 145
 146 ;;; kmenu.el ends here