Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
270 lines (225 sloc) 9.77 KB
;;; haskell-session.el -- Haskell sessions.
;; Copyright (C) 2011-2012 Chris Done
;; Author: Chris Done <>
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;; Todo:
;;; Code:
(eval-when-compile (require 'cl))
(require 'haskell-cabal)
(require 'haskell-string)
;; Globals
(defvar haskell-sessions (list)
"All Haskell sessions in the Emacs session.")
(defun haskell-session-tags-filename (session)
"Get the filename for the TAGS file."
(concat (haskell-session-cabal-dir session) "/TAGS"))
(defun haskell-session-all-modules ()
"Get all modules -- installed or in the current project."
(remove-if (lambda (x) (string= x ""))
(append (haskell-session-installed-modules)
(defun haskell-session-installed-modules ()
"Get the modules installed in the current package set."
;; TODO: Again, this makes HEAVY use of unix utilities. It'll work
;; fine in Linux, probably okay on OS X, and probably not at all on
;; Windows. Again, if someone wants to test on Windows and come up
;; with alternatives that's OK.
;; Ideally all these package queries can be provided by a Haskell
;; program based on the Cabal API. Possibly as a nice service. Such
;; a service could cache and do nice things like that. For now, this
;; simple shell script takes us far.
;; Probably also we can take the code from inferior-haskell-mode.
;; Ugliness aside, if it saves us time to type it's a winner.
(let ((modules (shell-command-to-string
(format "%s | %s | %s | %s"
(if (equal 'cabal-dev haskell-process-type)
(format "cabal-dev -s %s/cabal-dev ghc-pkg dump"
(haskell-session-cabal-dir (haskell-session)))
"ghc-pkg dump")
"egrep '^(exposed-modules:| )'"
"tr ' ' '\n'"
"grep '^[A-Z]'"))))
(split-string modules "\n")))
(defun haskell-session-project-modules ()
"Get the modules of the current project."
(let* ((session (haskell-session))
(format "%s && %s"
(format "cd %s" (haskell-session-cabal-dir session))
;; TODO: Use a different, better source. Possibly hasktags or some such.
;; TODO: At least make it cross-platform. Linux
;; (and possibly OS X) have egrep, Windows
;; doesn't -- or does it via Cygwin or MinGW?
;; This also doesn't handle module\nName. But those gits can just cut it out!
"egrep '^module [^ (\r]+' * -r -I --include='*hs' -o -h | sed 's/^module //'"))))
(split-string modules "\n")))
;; Finding/clearing the session
(defun haskell-session-maybe ()
"Maybe get the Haskell session, return nil if there isn't one."
(if (default-boundp 'haskell-session)
(setq haskell-session nil)))
(defun haskell-session ()
"Get the Haskell session, prompt if there isn't one or fail."
(or (haskell-session-maybe)
(or (haskell-session-from-buffer)
(defun haskell-session-new-assume-from-cabal ()
"Prompt to create a new project based on a guess from the nearest Cabal file."
(when (y-or-n-p (format "Start a new project named “%s”? "
(haskell-session-make (haskell-session-default-name))))
(defun haskell-session-from-buffer ()
"Get the session based on the buffer."
(let ((sessions (remove-if-not (lambda (session)
(haskell-is-prefix-of (file-name-directory (buffer-file-name))
(haskell-session-cabal-dir session)))
(sort sessions (lambda (a b) (< (length (haskell-session-cabal-dir a))
(length (haskell-session-cabal-dir b)))))
(when (consp sessions)
(car sessions))))
(defun haskell-session-new ()
"Make a new session."
(let ((name (read-from-minibuffer "Project name: " (haskell-session-default-name))))
(when (not (string= name ""))
(haskell-session-make name))))
(defun haskell-session-default-name ()
"Generate a default project name for the new project prompt."
(let ((file (haskell-cabal-find-file)))
(or (when file
(downcase (file-name-sans-extension
(file-name-nondirectory file))))
(defun haskell-session-assign (session)
"Set the current session."
(set (make-local-variable 'haskell-session) session))
(defun haskell-session-choose ()
"Find a session by choosing from a list of the current sessions."
(when haskell-sessions
(let* ((session-name (ido-completing-read
"Choose Haskell session: "
(mapcar 'haskell-session-name haskell-sessions)))
(session (find-if (lambda (session)
(string= (haskell-session-name session)
(defun haskell-session-clear ()
"Clear the buffer of any Haskell session choice."
(set (make-local-variable 'haskell-session) nil))
(defun haskell-session-clear-all ()
"Clear the buffer of any Haskell session choice."
(setq haskell-sessions nil))
(defun haskell-session-change ()
"Change the session for the current buffer."
(defun haskell-session-strip-dir (session file)
"Strip the load dir from the file path."
(let ((cur-dir (haskell-session-current-dir session)))
(if (> (length file) (length cur-dir))
(if (string= (substring file 0 (length cur-dir))
"^[/\\]" ""
(substring file
(length cur-dir)))
;; Building the session
(defun haskell-session-make (name)
"Make a Haskell session."
(let ((session (set (make-local-variable 'haskell-session)
(list (cons 'name name)))))
(add-to-list 'haskell-sessions session)
(haskell-process-start session)
;; Accessing the session
(defun haskell-session-name (s)
"Get the session name."
(haskell-session-get s 'name))
(defun haskell-session-interactive-buffer (s)
"Get the session interactive buffer."
(let ((buffer (haskell-session-get s 'interactive-buffer)))
(if (and buffer (buffer-live-p buffer))
(let ((buffer (get-buffer-create (format "*%s*" (haskell-session-name s)))))
(haskell-session-set-interactive-buffer s buffer)
(with-current-buffer buffer
(haskell-interactive-mode s))
(switch-to-buffer-other-window buffer)
(defun haskell-session-set-interactive-buffer (s v)
"Set the session interactive buffer."
(haskell-session-set s 'interactive-buffer v))
(defun haskell-session-set-process (s v)
"Set the session process."
(haskell-session-set s 'process v))
(defun haskell-session-process (s)
"Get the session process."
(haskell-session-get s 'process))
(defun haskell-session-set-cabal-dir (s v)
"Set the session cabal-dir."
(haskell-session-set s 'cabal-dir v)
(haskell-session-set-cabal-checksum s v))
(defun haskell-session-set-current-dir (s v)
"Set the session current directory."
(haskell-session-set s 'current-dir v))
(defun haskell-session-set-cabal-checksum (s cabal-dir)
"Set the session checksum of .cabal files"
(haskell-session-set s 'cabal-checksum
(haskell-cabal-compute-checksum cabal-dir)))
(defun haskell-session-current-dir (s)
"Get the session current directory."
(let ((dir (haskell-session-get s 'current-dir)))
(or dir
(haskell-process-cd t))))
(defun haskell-session-cabal-dir (s)
"Get the session cabal-dir."
(let ((dir (haskell-session-get s 'cabal-dir)))
(if dir
(let ((set-dir (haskell-cabal-get-dir)))
(if set-dir
(progn (haskell-session-set-cabal-dir s set-dir)
(haskell-session-cabal-dir s))))))
(defun haskell-session-get (s key)
"Get the session `key`."
(let ((x (assoc key s)))
(when x
(cdr x))))
(defun haskell-session-set (s key value)
"Set the session's `key`."
(delete-if (lambda (prop) (equal (car prop) key)) s)
(setf (cdr s) (cons (cons key value)
(cdr s))))
(provide 'haskell-session)
Jump to Line
Something went wrong with that request. Please try again.