Show only relative path in breakpoint pane and callstack pane

Author: codecontemplator

lib/Components/BreakPointPane.coffee

@@ -23,8 +23,16 @@ exports.create = (_debugger) ->
 
     breakpoint: (breakpoint) ->
       log "builder.breakpoint"
-      TreeViewItem("#{breakpoint.script} : (#{breakpoint.line+1})", handlers: { click: () -> gotoBreakpoint(breakpoint) })
-
+      TreeViewItem(
+        ((state) -> h("div", {
+            title: breakpoint.script
+            style:
+              display: 'inline'
+          }
+          ["#{atom.project.relativizePath(breakpoint.script)[1]} : (#{breakpoint.line+1})"]
+        )),
+        handlers: { click: () -> gotoBreakpoint(breakpoint) }
+      )
     root: () ->
       TreeView("Breakpoints", (() -> builder.listBreakpoints().map(builder.breakpoint)), isRoot: true)
 

lib/Components/CallStackPane.coffee

@@ -3,7 +3,7 @@ Promise = require 'bluebird'
 hg = require 'mercury'
 fs = require 'fs'
 {EventEmitter} = require 'events'
-
+{h} = hg
 
 #######################################
 
@@ -96,7 +96,13 @@ exports.create = (_debugger) ->
     frame: (frame) ->
       log "builder.frame #{frame.script.name}, #{frame.script.line}"
       return TreeView(
-          "#{frame.script.name}:#{frame.line + 1}",
+          ((state) -> h('div', {
+            title: frame.script.name
+            style:
+              display: 'inline'
+            },
+            ["#{atom.project.relativizePath(frame.script.name)[1]}:#{frame.line + 1}"]
+          ))
           (() =>
             Promise.resolve([
               TreeView("arguments", (() => Promise.resolve(frame.arguments).map(builder.value)))

lib/Components/TreeView.coffee

@@ -88,7 +88,7 @@ TreeViewItem = (value, { handlers, data } = {}) -> hg.state({
   })
 
 TreeViewItem.render = (state) ->
-  h('li.list-item.entry', { 'ev-click': hg.send state.channels.click }, [state.value])
+  h('li.list-item.entry', { 'ev-click': hg.send state.channels.click }, [state.value?(state) ? state.value])
 
 exports.TreeView = TreeView
 exports.TreeViewItem = TreeViewItem