status.pl because status is already a DBus utility. I made some other decisions relating to command-line interface, moving away from a cool idea I had a few years ago that hasn't aged well. I changed it to record.pl, which isn't similarly overloaded on my system, at least, and wrote a few flags for it, mostly for overkill. I mean, at core, it's because Len Budney convinced me my scripts needed manners, especially it not doing anything when just called.get_records.pl, so it's okay. (I put no warnings because I'm running 5.26 on my desktop, but it is likely that I'll copy this to cluster machines running our 5.20 or the system 5.10 Perls, which would need the warnings.) I could and probably should go without IO::Interactive, but still.
"editor.fontLigatures": true to your settings.I couldn't leave it there.I need a Twitter that sends all my grumpy thoughts into oblivion rather than to actual people.— Phil Sands (@PurdueCSPhil) July 10, 2017
I can write a tool that goes through all old tweets and deletes ones that don't pass criteria, but I prefer to get out ahead of the issue and leave the record as it is.You could do sentiment analysis as an alternate client or regularly after-the-fact to cut down on that. We have the technology.— Code By Java (@JacobyDave) July 10, 2017
Algorithm::NaiveBayes and make your own classifier, rather than using Microsoft Research's Text Analytics API or another service. I was somewhere along that process when the hosting died, so I'm not bringing it here.send_tweet function didn't get the passes it'd need, and I could probably give check_status some love, or perhaps even roll it into something like WebService::Microsoft::TextAnalytics. In the mean time, this should allow you to always tweet on the bright side of life.#!/usr/bin/env perl
use feature qw{ postderef say signatures } ;
use strict ;
use warnings ;
use utf8 ;
no warnings qw{ experimental::postderef experimental::signatures } ;
use Carp ;
use Getopt::Long ;
use IO::Interactive qw{ interactive } ;
use JSON ;
use LWP::UserAgent ;
use Net::Twitter ;
use YAML qw{ LoadFile } ;
my $options = options() ;
my $config = config() ;
if ( check_status( $options->{ status }, $config ) >= 0.5 ) {
send_tweet( $options, $config ) ;
}
else { say qq{Blocked due to negative vibes, man.} }
exit ;
sub send_tweet ( $options, $config ) {
my $twit = Net::Twitter->new(
traits => [ qw/API::RESTv1_1/ ],
consumer_key => $config->{ twitter }{ consumer_key },
consumer_secret => $config->{ twitter }{ consumer_secret },
ssl => 1,
) ;
my $tokens = $config->{ twitter }{ tokens }{ $options->{ username } } ;
if ( $tokens->{ access_token }
&& $tokens->{ access_token_secret } ) {
$twit->access_token( $tokens->{ access_token } ) ;
$twit->access_token_secret( $tokens->{ access_token_secret } ) ;
}
if ( $twit->authorized ) {
if ( $twit->update( $options->{ status } ) ) {
say { interactive } $options->{ status } ;
}
else {
say { interactive } 'FAILED TO TWEET' ;
}
}
else {
croak( "Not Authorized" ) ;
}
}
sub check_status ( $status, $config ) {
my $j = JSON->new->canonical->pretty ;
my $key = $config->{ microsoft }{ text_analytics }{ key } ;
my $id = 'tweet_' . time ;
my $object ;
push @{ $object->{ documents } },
{
language => 'EN',
text => $status,
id => $id,
} ;
my $json = $j->encode( $object ) ;
my $api = 'https://westus.api.cognitive.microsoft.com/text/analytics/v2.0/sentiment' ;
my $agent = LWP::UserAgent->new ;
my $request = HTTP::Request->new( POST => $api ) ;
$request->header( 'Ocp-Apim-Subscription-Key' => $key ) ;
$request->content( $json ) ;
my $response = $agent->request( $request ) ;
if ( $response->is_success ) {
my $out = decode_json $response->content ;
my $doc = $out->{ documents }[ 0 ] ;
return $doc->{ score } ;
}
else {
croak( $response->status_line ) ;
}
return 1 ;
}
sub config () {
my $config ;
$config->{ twitter } = LoadFile( join '/', $ENV{ HOME }, '.twitter.cnf' ) ;
$config->{ microsoft } = LoadFile( join '/', $ENV{ HOME }, '.microsoft.yml' ) ;
return $config ;
}
sub options () {
my $options ;
GetOptions(
'help' => \$options->{ help },
'username=s' => \$options->{ username },
'status=s' => \$options->{ status },
) ;
show_usage( $options ) ;
return $options ;
}
sub show_usage ($options) {
if ( $options->{ help }
|| !$options->{ username }
|| !$options->{ status } ) {
say { interactive } <<'HELP';
Only Positive Tweets -- Does text analysis of content before tweeting
-u user Twitter screen name (required)
-s status Status to be tweeted (required)
-h help This screen
HELP
exit ;
}
}
__DATA__
.microsoft.yml looks like this
---
text_analytics:
key: GENERATED_BY_MICROSOFT
.twitter.cnf looks like this
---
consumer_key: GO_TO_DEV.TWITTER.COM
consumer_secret: GO_TO_DEV.TWITTER.COM
tokens:
your_username:
access_token: TIED_TO_YOU_AS_USER_NOT_DEV
access_token_secret:TIED_TO_YOU_AS_USER_NOT_DEV
I cover access_tokens in https://varlogrant.blogspot.com/2016/07/nettwitter-cookbook-how-to-tweet.html
#!/usr/bin/env perl
# stores current temperature with YAML so that get_temp.pl can be used
# in the bash prompt to display current temperature
use feature qw{ say state } ;
use strict ;
use warnings ;
use Carp ;
use Data::Dumper ;
use DateTime ;
use IO::Interactive qw{ interactive } ;
use JSON ;
use LWP::UserAgent ;
use YAML::XS qw{ DumpFile LoadFile } ;
my $config = config() ;
my $url
= 'https://api.darksky.net/forecast/'
. $config->{apikey} . '/'
. ( join ',', map { $config->{$_} } qw{ latitude longitude } ) ;
my $agent = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } ) ;
my $response = $agent->get($url) ;
if ( $response->is_success ) {
my $now = DateTime->now()->set_time_zone('America/New_York')->datetime() ;
my $content = $response->content ;
my $forecast = decode_json $content ;
my $current = $forecast->{currently} ;
my $temp_f = int $current->{temperature} ;
store( $now, $temp_f ) ;
}
else {
say $response->status_line ;
}
exit ;
# ======================================================================
sub store {
my ( $time, $temp ) = @_ ;
say {interactive} qq{Current Time: $time} ;
say {interactive} qq{Current Temperature: $temp} ;
my $data_file = $ENV{HOME} . '/.temp.yaml' ;
my $obj = {
curr_time => $time,
curr_temp => $temp,
} ;
DumpFile( $data_file, $obj ) ;
}
# ======================================================================
# Reads configuration data from YAML file. Dies if no valid config file
# if no other value is given, it will choose current
#
# Shows I need to put this into a module
sub config {
my $config_file = $ENV{HOME} . '/.forecast.yaml' ;
my $output = {} ;
if ( defined $config_file && -f $config_file ) {
my $output = LoadFile($config_file) ;
$output->{current} = 1 ;
return $output ;
}
croak('No Config File') ;
}
#!/usr/bin/env perl
# retrieves the current temperature from YAML to be used in the bash prompt
use feature qw{ say state unicode_eval unicode_strings } ;
use strict ;
use warnings ;
use utf8 ;
binmode STDOUT, ':utf8' ;
use Carp ;
use Data::Dumper ;
use YAML::XS qw{ LoadFile } ;
my $data_file = $ENV{HOME} . '/.temp.yaml' ;
my $output = {} ;
if ( defined $data_file && -f $data_file ) {
my $output = LoadFile($data_file) ;
print $output->{curr_temp} . '°F' || '' ;
exit ;
}
croak('No Temperature File') ;
#!/usr/bin/env perl
# Determines current location based on IP address using Google
# Geolocation, finds current temperature via the DarkSky API
# and stores it into a YAML file, so that get_temp.pl can be
# in the bash prompt to display current local temperature.
use feature qw{ say state } ;
use strict ;
use warnings ;
use utf8 ;
use Carp ;
use Data::Dumper ;
use DateTime ;
use IO::Interactive qw{ interactive } ;
use JSON::XS ;
use YAML::XS qw{ DumpFile LoadFile } ;
use lib $ENV{HOME} . '/lib' ;
use GoogleGeo ;
my $json = JSON::XS->new->pretty->canonical ;
my $config = config() ;
my $location = geolocate( $config->{geolocate} ) ;
croak 'No Location Data' unless $location->{lat} ;
my $forecast = get_forecast( $config, $location ) ;
croak 'No Location Data' unless $forecast->{currently} ;
say {interactive} $json->encode($location) ;
say {interactive} $json->encode($forecast) ;
my $now = DateTime->now()->set_time_zone('America/New_York')->datetime() ;
my $current = $forecast->{currently} ;
my $temp_f = int $current->{temperature} ;
store( $now, $temp_f ) ;
exit ;
# ======================================================================
# Reads configuration data from YAML files. Dies if no valid config files
sub config {
my $geofile = $ENV{HOME} . '/.googlegeo.yaml' ;
croak 'no Geolocation config' unless -f $geofile ;
my $keys = LoadFile($geofile) ;
my $forecastfile = $ENV{HOME} . '/.forecast.yaml' ;
croak 'no forecast config' unless -f $forecastfile ;
my $fkeys = LoadFile($forecastfile) ;
$keys->{forecast} = $fkeys->{apikey} ;
croak 'No forecast key' unless $keys->{forecast} ;
croak 'No forecast key' unless $keys->{geolocate} ;
return $keys ;
}
# ======================================================================
# Takes the config for the API keys and the location, giving us lat and lng
# returns the forecast object or an empty hash if failing
sub get_forecast {
my ( $config, $location ) = @_ ;
my $url
= 'https://api.darksky.net/forecast/'
. $config->{forecast} . '/'
. ( join ',', map { $location->{$_} } qw{ lat lng } ) ;
my $agent = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } ) ;
my $response = $agent->get($url) ;
if ( $response->is_success ) {
my $content = $response->content ;
my $forecast = decode_json $content ;
return $forecast ;
}
return {} ;
}
# ======================================================================
sub store {
my ( $time, $temp ) = @_ ;
say {interactive} qq{Current Time: $time} ;
say {interactive} qq{Current Temperature: $temp} ;
my $data_file = $ENV{HOME} . '/.temp.yaml' ;
my $obj = {
curr_time => $time,
curr_temp => $temp,
} ;
DumpFile( $data_file, $obj ) ;
}
say {interactive} works. If I run it in crontab, then it runs silently, and I don't get an inbox filled with false negatives from crontab. This corresponds to my personal preferences; If I was to release this to CPAN, I would likely make these things controlled by flags, and perhaps allow latitude, longitude and perhaps API keys to be put in that way.package GoogleGeo ;
# interfaces with Google Geolcation API
# https://developers.google.com/maps/documentation/geolocation/intro
use feature qw{say} ;
use strict ;
use warnings ;
use Carp ;
use Data::Dumper ;
use Exporter qw(import) ;
use Getopt::Long ;
use JSON::XS ;
use LWP::Protocol::https ;
use LWP::UserAgent ;
our @EXPORT = qw{
geocode
geolocate
} ;
my $json = JSON::XS->new->pretty ;
my $agent = LWP::UserAgent->new ;
sub geocode {
my ($Google_API_key,$obj) = @_ ;
croak unless defined $Google_API_key ;
my $url = 'https://maps.googleapis.com/maps/api/geocode/json?key='
. $Google_API_key ;
my $latlng = join ',', $obj->{lat}, $obj->{lng} ;
$url .= '&latlng=' . $latlng ;
my $object = { latlng => $latlng } ;
my $r = $agent->post($url) ;
if ( $r->is_success ) {
my $j = $r->content ;
my $o = $json->decode($j) ;
return $o ;
}
return {} ;
}
sub geolocate {
my ($Google_API_key) = @_ ;
my $url = 'https://www.googleapis.com/geolocation/v1/geolocate?key='
. $Google_API_key ;
my $object = {} ;
my $r = $agent->post( $url, $object ) ;
if ( $r->is_success ) {
my $j = $r->content ;
my $o = $json->decode($j) ;
return {
lat => $o->{location}{lat},
lng => $o->{location}{lng},
acc => $o->{accuracy},
} ;
}
return {} ;
}
'here' ;
 |
