;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'hideshow) #@48 Toggle visibility of existing forms at point.  (defalias 'haskell-hide-toggle #[0 "\301\302!\210\212\303 \304\305 \211@A\203,\211\203,\306\"\203&\307\"\210\202,\310\311#\210\312!)\266\204)\207" [inhibit-read-only hs-minor-mode 1 buffer-modified-p t haskell-indented-block overlays-in hs-discard-overlays hs-make-overlay code set-buffer-modified-p] 8 (#$ . 107) nil]) #@62 Returns `t' if line is empty or composed only of whitespace. (defalias 'haskell-blank-line-p #[0 "\212\300 \210\301 \302\303w\210`U)\207" [beginning-of-line point-at-eol "[:blank:]" nil] 3 (#$ . 494)]) #@52 return (start-of-indentation . end-of-indentation) (defalias 'haskell-indented-block #[0 "\300 \301\302!\301\303!\212\304\210`)\305U\203\305U\203\304\207\306 \203#\304\207V\2030\211\307\310\302\"B\207U\204<X\203F\307\311\303\"\307\311\302\"B\207\304\207" [current-indentation haskell-next-line-indentation 1 -1 nil 0 haskell-blank-line-p haskell-find-line-with-indentation > >=] 8 (#$ . 702)]) #@99 returns (integer) indentation of the next if dir=1, previous line indentation if dir=-1 (fn DIR) (defalias 'haskell-next-line-indentation #[257 "\212\211y\300U\203 \301 \204\302 )\207" [0 haskell-blank-line-p current-indentation] 3 (#$ . 1119)]) #@102 comparison is >= or >, direction if 1 finds forward, if -1 finds backward (fn COMPARISON DIRECTION) (defalias 'haskell-find-line-with-indentation #[514 "\212\300 y\301U\203\302 \204\300 \"\204\303U\203 \304y\210\305\210`\262)\207" [current-indentation 0 haskell-blank-line-p 1 -1 nil] 6 (#$ . 1376)]) #@31 hides all top level functions (defalias 'haskell-hide-toggle-all #[0 "\212db\210\300y\301U\205\302 b\210\303 \301U\203\304 \210\202)\207" [-1 0 point-at-bol current-indentation haskell-hide-toggle] 2 (#$ . 1697) nil]) #@43 Keymap for using `haskell-collapse-mode'. (defvar haskell-collapse-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\305#\210\207" [make-sparse-keymap define-key "@" haskell-hide-toggle [3 64 134217731] haskell-hide-toggle-all [3 64 134217747] [3 64 134217736]] 5) (#$ . 1927)) #@111 Non-nil if Haskell-Collapse mode is enabled. Use the command `haskell-collapse-mode' to change this variable. (defvar haskell-collapse-mode nil (#$ . 2254)) (make-variable-buffer-local 'haskell-collapse-mode) #@621 Minor mode to collapse and expand haskell expressions This is a minor mode. If called interactively, toggle the `Haskell-Collapse mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `haskell-collapse-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'haskell-collapse-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [haskell-collapse-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks haskell-collapse-mode-hook haskell-collapse-mode-on-hook haskell-collapse-mode-off-hook called-interactively-p any message "Haskell-Collapse mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 2470) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar haskell-collapse-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\314\315!\207" [haskell-collapse-mode-map haskell-collapse-mode-hook variable-documentation put "Hook run after entering or leaving `haskell-collapse-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode haskell-collapse-mode " Haskell-Collapse" provide haskell-collapse] 6)