Return to asirgui.el CVS log | Up to [local] / OpenXM_contrib2 / windows / post-msg-asirgui |
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, 9 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))