| A Delorean with a Perl-powered center column and the cutest little Flux Capacitor on the dashboard. Oh, the wonders you can see at a developer conference. |
 |
| Puppies! |
chrome://history, and the tabs that you kept around for when you get back to that topic are way dropped out, and ironically, the tabs you looked at, rejected and closed are right at the top.
Current Session, Current Tabs, Last Session and Last Tabs. These files are SNSS format, which could be better (I've found a Github repo with an SNSS parser in Python, but haven't started working with it), but they respond to strings, so you have something to work on without the parser. #!/usr/bin/env perl
use feature qw{ say state } ;
use strict ;
use warnings ;
use utf8 ;
use DateTime ;
use File::Copy ;
use File::Path qw{ make_path } ;
use IO::Interactive qw{ interactive } ;
# program to back up chrome tabs for easy restore should things go bad
# add to your crontab with something like
# @hourly ~/bin/chrome_tab_backup.pl
# T
#
my $now = DateTime->now()
->set_time_zone('America/Indiana/Indianapolis')
->set( second => 0 ) ;
my $date = $now->ymd('/') ;
my $time = $now->hms('-') ;
my $source = join '/', $ENV{HOME}, qw{ .config chromium Default } ;
my $target = join '/', $ENV{HOME}, '.chrome_backup', $date, $time ;
say $source ;
say $target ;
if ( !-d $target ) {
my @dirs = make_path($target) ;
}
chdir $source ;
for my $f ( grep {m{(Tabs|Session)$}n} glob '*' ) {
say $f ;
copy( $f, $target ) or die qq{Copy Failed: $! } ;
}
Local State file as where you set exited_cleanly to false in order to force recovery, while in Linux it's Preferences.
.travis.yml file only went to Perl 5.20. I thought I'd get some dev brownie points by adding the next two stable versions, and found that my build was dying in the Pull Request submission process..appveyor.yml file in the project, so it runs and fails.2) Sure, real programmers use Unix/Linux to run their code, real programmers, but beginner programmers don't come in knowing how to set up an environment and come in with the (Windows) computer they have, and the documentation sucks and they feel lost and they don't like it and they don't feel the power, and they're gone. Even if you dislike Microsoft, good tools for Windows and good documentation are important for new programmers, important for building community, important for inclusiveness.I run Windows, but I program on and for Linux, and only have one project based on Windows. But I have installed ActiveState and Strawberry Perls, and think that if you write general-purpose modules, you should be sure to test against Windows as well as Linux.
branches:
only:
- master
skip_tags: true
cache:
- C:\strawberry
install:
- if not exist "C:\strawberry" cinst strawberryperl
- set PATH=C:\strawberry\perl\bin;C:\strawberry\perl\site\bin;C:\strawberry\c\bin;%PATH%
- cd C:\projects\%APPVEYOR_PROJECT_NAME%
- cpanm --installdeps .
build_script:
- perl Makefile.PL
- dmake test
Hi! I cannot seem to find any contact information on this page. How should I contact you?And then linked to a FAQ entry explaining his position on the state of email, comparing the futility of hiding addresses and the benefits of being open.
@hoelzro It's very cargo-cult on my end. I should blog or gist it.— 'Dev' in Creole (@JacobyDave) May 6, 2017
Thank @hadleywickham , I just put data into it.
uniq -c because of the last post. I had been using sort | uniq forever, and have recently stopped in favor of sort -u, which I also learned about recently.uniq is kinda useless without a sort in front of it; if your input is "foo foo foo bar foo" (with requisite newlines, of course), uniq without sort will give you "foo bar foo" instead of "foo bar" or "bar foo", either of which is closer to what I want.alias count=" sort | uniq " to my bash setup, but adding a count program to my ~/bin seems much better to me, much closer to the Right Thing.count that is perhaps better and certainly shorter than the one I posted. There was regex magic that I simply didn't need, because I wanted the count to stand by itself (but I might revisit to remove the awk step, because as a user, I'm still a bit awkward with it.)my %seen ;
map { $seen{$_}++ } do {
@ARGV ? @ARGV : map { chomp ; $_ } <>;
} ;
while ( my ( $k, $v ) = each %seen ) {
say join "\t", $v, $k ;
}
I like marc's use of the ternary operator to handle STDIN vs @ARGV, but I'm somewhat inconsistently against map over for. I know people who thing that map not going into an array is a problem, so I don't go back to it often. for my $k ( keys %seen ) { ... } enough that I'm sort of mad at myself for not encountering each before.
map {} as a replacement for for () {} is not good.sed and awk and bash when those aren't enough.~ as a scratch space all too often, which leaves me with a huge amount of files that I stopped playing with a while ago. I can get to the point of knowing what types, sure, as I show here.$ ls *.* | awk -F. '{ print $NF }'
jpg
jpg
jpg
jpg
txt
txt
txt
pl
txt
txt
pl
txt
pl
pl
txt
html
pl
pl
gz
mp3
pl
pl
pl
pl
txt
pl
pl
sh
sh
txt
pl
pl
diff
txt
txt
txt
pl
txt
pl
txt
txt
txt
txt
py
...
sort in order to give me the numbers, which includes a lot of throwaway Perl programs.$ ls *.* | awk -F. '{ print $NF }' | count | sort -nr
95 pl
59 txt
10 sh
10 jpg
8 py
6 html
6 csv
5 js
2 gz
2 diff
1 zip
1 ttf
1 tt
1 svg
1 sql
1 Rd
1 R
1 pub
1 png
1 pdf
1 mp4
1 mp3
1 log
1 json
1 foo
1 conf
1 cnf
$HOME today...
#!/usr/bin/env perl
use feature qw{ say } ;
use strict ;
use warnings ;
use utf8 ;
my $Ï€ = 3.14159 ;
my $est2 = estimate_2() ;
my $diff2 = sprintf '%.5f',abs $Ï€ - $est2 ;
say qq{Estimate 2: $est2 - off by $diff2} ;
my $est1 = estimate_1() ;
my $diff1 = sprintf '%.5f',abs $Ï€ - $est1 ;
say qq{Estimate 1: $est1 - off by $diff1} ;
exit ;
# concept here is that the area of a circle = π * rsquared
# if r == 1, area = π. If we just take the part of the circle
# where x and y are positive, that'll be π/4. So, take a random
# point between 0,0 and 1,1 see if the distance between it and
# 0,0 is < 1. If so, we increment, and the count / the number
# so far is an estimate of π.
# because randomness, this will change each time you run it
sub estimate_1 {
srand ;
my $inside = 0.0 ;
my $pi ;
for my $i ( 1 .. 1_000_000 ) {
my $x = rand ;
my $y = rand ;
$inside++ if $x * $x + $y * $y < 1.0 ;
$pi = sprintf '%.5f', 4 * $inside / $i ;
}
return $pi ;
}
# concept here is that π can be estimated by 4 ( 1 - 1/3 + 1/5 - 1/7 ...)
# so we get closer the further we go
sub estimate_2 {
my $pi = 0;
my $c = 0;
for my $i ( 0 .. 1_000_000 ) {
my $j = 2 * $i + 1 ;
if ( $i % 2 == 1 ) { $c -= 1 / $j ; }
else { $c += 1 / $j ; }
$pi = sprintf '%.5f', 4 * $c ;
}
return $pi ;
}
#!/group/bioinfo/apps/apps/R-3.1.2/bin/Rscript
# a blog post in code-and-comment form
# Between having some problems with our VMs and wanting
# to learn Log::Log4perl. I wrote a program that took
# the load average -- at first at the hour, via
# crontab -- and stored the value. And, if the load
# average was > 20, it would send me an alert
# It used to be a problem. It is no longer. Now I
# just want to learn how to munge data in R
# read in file
logfile = read.table('~/.uptime.log')
# The logfile looks like this:
#
# 2017/01/01 00:02:01 genomics-test : 0.36 0.09 0.03
# 2017/01/01 00:02:02 genomics : 0.04 0.03 0.04
# 2017/01/01 00:02:02 genomics-db : 0.12 0.05 0.01
# 2017/01/01 00:02:04 genomics-apps : 1.87 1.24 0.79
# 2017/01/01 01:02:02 genomics-db : 0.24 0.14 0.05
# 2017/01/01 01:02:02 genomics-test : 0.53 0.14 0.04
# 2017/01/01 01:02:03 genomics : 0.13 0.09 0.08
# 2017/01/01 01:02:04 genomics-apps : 1.66 1.82 1.58
# 2017/01/01 02:02:01 genomics-test : 0.15 0.03 0.01
# ...
# set column names
colnames(logfile)=c('date','time','host','colon','load','x','y')
# now:
#
# date time host colon load x y
# 2017/01/01 00:02:01 genomics-test : 0.36 0.09 0.03
# 2017/01/01 00:02:02 genomics : 0.04 0.03 0.04
logfile$datetime <- paste( as.character(logfile$date) , as.character(logfile$time) )
# datetime == 'YYYY/MM/DD HH:MM:SS'
logfile$datetime <- sub('......$','',logfile$datetime)
# datetime == 'YYYY/MM/DD HH'
logfile$datetime <- sub('/','',logfile$datetime)
# datetime == 'YYYYMM/DD HH'
logfile$datetime <- sub('/','',logfile$datetime)
# datetime == 'YYYYMMDD HH'
logfile$datetime <- sub(' ','',logfile$datetime)
# datetime == 'YYYYMMDDHH'
# for every datetime in logfile. I love clean data
# removes several columns we no longer need
logfile$time <- NULL
logfile$date <- NULL
logfile$colon <- NULL
logfile$x <- NULL
logfile$y <- NULL
# logfile now looks like this:
#
# datetime host load
# 2017010100 genomics-test 0.36
# 2017010100 genomics 0.04
# 2017010100 genomics-db 0.12
# 2017010100 genomics-apps 1.87
# 2017010101 genomics-db 0.24
# 2017010101 genomics-test 0.53
# 2017010101 genomics 0.13
# 2017010101 genomics-apps 1.66
# 2017010102 genomics-test 0.15
# ...
# and we can get the X and Y for a big huge replacement table
hosts <- unique(logfile$host[order(logfile$host)])
dates <- unique(logfile$datetime)
# because what we want is something closer to this
#
# datetime genomics genomics-apps genomics-db genomics-test
# 2017010100 0.04 1.87 0.12 0.36
# 2017010101 0.13 1.66 0.15 0.53
# ...
# let's try to put it into a dataframe
uptime.data <- data.frame()
uptime.data$datetime <- vector() ;
for ( h in hosts ) {
uptime.data[h] <- vector()
}
# and here, we have a data frame that looks like
#
# datetime genomics genomics-apps genomics-db genomics-test
#
# as I understand it, you can only append to a data frame by merging.
# I need to create a data frame that looks like
#
# datetime genomics genomics-apps genomics-db genomics-test
# 2017010100 0.04 1.87 0.12 0.36
#
# and then merge that. Then do the same with
#
# datetime genomics genomics-apps genomics-db genomics-test
# 2017010101 0.13 1.66 0.15 0.53
#
# and so on.
#
# I don't know how to do that.
#
# I *think* the way is make a one-vector data frame:
#
# datetime
# 2017010101
#
# and add the vectors one at a time.
for ( d in dates ) {
# we don't and the whole log here. we just want
# this hour's data
#
# datetime host load
# 2017010100 genomics-test 0.36
# 2017010100 genomics 0.04
# 2017010100 genomics-db 0.12
# 2017010100 genomics-apps 1.87
log <- subset(logfile, datetime==d)
print(d)
for ( h in hosts ) {
# and we can narrow it down further
#
# datetime host load
# 2017010100 genomics 0.04
hostv <- subset(log,host==h)
load = hostv$load
# problem is, due to fun LDAP issues, sometimes
# the logging doesn't happen
if ( 0 == length(load) ) { load <- -1 }
print(paste(h, load ))
}
# and here's where I'm hung. I can get all the pieces
# I want, even -1 for missing values, but I can't seem
# to put it together into a one-row data frame
# to append to uptime.data.
# [1] "2017010100"
# [1] "genomics 0.04"
# [1] "genomics-apps 1.87"
# [1] "genomics-db 0.12"
# [1] "genomics-test 0.36"
# [1] "2017010101"
# [1] "genomics 0.13"
# [1] "genomics-apps 1.66"
# [1] "genomics-db 0.24"
# [1] "genomics-test 0.53"
# [1] "2017010102"
# [1] "genomics 0.36"
# [1] "genomics-apps 0.71"
# [1] "genomics-db 0.08"
# [1] "genomics-test 0.15"
}
I've been working with beefy virtual machines, docker containers, and build processes lately. Believe it or not, working on projects aimed at making Mozilla developers more productive can mean executing code that can take anywhere from a minute to an hour, which in itself can hit how productive I can be. For the longer tasks, I often get away from my desk, make a cup of coffee, and check in to see how the rest of the Walsh clan is doing.OK, that sounds cool. So I go to Github and I see one line that gives me pause.
When I walk away, however, it would be nice to know when the task is done, so I can jet back to my desk and get back to work. My awesome Mozilla colleague Byron "glob" Jones recently showed me his script for task completion notification and I forced him to put it up on GitHub so you all can get it too; it's called ding!
Requires ding.mp3 and error.mp3 in same directory as script. OSX only.
festival then espeak to tell me the current time and temperature on the hour and half-hour. I switched to Amazon's Polly in December, deciding that the service sounded much better than the on-my-computer choices. (Hear for yourself.) So, I knew how to handle the audio aspects.system function than I had been previously.