davidolrik

#!/usr/bin/env perl

use strict;
use warnings;

my $networksetup = `networksetup -listnetworkserviceorder`;
my @network_services = map { $_ =~ s/\(\d+\)\s+//; $_ } # 3. Remove (\d+) from begining of line
                       grep { /^\(\d+\)/ }              # 2. Only look at lines starting with (\d+)
                       split(/\n/,$networksetup);       # 1. Split into lines

davidolrik

-- A global variable for the Hyper Mode
k = hs.hotkey.modal.new({}, "F17")

-- Trigger existing hyper key shortcuts

k:bind({}, 'm', nil, function() hs.eventtap.keyStroke({"cmd","alt","shift","ctrl"}, 'm') end)

-- OR build your own

launch = function(appname)