tools/eaglemode/commands/B.nix


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

{ depot, pkgs, ... }:

let
  em = depot.tools.eaglemode;
in
em.mkCommand {
  name = "9 B";
  hotkey = "Ctrl+E";
  icon = "${./plan9.tga}";

  description = ''
    Plumb target to Sam or Acme
  '';

  code = ''
    ErrorIfNotSingleTarget();

    my @tgt=GetTgt();
    my $dir=$tgt[0];

    ExecOrError('${pkgs.plan9port}/bin/9', 'B', $dir);
  '';
}