blob: 4b3c38d5782a0fd68435a05ff2e19509468e1f3d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(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)
|
