UPI 0.3

lib/editor-control.coffee

@@ -61,17 +61,36 @@ class EditorControl
       clearTimeout @exprTypeTimeout if @exprTypeTimeout?
 
     @disposables.add @editor.onDidChangeSelectionRange ({newBufferRange}) =>
+      slcl = editorElement.pixelRectForScreenRange(@editor.screenRangeForBufferRange(newBufferRange))
+      eecl = editorElement.querySelector('.scroll-view').getBoundingClientRect()
+      ttcl = document.querySelector('ide-haskell-tooltip')?.getBoundingClientRect?()
+      if ttcl?
+        ttcld = document.querySelector('ide-haskell-tooltip div').getBoundingClientRect()
+        ttbox =
+          left: ttcl.left - eecl.left
+          top: ttcld.top - eecl.top
+          width: ttcl.width
+          height: ttcld.height
+        xmax = Math.round(Math.max(ttbox.left, slcl.left))
+        xmin = Math.round(Math.min(ttbox.left + ttbox.width, slcl.left + slcl.width))
+        ymax = Math.round(Math.max(ttbox.top, slcl.top))
+        ymin = Math.round(Math.min(ttbox.top + ttbox.height, slcl.top + slcl.height))
+        if ymax <= ymin and xmax <= xmin
+          document.querySelector('ide-haskell-tooltip').style.setProperty('opacity', '0.3')
+        else
+          document.querySelector('ide-haskell-tooltip').style.removeProperty('opacity')
+
       clearTimeout @selTimeout if @selTimeout?
       if newBufferRange.isEmpty()
         @hideTooltip eventType: 'selection'
         switch atom.config.get('ide-haskell.onCursorMove')
           when 'Show Tooltip'
             clearTimeout @exprTypeTimeout if @exprTypeTimeout?
             unless @showCheckResult newBufferRange.start, false, 'keyboard'
-              @hideTooltip()
+              @hideTooltip(persistOnCursorMove: false)
           when 'Hide Tooltip'
             clearTimeout @exprTypeTimeout if @exprTypeTimeout?
-            @hideTooltip()
+            @hideTooltip(persistOnCursorMove: false)
       else
         @selTimeout = setTimeout (=> @shouldShowTooltip newBufferRange.start, 'selection'),
           atom.config.get('ide-haskell.expressionTypeInterval')
@@ -168,6 +187,7 @@ class EditorControl
     return unless @editor?
 
     throw new Error('eventType not set') unless detail.eventType
+    detail.persistOnCursorMove ?= false
 
     if range.isEqual(@tooltipHighlightRange)
       return

lib/ide-haskell.coffee

@@ -220,9 +220,14 @@ module.exports = IdeHaskell =
       ]
     ]
 
+    UPI = require './upi-0.3'
+    @upi3 = new UPI(@pluginManager)
+
   deactivate: ->
     @pluginManager.deactivate()
     @pluginManager = null
+    @upi3.dispose()
+    @upi3 = null
 
     atom.keymaps.removeBindingsFromSource 'ide-haskell'
 
@@ -242,6 +247,10 @@ module.exports = IdeHaskell =
     UPI = require './upi'
     new UPI(@pluginManager)
 
+  provideUpi3: ->
+    @upiProvided = true
+    @upi3
+
   consumeLinter: (indieRegistry) ->
     linter = indieRegistry.register
       name: 'IDE-Haskell'

lib/output-panel/output-panel.coffee

@@ -20,8 +20,6 @@ class OutputPanel
 
     @disposables.add @results.onDidUpdate => @currentResult = null
 
-    @backendStatus status: 'ready'
-
   toggle: ->
     if @panel.isVisible()
       @panel.hide()
@@ -49,9 +47,9 @@ class OutputPanel
   setHideParameterValues: (value) ->
     @element.setHideParameterValues(value)
 
-  backendStatus: ({status, progress}) ->
-    @element.statusChanged {status, oldStatus: @status ? 'ready'}
-    @status = status
+  backendStatus: (pluginName, statusObject) ->
+    {status, progress, detail} = statusObject
+    @element.statusChanged pluginName, {status, detail}
     unless status is 'progress'
       progress ?= 0
     @element.setProgress progress if progress?

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

@@ -15,6 +15,8 @@ class OutputPanelView extends HTMLElement
     @style.width = @model.state.width if @model.state?.width?
     @checkboxUriFilter.setFileFilter @model.state.fileFilter
 
+    @statusMap = new Map
+
     @
 
   createdCallback: ->
@@ -27,6 +29,19 @@ class OutputPanelView extends HTMLElement
       id: 'status'
       attrs:
         'data-status': 'ready'
+
+    @disposables.add atom.tooltips.add @status,
+      'class': 'ide-haskell-status-tooltip'
+      title: =>
+        (for [plugin, {status, detail}] in Array.from(@statusMap.entries())
+          """
+          <ide-haskell-status-item>
+            <ide-haskell-status-icon data-status=\"#{status}\">#{plugin}</ide-haskell-status-icon>
+            <ide-haskell-status-detail>#{detail ? ""}</ide-haskell-status-detail>
+          </ide-haskell-status-item>
+          """)
+        .join('')
+
     OutputPanelButtonsElement = require './output-panel-buttons'
     @disposables.add @addPanelControl new OutputPanelButtonsElement,
       id: 'buttons'
@@ -101,6 +116,8 @@ class OutputPanelView extends HTMLElement
     @remove()
     @items.destroy()
     @disposables.dispose()
+    @statusMap.clear()
+    @statusMap = null
 
   setPanelPosition: (@pos) ->
     @setAttribute 'data-pos', @pos
@@ -160,14 +177,15 @@ class OutputPanelView extends HTMLElement
         @activateTab name
         break
 
-  statusChanged: ({status, oldStatus}) ->
+  statusChanged: (pluginName, status) ->
     prio =
-      progress: 0
+      progress: 5
       error: 20
       warning: 10
       ready: 0
-    if prio[status] >= prio[oldStatus] or status is 'progress'
-      @status.setAttribute 'data-status', status
+    @statusMap.set(pluginName, status)
+    [consensus] = Array.from(@statusMap.values()).sort (a, b) -> prio[b.status] - prio[a.status]
+    @status.setAttribute 'data-status', consensus.status
 
   showItem: (item) ->
     @activateTab item.severity