Auto hide option, settings order

Closes #185

lib/ide-haskell.coffee

@@ -8,15 +8,17 @@ module.exports = IdeHaskell =
       type: "boolean"
       default: false
       description: "Run file through stylish-haskell before save"
-
+      order: 20
     switchTabOnCheck:
       type: "boolean"
       default: true
       description: "Switch to error tab after file check finished"
+      order: 10
     expressionTypeInterval:
       type: "integer"
       default: 300
       description: "Type/Info tooltip show delay, in ms"
+      order: 30
     onCursorMove:
       type: 'string'
       description: '''
@@ -26,38 +28,52 @@ module.exports = IdeHaskell =
       '''
       enum: ['Show Tooltip', 'Hide Tooltip', 'Nothing']
       default: 'Nothing'
+      order: 40
     stylishHaskellPath:
       type: "string"
       default: 'stylish-haskell'
       description: "Path to `stylish-haskell` utility or other prettifier"
+      order: 60
     stylishHaskellArguments:
       type: 'array'
       default: []
       description: 'Additional arguments to pass to prettifier; comma-separated'
       items:
         type: 'string'
+      order: 70
     cabalPath:
       type: "string"
       default: 'cabal'
       description: "Path to `cabal` utility, for `cabal format`"
+      order: 50
     startupMessageIdeBackend:
       type: "boolean"
       default: true
       description: "Show info message about haskell-ide-backend service on
                     activation"
+      order: 80
     panelPosition:
       type: 'string'
       default: 'bottom'
       description: '''
       Output panel position
       '''
       enum: ['bottom', 'left', 'top', 'right']
+      order: 41
     hideParameterValues:
       type: 'boolean'
       default: false
       description: '''
       Hide additional plugin parameter values until hovered
       '''
+      order: 12
+    autoHideOutput:
+      type: 'boolean'
+      default: false
+      description: '''
+      Hide panel output when there are no new messages to show
+      '''
+      order: 11
 
   cleanConfig: ->
     [ 'onSaveCheck'

lib/output-panel/views/output-panel-buttons.coffee

@@ -39,13 +39,18 @@ class OutputPanelButtons extends HTMLElement
   buttonNames: ->
     Object.keys @buttons
 
-  clickButton: (btn) ->
+  clickButton: (btn, force = false) ->
     if @buttons[btn]?
+      isActive = @buttons[btn].element.classList.contains 'active'
       for v in @getElementsByClassName 'active'
         v.classList.remove 'active'
-      @buttons[btn].element.classList.add 'active'
+      @buttons[btn].element.classList.add 'active' if not isActive or force
       @emitter.emit 'button-clicked', btn
 
+  disableAll: ->
+    for v in @getElementsByClassName 'active'
+      v.classList.remove 'active'
+
   setCount: (btn, count) ->
     if @buttons[btn]?
       @buttons[btn].element.setAttribute 'data-count', count
@@ -55,7 +60,7 @@ class OutputPanelButtons extends HTMLElement
     @disposables.dispose()
 
   getActive: ->
-    @getElementsByClassName('active')[0]?.getAttribute?('data-caption')
+    @getElementsByClassName('active')[0]?.getAttribute?('data-caption') ? null
 
 OutputPanelButtonsElement =
   document.registerElement 'ide-haskell-panel-buttons',

lib/output-panel/views/output-panel.coffee

@@ -2,14 +2,20 @@ module.exports=
 class OutputPanelView extends HTMLElement
   setModel: (@model) ->
     @disposables.add @model.results.onDidUpdate ({types}) =>
-      if atom.config.get('ide-haskell.switchTabOnCheck')
-        @activateFirstNonEmptyTab types
+      if atom.config.get('ide-haskell.autoHideOutput') and \
+          types.map((type) => @model.results.filter(severity: type).length).every((l) -> l is 0)
+        @buttons.disableAll()
+      else
+        if atom.config.get('ide-haskell.switchTabOnCheck')
+          @activateFirstNonEmptyTab types
       @updateItems()
     @items.setModel @model.results
 
     @style.height = @model.state.height if @model.state?.height?
     @style.width = @model.state.width if @model.state?.width?
-    @activateTab(@model.state.activeTab ? @buttons.buttonNames()[0])
+    @activateTab(@model.state.activeTab) if @model.state?.activeTab?
+    if @model.state?.activeTab is undefined
+      @activateTab(@buttons.buttonNames()[0])
     @checkboxUriFilter.setFileFilter @model.state.fileFilter
 
     @
@@ -131,21 +137,25 @@ class OutputPanelView extends HTMLElement
       document.documentElement.addEventListener 'mouseup', stopDrag
   updateItems: ->
     activeTab = @getActiveTab()
-    filter = severity: activeTab
-    if @checkboxUriFilter.getFileFilter()
-      uri = atom.workspace.getActiveTextEditor()?.getPath?()
-      filter.uri = uri if uri? and @buttons.options(activeTab).uriFilter
-    scroll = @buttons.options(activeTab).autoScroll and @items.atEnd()
-    @items.filter filter
-    @items.scrollToEnd() if scroll
+    if activeTab?
+      @classList.remove 'hidden-output'
+      filter = severity: activeTab
+      if @checkboxUriFilter.getFileFilter()
+        uri = atom.workspace.getActiveTextEditor()?.getPath?()
+        filter.uri = uri if uri? and @buttons.options(activeTab).uriFilter
+      scroll = @buttons.options(activeTab).autoScroll and @items.atEnd()
+      @items.filter filter
+      @items.scrollToEnd() if scroll
+    else
+      @classList.add 'hidden-output'
 
     for btn in @buttons.buttonNames()
       f = severity: btn
       f.uri = uri if uri? and @buttons.options(btn).uriFilter
       @buttons.setCount btn, @model.results.filter(f).length
 
   activateTab: (tab) ->
-    @buttons.clickButton tab
+    @buttons.clickButton tab, true
 
   activateFirstNonEmptyTab: (types) ->
     for name in @buttons.buttonNames() when (if types? then name in types else true)
@@ -172,8 +182,6 @@ class OutputPanelView extends HTMLElement
   createTab: (name, opts) ->
     unless name in @buttons.buttonNames()
       @buttons.createButton name, opts
-    unless @getActiveTab()?
-      @activateTab @buttons.buttonNames()[0]
 
   setProgress: (progress) ->
     switch atom.config.get('ide-haskell.panelPosition')

lib/results-db.coffee

@@ -51,3 +51,6 @@ class ResultsDB
     @results.filter (item) ->
       b = (item[k] is v for k, v of template)
       b.every (v) -> v
+
+  isEmpty: ->
+    @results.length is 0

styles/ide-haskell.less

@@ -45,6 +45,16 @@ ide-haskell-panel {
     position: absolute;
   }
 
+  &.hidden-output {
+    height: auto !important;
+    width: auto !important;
+    min-height: inherit !important;
+    min-width: inherit !important;
+    ide-haskell-panel-items {
+      display: none;
+    }
+  }
+
   &[data-pos=top], &[data-pos=bottom] {
     min-height: 120px;
     max-height: 50vh;