|
0
|
1 ;;; -*- Mode: Emacs-Lisp -*-
|
|
|
2 ;;; Adds a couple of ObjectStore commands to the Energize "Browse" menu.
|
|
|
3
|
|
|
4 (defun osbrowser-sentinel (proc msg)
|
|
|
5 (cond ((eq (process-status proc) 'exit)
|
|
|
6 (message "Osbrowser subprocess exited"))
|
|
|
7 ((eq (process-status proc) 'signal)
|
|
|
8 (message "Osbrowser subprocess killed"))))
|
|
|
9
|
|
|
10 (defun os-browser ()
|
|
|
11 (interactive)
|
|
|
12 (message "Launching osbrowser.")
|
|
|
13 (set-process-sentinel
|
|
|
14 (start-process "os-browser" "*os-browser*" "osbrowser")
|
|
|
15 'osbrowser-sentinel))
|
|
|
16
|
|
|
17 (defun ossd-sentinel (proc msg)
|
|
|
18 (cond ((eq (process-status proc) 'exit)
|
|
|
19 (message "OS schema designer subprocess exited"))
|
|
|
20 ((eq (process-status proc) 'signal)
|
|
|
21 (message "OS schema designer subprocess killed"))))
|
|
|
22
|
|
|
23 (defun os-schema-designer ()
|
|
|
24 (interactive)
|
|
|
25 (message "Launching ossd.")
|
|
|
26 (set-process-sentinel
|
|
|
27 (start-process "os-schema-designer" "*os-schema-designer*" "ossd")
|
|
|
28 'osbrowser-sentinel))
|
|
|
29
|
|
|
30 (add-menu-item '("Browse") "----" nil t)
|
|
|
31 (add-menu-item '("Browse") "OS Browser" 'os-browser t)
|
|
|
32 (add-menu-item '("Browse") "OS Schema Designer" 'os-schema-designer t)
|
|
|
33
|
|
|
34 (provide 'ostore)
|
