;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'haskell) (defvar ghci-script-mode-keywords '(("^[ ]*--.*" . font-lock-comment-face) ("^ *\\([^ :]+\\):" (1 font-lock-keyword-face)) ("^:[a-z{]+ *\\+" . font-lock-keyword-face) ("^:[a-z{]+ " . font-lock-keyword-face))) (defvar ghci-script-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [ghci-script-mode-hook variable-documentation put "Hook run after entering GHCi-Script mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp ghci-script-mode-map definition-name ghci-script-mode] 4) (defvar ghci-script-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [ghci-script-mode-abbrev-table ghci-script-mode-map variable-documentation put purecopy "Keymap for `ghci-script-mode'." boundp ghci-script-mode-syntax-table definition-name ghci-script-mode (lambda (#1=#:def-tmp-var) (defvar ghci-script-mode-syntax-table #1#)) make-syntax-table "Syntax table for `ghci-script-mode'." (lambda (#1#) (defvar ghci-script-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `ghci-script-mode'." derived-mode-parent text-mode] 5) #@242 Major mode for working with .ghci files. In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `ghci-script-mode-hook', as the final or penultimate step during initialization. \{ghci-script-mode-map} (defalias 'ghci-script-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R 3=\204R\326 \3253C#\210\327 !\210\330\f!\210 3\306\331!\210\332\306\333!\210\334\306\335!\210\336\306\337!\210\340\306\341!\210\342!\306\343!\210\344#\306\345!\210\346%\306\347!\210\332'\306\350!\210\351(\352\353!\203\245\307+\306\354!\210\332,\306\355!\210\332-\306\356!\210\332.\306\357!\210\360/\3324)\361\362!\207" [delay-mode-hooks major-mode mode-name ghci-script-mode-map ghci-script-mode-syntax-table ghci-script-mode-abbrev-table make-local-variable t text-mode ghci-script-mode "GHCi-Script" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table adaptive-fill-mode nil comment-start "-- " comment-padding 0 comment-start-skip "[-{]-[ ]*" comment-end "" comment-end-skip "[ ]*\\(-}\\|\\s>\\)" font-lock-defaults (ghci-script-mode-keywords t t nil nil) indent-tabs-mode tab-width 8 boundp electric-indent-inhibit dabbrev-case-fold-search dabbrev-case-distinction dabbrev-case-replace dabbrev-abbrev-char-regexp "\\sw\\|[.]" run-mode-hooks ghci-script-mode-hook local-abbrev-table haskell-literate] 5 (#$ . 1531) nil]) (byte-code "\301\302\303\"\210\304\305\306#\207" [ghci-script-mode-map add-to-list auto-mode-alist ("\\.ghci\\'" . ghci-script-mode) define-key "\f" ghci-script-mode-load] 4) #@53 Load the current script file into the GHCi session. (defalias 'ghci-script-mode-load #[0 "\301\302 !\303 \304 \210rq\210d\305\223\210\306\307P!)\207" [haskell-interactive-mode-prompt-start haskell-session-interactive-buffer haskell-session buffer-file-name save-buffer nil haskell-interactive-mode-run-expr ":script "] 5 (#$ . 3378) nil]) (provide 'ghci-script-mode)