82 lines
2.4 KiB
EmacsLisp
82 lines
2.4 KiB
EmacsLisp
|
(require 'evil)
|
||
|
|
(require 'pollen-mode)
|
||
|
|
(require 'comint)
|
||
|
|
|
||
|
|
(defun insert-lozenge ()
|
||
|
|
"inserts the lozenge character for use with Pollen"
|
||
|
|
;; enables function through M-x
|
||
|
|
(interactive)
|
||
|
|
;; insert the proper character
|
||
|
|
(insert (make-char
|
||
|
|
'mule-unicode-2500-33ff 34 42)))
|
||
|
|
|
||
|
|
(defcustom pollen-target-format "pdf"
|
||
|
|
"Options to build pollen document"
|
||
|
|
:type 'string
|
||
|
|
:group 'pollen-mode)
|
||
|
|
|
||
|
|
(defun pollen-target-file (source)
|
||
|
|
(replace-regexp-in-string "\\.poly\\.pm"
|
||
|
|
(concat "." pollen-target-format)
|
||
|
|
source))
|
||
|
|
|
||
|
|
(defun pollen-build ()
|
||
|
|
"Build pollen document"
|
||
|
|
(interactive)
|
||
|
|
(let* ((tmp-buf (current-buffer))
|
||
|
|
(file-name (buffer-file-name))
|
||
|
|
(cmd (concat "raco pollen render "
|
||
|
|
(pollen-target-file file-name)))
|
||
|
|
(buf-name "*pollen compilation *"))
|
||
|
|
(if (fboundp 'compilation-start)
|
||
|
|
(compilation-start cmd nil #'(lambda (mode-name)
|
||
|
|
buf-name))
|
||
|
|
(compile-internal cmd "no more errors" buf-name))))
|
||
|
|
|
||
|
|
(defun pollen-set-target-format ()
|
||
|
|
(interactive)
|
||
|
|
(let ((fmt (read-string
|
||
|
|
"Output format:")))
|
||
|
|
(if (or (string= fmt "pdf")
|
||
|
|
(string= fmt "html")
|
||
|
|
(string= fmt "txt")
|
||
|
|
(string= fmt "ltx"))
|
||
|
|
(setq pollen-target-format fmt)
|
||
|
|
(message "Unsupported format %s\n" fmt))))
|
||
|
|
|
||
|
|
(defun pollen-view ()
|
||
|
|
(interactive)
|
||
|
|
(let* ((file-name (concat (pollen-target-file (buffer-file-name))))
|
||
|
|
(cmd "open")
|
||
|
|
(tmp-buf (current-buffer)))
|
||
|
|
(apply 'make-comint cmd cmd nil (list file-name))
|
||
|
|
(switch-to-buffer tmp-buf)
|
||
|
|
(switch-to-buffer-other-window (concat "*" cmd "*"))))
|
||
|
|
|
||
|
|
(defun pollen-reset ()
|
||
|
|
(interactive)
|
||
|
|
(let ((cmd "raco")
|
||
|
|
(tmp-buf (current-buffer)))
|
||
|
|
(apply 'make-comint cmd cmd nil (list "pollen" "reset"))
|
||
|
|
(switch-to-buffer tmp-buf)
|
||
|
|
(switch-to-buffer-other-window (concat "*" cmd "*"))))
|
||
|
|
|
||
|
|
(define-minor-mode evil-pollen-mode
|
||
|
|
"Buffer local minor mode for evil-pollen "
|
||
|
|
:init-value nil
|
||
|
|
:lighter "EvilPollen"
|
||
|
|
:keymap (make-sparse-keymap)
|
||
|
|
:group 'evil-pollen)
|
||
|
|
|
||
|
|
(mapc #'(lambda (state)
|
||
|
|
(evil-define-key state evil-pollen-mode-map
|
||
|
|
(kbd "M-b") 'pollen-build
|
||
|
|
(kbd "M-f") 'pollen-set-target-format
|
||
|
|
(kbd "M-v") 'pollen-view
|
||
|
|
(kbd "M-c") 'pollen-reset))
|
||
|
|
'(normal insert))
|
||
|
|
|
||
|
|
(global-set-key "\M-\\" 'insert-lozenge)
|
||
|
|
|
||
|
|
(provide 'evil-pollen)
|