67 lines
1.7 KiB
EmacsLisp
67 lines
1.7 KiB
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;
|
|
;;; ghc-func.el
|
|
;;;
|
|
|
|
;; Author: Kazu Yamamoto <Kazu@Mew.org>
|
|
;; Created: Sep 25, 2009
|
|
|
|
;;; Code:
|
|
|
|
(defun ghc-replace-character (string from to)
|
|
"Replace characters equal to FROM to TO in STRING."
|
|
(let ((ret (copy-sequence string)))
|
|
(dotimes (cnt (length ret) ret)
|
|
(if (char-equal (aref ret cnt) from)
|
|
(aset ret cnt to)))))
|
|
|
|
(defun ghc-which (cmd)
|
|
(catch 'loop
|
|
(dolist (suffix '("" ".exe"))
|
|
(let ((cmds (concat cmd suffix)))
|
|
(dolist (dir exec-path)
|
|
(let ((path (expand-file-name cmds dir)))
|
|
(if (file-exists-p path)
|
|
(throw 'loop path))))))))
|
|
|
|
(defun ghc-uniq-lol (lol)
|
|
(let ((hash (make-hash-table :test 'equal))
|
|
ret)
|
|
(dolist (lst lol)
|
|
(dolist (key lst)
|
|
(puthash key key hash)))
|
|
(maphash (lambda (key val) (setq ret (cons key ret))) hash)
|
|
ret))
|
|
|
|
(defun ghc-read-lisp (func)
|
|
(with-temp-buffer
|
|
(funcall func)
|
|
(goto-char (point-min))
|
|
(condition-case nil
|
|
(read (current-buffer))
|
|
(error ()))))
|
|
|
|
(defun ghc-extract-module ()
|
|
(interactive)
|
|
(save-excursion
|
|
(beginning-of-line)
|
|
(if (looking-at "^\\(import\\|module\\) +\\(qualified +\\)?\\([^ (\n]+\\)")
|
|
(match-string-no-properties 3))))
|
|
|
|
(defun ghc-read-module-name (def)
|
|
(read-from-minibuffer "Module name: " def ghc-input-map))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defvar ghc-module-command "ghc-mod")
|
|
(defvar ghc-ghc-command (ghc-which "ghc"))
|
|
(defvar ghc-ghci-command (ghc-which "ghci"))
|
|
(defvar ghc-ghc-pkg-command (ghc-which "ghc-pkg"))
|
|
|
|
(defun ghc-module-command-args ()
|
|
(list "-g" ghc-ghc-command
|
|
"-i" ghc-ghci-command
|
|
"-p" ghc-ghc-pkg-command))
|
|
|
|
(provide 'ghc-func)
|