;;  Date       		: 17 April 2013                        
;;  Revision 		: 1.1
;;  Author   		: Divya Akella
;;  Description 		: Skill procedures and Bindkeys for easier layout drawing

procedure( AllLayerToggle(num "x")
leiMouseSetEntryLayer(779)
   let(((AllList list(sprintf(nil "M%d" num) "drawing")) )    
    if( leIsLayerVisible(AllList) then
      leSetAllLayerVisible(nil)
    else 
      leSetAllLayerVisible(t)
    ) 

    hiRedraw()    
  )
 )
 hiSetBindKey("Layout" "<Key>0" "AllLayerToggle(1)")
 
procedure( MetalToggle(num "x")
leiMouseSetEntryLayer(779)
  let(((MetalList list(sprintf(nil "M%d" num) "drawing")) )     
    if( leIsLayerVisible(MetalList) then
      leSetLayerVisible(MetalList nil) 
    else 
      leSetLayerVisible(MetalList t)
    ) 
    hiRedraw()
  )
  let(((ViaList list(sprintf(nil "V%d" num) "drawing")) )
    if( leIsLayerVisible(ViaList) then
      leSetLayerVisible(ViaList nil) 
    else 
      leSetLayerVisible(ViaList t)
    ) 
    hiRedraw()
  )
)
 
procedure( RXToggle()
leiMouseSetEntryLayer(779)
    if( leIsLayerVisible(list("RX" "drawing")) then
      leSetLayerVisible(list("RX" "drawing") nil) 
    else 
      leSetLayerVisible(list("RX" "drawing") t)
    ) 
    hiRedraw()
    if( leIsLayerVisible(list("CA" "drawing")) then
      leSetLayerVisible(list("CA" "drawing") nil) 
    else 
      leSetLayerVisible(list("CA" "drawing") t)
    ) 
    hiRedraw()
)

procedure( PCToggle()
leiMouseSetEntryLayer(779)
    if( leIsLayerVisible(list("PC" "drawing")) then
      leSetLayerVisible(list("PC" "drawing") nil) 
    else 
      leSetLayerVisible(list("PC" "drawing") t)
    ) 
    hiRedraw()
    if( leIsLayerVisible(list("CA" "drawing")) then
      leSetLayerVisible(list("CA" "drawing") nil) 
    else 
      leSetLayerVisible(list("CA" "drawing") t)
    ) 
    hiRedraw()
)

procedure( NWToggle()
leiMouseSetEntryLayer(779)
    if( leIsLayerVisible(list("NW" "drawing")) then
      leSetLayerVisible(list("NW" "drawing") nil) 
    else 
      leSetLayerVisible(list("NW" "drawing") t)
    ) 
    hiRedraw()
)

 hiSetBindKey("Layout" "<Key>1" "MetalToggle(1)") 
 hiSetBindKey("Layout" "<Key>2" "MetalToggle(2)") 
 hiSetBindKey("Layout" "<Key>3" "MetalToggle(3)") 
 hiSetBindKey("Layout" "<Key>4" "MetalToggle(4)") 
 hiSetBindKey("Layout" "<Key>5" "MetalToggle(5)") 
 hiSetBindKey("Layout" "<Key>6" "MetalToggle(6)") 
 hiSetBindKey("Layout" "Shift<Key>1" "RXToggle()") 
 hiSetBindKey("Layout" "Shift<Key>2" "PCToggle()") 
 hiSetBindKey("Layout" "Shift<Key>3" "NWToggle()") 


procedure( MetalSelect(num "x")
  let(((MetalList list(sprintf(nil "M%d" num) "drawing")) ) 
   	leSetEntryLayer(MetalList) 
    hiRedraw()
  )
)
 hiSetBindKey("Layout" "Ctrl<Key>1" "MetalSelect(1)") 
 hiSetBindKey("Layout" "Ctrl<Key>2" "MetalSelect(2)") 
 hiSetBindKey("Layout" "Ctrl<Key>3" "MetalSelect(3)") 
 hiSetBindKey("Layout" "Ctrl<Key>4" "MetalSelect(4)") 
 hiSetBindKey("Layout" "Ctrl<Key>5" "MetalSelect(5)") 
 hiSetBindKey("Layout" "Ctrl<Key>6" "MetalSelect(6)") 
 hiSetBindKey("Layout" "Ctrl<Key>7" "leiMouseSetEntryLayer(0)") 
 hiSetBindKey("Layout" "Ctrl<Key>8" "leiMouseSetEntryLayer(32)") 
 hiSetBindKey("Layout" "Ctrl<Key>9" "leiMouseSetEntryLayer(16)")