Just to write this down somewhere before I forget it again...
It's easy to make those Gnome pop-up notifications from the command line
notify-send 'Venture Bros' 'Go Team Venture!'
or Perl
perl -MGtk2::Notify=-init,Venture -e 'Gtk2::Notify->new( "Venture Bros", "Go Team Venture!")->show'
or Python
python -c 'import pynotify; pynotify.init("Venture");
pynotify.Notification("Venture Bros", "Go Team Venture!").show()'
All three of these will give
for a few seconds.
Apparently, you can do it from Ruby too, but I haven't got that installed.
ETA (16 Dec 2011): An anonymous commenter points out that there is also Desktop::Notify, which communicates through D-Bus, rather than libnotify. Running
perl -MDesktop::Notify -e 'Desktop::Notify->new( app_name => "Venture")->create(summary => "Venture Bros", body => "Go Team Venture!")->show'
gives us
in Xfce and
in LXDE. These match our desktop perfectly, but they show up in the center of the screen and must be dismissed by hand. That's not always what we want. The libnotify (and growl, I think) notifications show up in the corner, have no buttons or window dressing, and dismiss themselves.
ETA (21 Dec 2011): I bet the anonymous commenter mentioned above is a KDE user. I just tried both the Gtk2::Notify and the Desktop::Notify one-liners above and they give the same result in KDE
I'm not sure if KDE is handing off to libnotify, handing off to dbus, or doing its own notification. In any case, Desktop::Notify does seem to be a nice option for KDE users. On the other hand, Gtk2::Notify looks exactly the same, so I'm not sure what's "jarring" about it.
I recently spotted Thomas Fahle's post on OpenShift Express (Red Hat's Cloud) and I wanted to try it. I'm on Ubuntu, though, so the yum repository is no help. It turns out those rhc-* tools are written in Ruby, so...problem solved!
gem install rhc
Done! Wow. Alright, let's try it!
$ rhc-create-domain -n oylenshpeegul -l [email protected] /usr/share/ruby-rvm/rubies/ruby-1.9.3-/lib/ruby/site_ruby/1.9.1/rubygems/custom_require.rb:36:in `require': no such file to load -- openssl (LoadError) ...
Another snag! Apparently, Ruby is unhappy with Ubuntu's shiny new OpenSSL
$ openssl version OpenSSL 1.0.0e 6 Sep 2011
Instead, let's let rvm get a clunky old OpenSSL just for Ruby
$ rvm package install openssl
Fetching openssl-0.9.8n.tar.gz to /usr/share/ruby-rvm/archives
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
100 3681k 100 3681k 0 0 91489 0 0:00:41 0:00:41 --:--:-- 111k
--no-same-owner
Configuring openssl in /usr/share/ruby-rvm/src/openssl-0.9.8n.
Compiling openssl in /usr/share/ruby-rvm/src/openssl-0.9.8n.
Installing openssl to /usr/share/ruby-rvm/usr
ERROR: Error running '/usr/bin/make install',
please read /usr/share/ruby-rvm/log/openssl/make.install.log
Oops.
$ sudo rvm package install openssl
Okay, now if we rebuild Ruby 1.9.3 with this OpenSSL
$ rvm remove 1.9.3 $ rvm install 1.9.3 --with-openssl-dir=$rvm_path/usr $ rvm use 1.9.3 $ gem install rhc
we should be all set!
$ rhc-create-domain -n oylenshpeegul -l [email protected] Created local config file: /home/tim/.openshift/express.conf express.conf contains user configuration and can be transferred across clients.
Whew! Okay, now back to Fahle's instructions
$ rhc-create-app -a X1 -t perl-5.10
Password:
Found a bug? Post to the forum and we'll get right on it.
IRC: #openshift on freenode
Forums: https://www.redhat.com/openshift/forums
Attempting to create remote application space: X1
...
Alright! If we visit http://X1-oylenshpeegul.rhcloud.com/, we see that OpenShift welcome page. Let's put something else there. If we create a file called X1/perl/hello.pl that looks like this
#!/usr/bin/perl use strict; use warnings; use CGI qw(:standard); print header, start_html('Hello'), p('Hello, world!'), end_html;
then we can upload it with git
$ cd X1 $ git add perl/hello.pl $ git commit -m 'say hello' $ git push
Now if we visit http://x1-oylenshpeegul.rhcloud.com/hello.pl, we see
Yay! OpenShift sure seems easy to use. Now for something a little more complicated...
For comparison, the original version of the weight chart program from the previous two posts resulted in this
Obviously, I didn't fuss with the x-axis enough. It was fine early on, but as time went on it clearly needed adjustment. This is why I want sensible guesses at axis ranges and labels; I can't be trusted to do it myself. Anyway, here is the code
#!/usr/bin/env perl use v5.12; use autodie; use warnings; use Chart::Clicker; use Chart::Clicker::Data::Range; use File::Slurp qw(slurp); use List::Util qw(max min); use Method::Signatures; use Number::Format; my $ofile = shift // 'weight_chart.png'; my $ifile = shift // \*DATA; my %data = eval slurp($ifile); my $cc = Chart::Clicker->new; $cc->add_data('Weight (lbs)', \%data); my $dc = $cc->get_context('default'); format_axis( axis => $dc->domain_axis, min => 0, max => int( 5 + max keys %data), mod => 7, ); format_axis( axis => $dc->range_axis, min => int(-5 + min values %data), max => int( 5 + max values %data), mod => 5, ); $cc->write_output($ofile); system("xdg-open $ofile") == 0 or warn "eog $ofile\n"; # Format the given axis for display. # func format_axis (:$axis!, :$min=0, :$max!, :$mod=10) { $axis->tick_values([ grep {!($_ % $mod)} $min..$max ]); $axis->range(Chart::Clicker::Data::Range->new({ lower => $min, upper => $max, })); $axis->format(sub {Number::Format->new->round(shift, 0)}); } __END__ 1 => 180.2, 8 => 173.8, 15 => 172.2, 22 => 171.2, 29 => 170.2, 36 => 168.2, 43 => 166.6, 50 => 168.2, 57 => 165.6, 64 => 165.4, 71 => 165.0, 78 => 163.6, 85 => 163.2, 92 => 161.8, 99 => 160.6, 106 => 162.4, 113 => 164.3, 120 => 162.6, 134 => 161.8, 141 => 158.8, 148 => 160.6, 155 => 158.2, 162 => 161.8, 169 => 162.4, 176 => 159.8, 183 => 162.6, 190 => 160.6, 197 => 160.8, 204 => 159.6, 211 => 159.8, 218 => 158.8,
In the last post, I changed three of the parameters. It actually looks fine if you take all of the defaults
my $chart = Chart::Strip->new; $chart->add_data($data);
This gives a green line, no title, and a transparent background.
(Hm...it's too bad we can't pass the data to the contructor.)
my $chart = Chart::Strip->new(data => $data);
Anyway, like I said, I usually look at it locally in eog rather than a browser, so the transparent background was undesirable
So while I was fiddling with the background, I also added the title and the color change. I've since made the line thicker and added a drop shadow
There are a bunch more options, but I'm grateful that they all have sensible defaults.
I just discovered Chart::Strip (thanks, bigpresh)! Earlier this year, I was trying to lose a little weight. At first, I was weighing myself each week, so I wrote a little program with Chart::Clicker to make a graph of my progress. Just now, I re-wrote that program using Chart::Strip and it's much simpler. I think I was able to use more defaults with Chart::Strip. In the Chart::Clicker version, a lot of the code is fussing with the ranges and such. With Chart::Strip, I added a title, turned off the transparent background (I typically just viewed the results in eog, which shows a checkerboard for transparency) and made the line blue instead of green. The axis ranges and labels and all are from default values.
Perfect! My weight stabilized and I stopped paying attention, so the data just kind of ends. I don't really care how much I weigh, I just want my clothes to fit!
I put the Chart::Strip version of the code at the end of the post because it's kind of long. Well, the program isn't long at all, but I just stuck my data in the same file.
One thing to note is the fancy new Perl-5.14 use of push on an array reference. We would like to have just said
my $data;
but autovivify doesn't work when we do that. I couldn't really tell from that thread on p5p, but I hope they're going to fix this in Perl 5.16. In the mean time, we can just initialize it to an aref.
#!/usr/bin/env perl use v5.14; use autodie; use warnings; use Chart::Strip; use Data::Dump qw(dump); use Time::Local qw(timelocal_nocheck); my $file = shift // 'weight.png'; my $debug = shift // 0; my $data = []; while (readline DATA) { next unless /\A\s*(?<doy>\d+)\s*=>\s*(?<weight>[\d\.]+)/; push $data, {time => timelocal_nocheck(0,0,0,$+{doy},0,2011), value => $+{weight}, }; } dump $data if $debug; my $chart = Chart::Strip->new(title => q{Tim's weight (lbs)}, transparent => 0, ); $chart->add_data($data, {color => 'blue'}); open my $fh, '>', $file; $fh->print($chart->png); close $fh; system("xdg-open $file") == 0 or warn "eog $file\n"; __END__ 1 => 180.2, 8 => 173.8, 15 => 172.2, 22 => 171.2, 29 => 170.2, 36 => 168.2, 43 => 166.6, 50 => 168.2, 57 => 165.6, 64 => 165.4, 71 => 165.0, 78 => 163.6, 85 => 163.2, 92 => 161.8, 99 => 160.6, 106 => 162.4, 113 => 164.3, 120 => 162.6, 134 => 161.8, 141 => 158.8, 148 => 160.6, 155 => 158.2, 162 => 161.8, 169 => 162.4, 176 => 159.8, 183 => 162.6, 190 => 160.6, 197 => 160.8, 204 => 159.6, 211 => 159.8, 218 => 158.8,
Recent Comments