;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require haskell-mode haskell-session] 2) #@41 Keymap for `haskell-presentation-mode'. (defvar haskell-presentation-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\207" [make-sparse-keymap define-key "q" quit-window "c" haskell-presentation-clear] 5) (#$ . 169)) (defvar haskell-presentation-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [haskell-presentation-mode-hook variable-documentation put "Hook run after entering Presentation mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp haskell-presentation-mode-map definition-name haskell-presentation-mode] 4) (defvar haskell-presentation-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" [haskell-presentation-mode-abbrev-table haskell-presentation-mode-map variable-documentation put purecopy "Keymap for `haskell-presentation-mode'." boundp haskell-presentation-mode-syntax-table definition-name haskell-presentation-mode (lambda (#1=#:def-tmp-var) (defvar haskell-presentation-mode-syntax-table #1#)) make-syntax-table "Syntax table for `haskell-presentation-mode'." (lambda (#1#) (defvar haskell-presentation-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `haskell-presentation-mode'." derived-mode-parent haskell-mode] 5) #@261 Major mode for viewing Haskell snippets. \{hypertext-mode-map} In addition to any hooks its parent mode `haskell-mode' might have run, this mode runs the hook `haskell-presentation-mode-hook', as the final or penultimate step during initialization. (defalias 'haskell-presentation-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 =\204R\326 \325C#\210\327 !\210\330\f!\210 \331)\332\333!\207" [delay-mode-hooks major-mode mode-name haskell-presentation-mode-map haskell-presentation-mode-syntax-table haskell-presentation-mode-abbrev-table make-local-variable t haskell-mode haskell-presentation-mode "Presentation" 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 nil run-mode-hooks haskell-presentation-mode-hook local-abbrev-table case-fold-search] 5 (#$ . 1750) nil]) #@35 Haskell Presentation buffer name. (defconst haskell-presentation-buffer-name "*Haskell Presentation*" (#$ . 2852)) #@54 Hint message appered in Haskell Presentation buffer. (defconst haskell-presentation-hint-message "-- Hit `q' to close this window; `c' to clear.\n\n" (#$ . 2973)) #@118 Return Haskell Presentaion buffer. Return current presenation buffer or create new one if absent. Never returns nil. (defalias 'haskell-presentation-buffer #[0 "\303!\211\203\207\304!r\211q\210 c\210\305 \210\306)\207" [haskell-presentation-buffer-name haskell-presentation-hint-message buffer-read-only get-buffer generate-new-buffer haskell-presentation-mode t] 3 (#$ . 3143)]) #@36 Clear Haskell Presentation buffer. (defalias 'haskell-presentation-clear #[0 "\303!\211\205r\211q\210\304\305 \210\nc*\207" [haskell-presentation-buffer-name buffer-read-only haskell-presentation-hint-message get-buffer nil erase-buffer] 2 (#$ . 3534) nil]) #@293 Present given code in a popup buffer. Creates temporal Haskell Presentation buffer and assigns it to given haskell SESSION; presented CODE will be fontified as haskell code. Give an optional non-nil CLEAR arg to clear the buffer before presenting message. (fn SESSION CODE &optional CLEAR) (defalias 'haskell-presentation-present #[770 "\303 r\211q\210\304\300!\203\305\300!\210\306\203\307 \210\310!\210eb\210\311y\210\212\306\312\261\210+\n\313=\2036\314!\207\315!\207" [shm-display-quarantine buffer-read-only major-mode haskell-presentation-buffer boundp make-local-variable nil haskell-presentation-clear haskell-session-assign 2 "\n\n" haskell-presentation-mode switch-to-buffer pop-to-buffer] 6 (#$ . 3803)]) (provide 'haskell-presentation-mode)