diff options
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.el | 66 |
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) |