about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/haskell-mode-20180913.348/ghci-script-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/haskell-mode-20180913.348/ghci-script-mode.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/haskell-mode-20180913.348/ghci-script-mode.el66
1 files changed, 0 insertions, 66 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/haskell-mode-20180913.348/ghci-script-mode.el b/configs/shared/emacs/.emacs.d/elpa/haskell-mode-20180913.348/ghci-script-mode.el
deleted file mode 100644
index 2ec905cd14ca..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/haskell-mode-20180913.348/ghci-script-mode.el
+++ /dev/null
@@ -1,66 +0,0 @@
-;;; ghci-script-mode.el --- GHCi scripts major mode -*- lexical-binding: t -*-
-
-;; Copyright (c) 2014 Chris Done. All rights reserved.
-
-;; 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
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Code:
-
-(require 'haskell)
-
-(defvar ghci-script-mode-keywords
-  ;; The comment syntax can't be described simply in syntax-table.
-  ;; We could use font-lock-syntactic-keywords, but is it worth it?
-  '(("^[ \t]*--.*" . font-lock-comment-face)
-    ("^ *\\([^ \t:]+\\):" (1 font-lock-keyword-face))
-    ("^:[a-z{]+ *\\+" . font-lock-keyword-face)
-    ("^:[a-z{]+ " . font-lock-keyword-face)))
-
-;;;###autoload
-(define-derived-mode ghci-script-mode text-mode "GHCi-Script"
-  "Major mode for working with .ghci files."
-  (setq-local adaptive-fill-mode nil)
-  (setq-local comment-start "-- ")
-  (setq-local comment-padding 0)
-  (setq-local comment-start-skip "[-{]-[ \t]*")
-  (setq-local comment-end "")
-  (setq-local comment-end-skip "[ \t]*\\(-}\\|\\s>\\)")
-  (setq-local font-lock-defaults '(ghci-script-mode-keywords t t nil nil))
-  (setq-local indent-tabs-mode nil)
-  (setq-local tab-width 8)
-  (when (boundp 'electric-indent-inhibit)
-    (setq electric-indent-inhibit t))
-  (setq-local dabbrev-case-fold-search nil)
-  (setq-local dabbrev-case-distinction nil)
-  (setq-local dabbrev-case-replace nil)
-  (setq-local dabbrev-abbrev-char-regexp "\\sw\\|[.]")
-  (setq haskell-literate nil))
-
-;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.ghci\\'" . ghci-script-mode))
-
-(define-key ghci-script-mode-map (kbd "C-c C-l") 'ghci-script-mode-load)
-
-(defun ghci-script-mode-load ()
-  "Load the current script file into the GHCi session."
-  (interactive)
-  (let ((buffer (haskell-session-interactive-buffer (haskell-session)))
-        (filename (buffer-file-name)))
-    (save-buffer)
-    (with-current-buffer buffer
-      (set-marker haskell-interactive-mode-prompt-start (point-max))
-      (haskell-interactive-mode-run-expr
-       (concat ":script " filename)))))
-
-(provide 'ghci-script-mode)