;;;;;;;;; lojban defuns
(defun lojban-gloss () ""
  (interactive "r")
  (shell-command-on-region (region-beginning) (region-end)
"cmafihe -b"))
(defun lojban-parse () ""
  (interactive)
  (shell-command-on-region (region-beginning) (region-end)
"jbofihe -x -b"))

(defun lojban-fgrep (regexp) "fgrep lojban-common for a word"
  (interactive "sfgrep pattern: ")
  (grep (concat "fgrep -h \"" regexp  "\" /usr/share/lojban/*")))

;(global-set-key [(f9)] 'lojban-fgrep)


;(global-set-key [(f11)] 'lojban-parse)
; end lojban stuff

(message "loaded shae-lojban")
(provide 'shae-lojban)