Skip to content

Disable show identations by default #663

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
May 22, 2015
Merged

Disable show identations by default #663

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d46d5e9
Disable indentation overlays by default
geraldus May 22, 2015
cfe5c6e
Code cleanup
geraldus May 22, 2015
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
24 changes: 16 additions & 8 deletions haskell-indentation.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -49,15 +49,16 @@
:group 'haskell
:prefix "haskell-indentation-")

(defcustom haskell-indentation-show-indentations t
(defcustom haskell-indentation-show-indentations nil
"If t the current line's indentation points will be showed as
underscore overlays in new haskell-mode buffers. Use
`haskell-indentation-enable-show-indentations' and `haskell-indentation-disable-show-indentations'
to switch the behavior for already existing buffers."
`haskell-indentation-enable-show-indentations' and
`haskell-indentation-disable-show-indentations' to switch the
behavior for already existing buffers."
:type 'boolean
:group 'haskell-indentation)

(defcustom haskell-indentation-show-indentations-after-eol t
(defcustom haskell-indentation-show-indentations-after-eol nil
"If t, try to show indentation points after the end of line.
This requires strange overlay hacks and can collide with other
modes (e.g. fill-column-indicator)."
Expand Down Expand Up @@ -121,7 +122,14 @@ modes (e.g. fill-column-indicator)."
"Haskell indentation mode that deals with the layout rule.
It rebinds RET, DEL and BACKSPACE, so that indentations can be
set and deleted as if they were real tabs. It supports
autofill-mode."
autofill-mode.

It is possible to render indent stops for current line as
overlays. Please read documentation for option
`haskell-indentation-enable-show-indentations' and option
`haskell-indentation-show-indentations-after-eol'. These options
were disabled by default because in most cases occurs overlay
clashing with other modes."
:lighter " Ind"
:keymap haskell-indentation-mode-map
(kill-local-variable 'indent-line-function)
Expand Down Expand Up @@ -656,7 +664,7 @@ the current buffer."
(defun haskell-indentation-declaration-layout ()
(haskell-indentation-layout #'haskell-indentation-declaration))

;; a layout list with case expressions
;; a layout list with case expressions
(defun haskell-indentation-case-layout ()
(haskell-indentation-layout #'haskell-indentation-case))

Expand Down Expand Up @@ -905,7 +913,7 @@ the current buffer."
(throw 'parse-end nil))

;; after an 'open' expression such as 'if', exit
(unless (member (car parser) '("(" "[" "{" "do" "case"))
(unless (member (car parser) '("(" "[" "{" "do" "case"))
(throw 'return nil)))))))))

(defun haskell-indentation-test-indentations ()
Expand Down Expand Up @@ -961,7 +969,7 @@ the current buffer."
;; and current-indent after the separator
;; For example:
;; l = [ 1
;; , 2
;; , 2
;; , -- start now here

(defun haskell-indentation-at-separator ()
Expand Down