Skip to content

Instantly share code, notes, and snippets.

Avatar
🤝
here to help

Ricardo Signes rjbs

🤝
here to help
View GitHub Profile
View SizeToggle.py
#!/usr/bin/env python3.7
import iterm2
import re
async def main(connection):
app = await iterm2.async_get_app(connection)
# This regex splits the font into its name and size. Fonts always end with
# their size in points, preceded by a space.
r = re.compile(r'^(.* )(\d*)$')
View main.rs
use reqwest::blocking::Client;
use reqwest::header::{AUTHORIZATION,CONTENT_TYPE};
use serde::{Serialize, Deserialize};
use std::collections::HashMap;
use std::env;
#[derive(Serialize, Deserialize, Debug)]
struct FilterOperator {
operator: String,
conditions: Vec< HashMap<String, JMAPArgValue> >,
View nopaste
5.6.0
5.004 -> 5.6.0 = 660,232 lines
5.6.0 -> 5.6.1 = 214,426 lines
5.6.1 -> 5.6.2 = 155,160 lines
5.8.0
5.6.0 -> 5.8.0 = 1,341,129 lines
5.8.0 -> 5.8.1 = 554,396 lines
5.8.1 -> 5.8.2 = 56,646 lines
View build.log
cpanm (App::cpanminus) 1.7044 on perl 5.034000 built for darwin-2level
Work directory is /Users/rjbs/.cpanm/work/1622558772.78238
You have make /usr/bin/make
You have LWP 6.54
You have /usr/bin/tar: bsdtar 3.3.2 - libarchive 3.3.2 zlib/1.2.11 liblzma/5.0.5 bz2lib/1.0.6
You have /usr/bin/unzip
Searching Test2::Harness () on cpanmetadb ...
--> Working on Test2::Harness
Fetching http://www.cpan.org/authors/id/E/EX/EXODIST/Test2-Harness-1.000056.tar.gz
-> OK
View nopaste
11 Devel-ebug
11 Device-WebIO
11 Dist-Zilla-Plugin-AssertOS
11 Dist-Zilla-Plugin-ChangelogFromGit
11 Dist-Zilla-Plugin-CheckIssues
11 Dist-Zilla-Plugin-Prepender
11 Dist-Zilla-Plugin-SchwartzRatio
11 Dist-Zilla-Plugin-StaticVersion
11 Dist-Zilla-Role-MetaCPANInterfacer
11 Dist-Zilla-Stash-PodWeaver
View nopaste
203263 ExtUtils::MakeMaker
173535 Test::Simple
120299 Cwd
77311 List::Util
68507 Carp
59047 File::Temp
49478 Exporter
37483 Data::Dumper
36013 IO
35946 Encode
View nopaste
2009-01 0 6 0 [ 913] ()
2009-02 5 3 0 [ 714] ()
2009-03 0 6 0 [ 812] ()
2009-04 1 0 0 [ 606] ()
2009-05 3 8 0 [ 809] ()
2009-06 4 0 0 [ 1126] ()
2009-07 10 4 0 [ 1367] ()
2009-08 14 6 0 [ 1183] ()
2009-09 9 0 0 [ 790] ()
2009-10 107 5 0 [ 1628] (jesse)
View nopaste
my $client = Fastmail::Client->....;
my $mbox_res = $client->request([
[ 'Mailbox/get', { accountId => ... } ],
]);
# Get all the mailbox objects:
my @boxes = $mbox_res->single_sentence('Mailbox/get')->arguments->{list}->@*;
View total-doc-1.md

Perl Rules of Governance

Preamble

We are forming a system of governance for development of the Perl programming language.

The scope of governance includes the language definition, its implementation, its test suite, its documentation, and the policies and procedures by which it is developed and maintained.

View git-readindex
#!/usr/bin/env perl
use strict;
use 5.10.1;
use autodie;
use JSON::PP;
use Tie::IxHash;
open my $fh, '<', ($ARGV[0] || '.git/index');