Status bar tile

Author: lierdakil

lib/ide-haskell.js

@@ -31,6 +31,16 @@
       "versions": {
         "1.0.0": "consumeLinter"
       }
+    },
+    "status-bar": {
+      "versions": {
+        "^1.0.0": "consumeStatusBar"
+      }
+    },
+    "ide-haskell-upi-plugin": {
+      "versions": {
+        "^0.3.0": "consumeUpi3"
+      }
     }
   },
   "dependencies": {

lib/output-panel/index.js

@@ -3,6 +3,7 @@ import {PluginManager, IState} from './plugin-manager'
 import {prettifyFile} from './prettify'
 import {MAIN_MENU_LABEL} from './utils'
 import {ILinterRegistry} from './linter-support'
+import {IStatusBar} from './status-bar'
 import * as UPI from './upi-2'
 import * as UPI3 from './upi-3'
 
@@ -149,3 +150,13 @@ export function consumeLinter (indieRegistry: ILinterRegistry): Disposable | und
   pluginManager.setLinter(linter)
   return linter
 }
+
+export function consumeStatusBar (statusBar: IStatusBar): Disposable | undefined {
+  if (!(disposables && pluginManager)) { return }
+  pluginManager.setStatusBar(statusBar)
+  return new Disposable(() => {
+    if (pluginManager) {
+      pluginManager.removeStatusBar()
+    }
+  })
+}

lib/plugin-manager.js

@@ -178,6 +178,10 @@ export class OutputPanel {
     return this.emitter.on('did-change-icon', callback)
   }
 
+  public getStatus (): IStatus {
+    return this.currentStatus
+  }
+
   public addPanelControl<T> ({element, opts}: TControlDefinition<T>) {
     if (typeof element === 'string') {
       const {events, classes, style, attrs} = (opts as IControlOpts)

lib/status-bar/index.js

@@ -6,6 +6,7 @@ import {EditorControl, TTextBufferCallback} from './editor-control'
 import {LinterSupport, ILinter} from './linter-support'
 import {TooltipRegistry} from './tooltip-registry'
 import {CheckResultsProvider} from './check-results-provider'
+import {IStatusBar, ITile, StatusBarView} from './status-bar'
 
 export {IParamState, IOutputViewState}
 
@@ -37,6 +38,9 @@ export class PluginManager {
   private controllers: ECMap<EditorControl>
   private controllerClasses: Set<{map?: ECMap<IEditorController>, factory: IEditorControllerFactory}>
   private editorDispMap: WeakMap<TextEditor, CompositeDisposable>
+  private statusBarTile?: ITile
+  private statusBarView?: StatusBarView
+  private statusBarDisp?: Disposable
   constructor (state: IState) {
     this.disposables = new CompositeDisposable()
     this.emitter = new Emitter()
@@ -67,6 +71,7 @@ export class PluginManager {
     this.deleteEditorControllers()
     this.outputPanel.reallyDestroy()
     this.configParamManager.destroy()
+    this.removeStatusBar()
     if (this.linterSupport) {
       this.linterSupport.destroy()
       this.linterSupport = undefined
@@ -140,6 +145,34 @@ export class PluginManager {
     this.controllerClasses.add({map, factory})
   }
 
+  public setStatusBar (sb: IStatusBar) {
+    this.statusBarView = new StatusBarView(this.outputPanel)
+    this.statusBarTile = sb.addRightTile({
+      item: this.statusBarView.element,
+      priority: 100
+    })
+    this.statusBarDisp = this.outputPanel.onDidChangeIcon(() => {
+      if (this.statusBarView) {
+        this.statusBarView.setStatus(this.outputPanel.getStatus())
+      }
+    })
+  }
+
+  public removeStatusBar () {
+    if (this.statusBarTile) {
+      this.statusBarTile.destroy()
+      this.statusBarTile = undefined
+    }
+    if (this.statusBarView) {
+      this.statusBarView.destroy()
+      this.statusBarView = undefined
+    }
+    if (this.statusBarDisp) {
+      this.statusBarDisp.dispose()
+      this.statusBarDisp = undefined
+    }
+  }
+
   private controllerOnGrammar (editor: TextEditor, grammar: Grammar) {
     if (grammar.scopeName.match(/haskell$/)) {
       this.addController(editor)

package.json

@@ -0,0 +1,51 @@
+import * as etch from 'etch'
+import {IStatus, OutputPanel} from '../output-panel'
+
+export interface ITile {
+  getPriority (): number
+  getItem (): Object
+  destroy (): void
+}
+
+export interface IStatusBar {
+  addLeftTile (params: {item: Object, priority: number}): ITile
+  addRightTile (params: {item: Object, priority: number}): ITile
+}
+
+export class StatusBarView {
+  // tslint:disable-next-line:no-uninitialized-class-properties
+  public element: HTMLElement
+  private currentStatus: IStatus
+  constructor (private panel: OutputPanel) {
+    this.currentStatus = { status: 'ready', detail: '' }
+    etch.initialize(this)
+  }
+
+  public render () {
+    return (
+      <div class="ide-haskell inline-block" on={{click: this.didClick.bind(this)}}>
+        <span>
+          <ide-haskell-lambda/>
+          <ide-haskell-status-icon ref="status" id="status" dataset={{status: this.currentStatus.status}}/>
+        </span>
+      </div>
+    )
+  }
+
+  public update () {
+    return etch.update(this)
+  }
+
+  public setStatus (status: IStatus) {
+    this.currentStatus = status
+    this.update()
+  }
+
+  public async destroy () {
+    await etch.destroy(this)
+  }
+
+  private didClick () {
+    atom.workspace.toggle(this.panel)
+  }
+}

resources/haskell.svg

@@ -406,3 +406,25 @@ ide-haskell-tooltip {
 atom-overlay.ide-haskell {
   pointer-events: none;
 }
+
+.status-bar-right .ide-haskell {
+  padding-bottom: -0.3em;
+  &:hover span {
+    border-bottom: solid 1px;
+  }
+  ide-haskell-lambda {
+    -webkit-mask: url('atom://ide-haskell/resources/haskell.svg') no-repeat 50% 50%;
+    mask: url('atom://ide-haskell/resources/haskell.svg') no-repeat 50% 50%;
+    -webkit-mask-size: contain;
+    mask-size: contain;
+    background-color: @text-color;
+    width: 2em;
+    height: 1em;
+    display: inline-block;
+    margin-bottom: -0.1em;
+  }
+  ide-haskell-status-icon {
+    .status-icon();
+    margin-right: 0;
+  }
+}