![]() ![]() | ![]() |
File: [local] / OpenXM_contrib2 / windows / post-msg-asirgui / Attic / asirgui.el (download)
Revision 1.1, Tue Aug 27 05:51:50 2013 UTC (10 years, 10 months ago) by takayama
The initial version to post messages to asirgui from text editors on windows. We supports emacs, terapad, hidemaru for now. See install-ja-sjis.txt. |
;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.el,v 1.1 2013/08/27 05:51:50 takayama Exp $ (defcustom asir-exec-path '("~/Desktop/asir/bin" "c:/Program Files/asir/bin" "c:/Program Files (x64)/asir/bin" "c:/asir/bin") "search path for asir binary") (defun asir-executable-find (command) "Search for command in asir-exec-path and exec-path" (let ((exec-path (append asir-exec-path exec-path))) (executable-find command))) (defun execute-current-buffer-on-asir () "Execute the current buffer on asir" (interactive) (let ((exec-path (append asir-exec-path exec-path))) (start-process "asir-proc-cmdasir" nil "cmdasir" (buffer-file-name)))) (defun start-asirgui () "Execute the current buffer on asir" (interactive) (let ((exec-path (append asir-exec-path exec-path))) (start-process "asir-proc-asirgui" nil "asirgui"))) (defun execute-region-on-asir () "Execute the region on asir" (interactive) (save-excursion (if (region-active-p) (let ((exec-path (append asir-exec-path exec-path)) (temp-file (make-temp-file (format "%s/asir-temp" (getenv "TEMP"))))) (write-region (region-beginning) (region-end) temp-file) (start-process "asir-proc-cmdasir" nil "cmdasir" temp-file))))) (define-key-after global-map [menu-bar asirgui] (cons "AsirGUI" (make-sparse-keymap "asirgui...")) 'tools ) (define-key global-map [menu-bar asirgui execute-region] '("Execute the region on asir" . execute-region-on-asir)) (define-key global-map [menu-bar asirgui execute-buffer] '("Execute the current buffer on asir" . execute-current-buffer-on-asir)) (define-key global-map [menu-bar asirgui start-asirgui] '("Start asirgui" . start-asirgui))