You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
459 B
20 lines
459 B
13 years ago
|
(defvar designer-exec "/usr/bin/designer")
|
||
|
|
|
||
|
|
(defun designer-open-ui-file ()
|
||
|
|
(interactive)
|
||
|
|
(defvar procname "designer")
|
||
|
|
(start-process procname nil designer-exec "-client" buffer-file-name)
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun designer-create-ui-file (&optional arg)
|
||
|
|
(interactive "FNew UI-File: ")
|
||
|
|
(find-file arg)
|
||
|
|
(insert "<UI></UI>")
|
||
|
|
(save-buffer)
|
||
|
|
(designer-open-ui-file)
|
||
|
|
)
|
||
|
|
|
||
|
|
;(global-set-key [f7] 'designer-open-ui-file)
|
||
|
|
;(global-set-key [f8] 'designer-create-ui-file)
|
||
|
|
|