View change-wallpaper.pl
#!/usr/bin/env perl | |
# Change Cinnamon desktop background. | |
# USAGE: change-wallpaper.pl $HOME/Pictures/Wallpapers/... | |
# change-wallpaper - update Cinnamon wallpapers | |
# Copyright (c) 2016 Ben Moon | |
# | |
# This program is free software: you can redistribute it and/or modify | |
# it under the terms of the GNU General Public License as published by | |
# the Free Software Foundation, either version 3 of the License, or |
View fix-slow-dns-lookup.sh
# Must be run as root | |
# Run dnsmasq | |
dnsmasq | |
# Run nscd | |
nscd | |
# Add 'options single-request' to /etc/resolv.conf (see below) | |
echo 'options single-request' >> /etc/resolv.conf | |
# If *that* doesn't work, may need to add a reasonable DNS | |
# echo -e "nameserver 8.8.8.8 \noptions single-request" > /etc/resolv.conf |
View structure.txt
app/ -- Root-dir | |
src/ -- For keeping the sourcecode | |
Main.lhs -- The main-module | |
App/ -- Use hierarchical modules | |
... | |
Win32/ -- For system dependent stuff | |
Unix/ | |
cbits/ -- For C code to be linked to the haskell program | |
testsuite/ -- Contains the testing stuff | |
runtests.sh -- Will run all tests |
View unicode_re.txt
((?:\N{U+D83C}\N{U+DDE8}\N{U+D83C}\N{U+DDF3}|\N{U+D83C}\N{U+DDFA}\N{U+D83C}\N{U+DDF8}|\N{U+D83C}\N{U+DDF7}\N{U+D83C}\N{U+DDFA}|\N{U+D83C}\N{U+DDF0}\N{U+D83C}\N{U+DDF7}|\N{U+D83C}\N{U+DDEF}\N{U+D83C}\N{U+DDF5}|\N{U+D83C}\N{U+DDEE}\N{U+D83C}\N{U+DDF9}|\N{U+D83C}\N{U+DDEC}\N{U+D83C}\N{U+DDE7}|\N{U+D83C}\N{U+DDEB}\N{U+D83C}\N{U+DDF7}|\N{U+D83C}\N{U+DDEA}\N{U+D83C}\N{U+DDF8}|\N{U+D83C}\N{U+DDE9}\N{U+D83C}\N{U+DDEA}|\N{U+0039}\N{U+FE0F}?\N{U+20E3}|\N{U+0038}\N{U+FE0F}?\N{U+20E3}|\N{U+0037}\N{U+FE0F}?\N{U+20E3}|\N{U+0036}\N{U+FE0F}?\N{U+20E3}|\N{U+0035}\N{U+FE0F}?\N{U+20E3}|\N{U+0034}\N{U+FE0F}?\N{U+20E3}|\N{U+0033}\N{U+FE0F}?\N{U+20E3}|\N{U+0032}\N{U+FE0F}?\N{U+20E3}|\N{U+0031}\N{U+FE0F}?\N{U+20E3}|\N{U+0030}\N{U+FE0F}?\N{U+20E3}|\N{U+0023}\N{U+FE0F}?\N{U+20E3}|\N{U+D83D}\N{U+DEB3}|\N{U+D83D}\N{U+DEB1}|\N{U+D83D}\N{U+DEB0}|\N{U+D83D}\N{U+DEAF}|\N{U+D83D}\N{U+DEAE}|\N{U+D83D}\N{U+DEA6}|\N{U+D83D}\N{U+DEA3}|\N{U+D83D}\N{U+DEA1}|\N{U+D83D}\N{U+DEA0}|\N{U+D83D}\N{U+DE9F}|\N{U+D83D}\N{U+DE9E}|\N{U+D83D}\N{U+DE9D}|\N{U+D |
View check_links.sh
check-docs-links() { | |
perl -n -e 'print "$1\n" if $_ =~ m{\[[^\]]*\]\((https?://[^) ]*)\)}' > .url_matches && awesome_bot .url_matches && rm .url_matches | |
} | |
View perl-ping.pl
#!/usr/bin/env perl | |
# Check that URLs used in Markdown files actually point somewhere. | |
use strict; | |
use warnings; | |
use LWP::Simple; | |
use List::MoreUtils qw(uniq); | |
use Data::Printer; |
View date-to-epoch.sh
# Parse a date string (using DateTime::Format::HTTP) and return the number of seconds since epoch it represents. | |
date-to-epoch-perl () { | |
perl -MDateTime::Format::HTTP -E "say DateTime::Format::HTTP::parse_datetime('$1')->strftime('%s');"; | |
} | |
# Better | |
date-to-epoch () { | |
date --date="$1" +%s; | |
} |
View git-remove-subdir.sh
git filter-branch --index-filter \ | |
'git ls-files -s | sed -r "s-(\t\"*)DIRNAME/(.*)-\1\2-" | \ | |
GIT_INDEX_FILE=$GIT_INDEX_FILE.new \ | |
git update-index --index-info && | |
mv "$GIT_INDEX_FILE.new" "$GIT_INDEX_FILE"' HEAD |
View Basic.cabal
name: basic | |
version: 0.1.0.0 | |
synopsis: Quick one-line summary of project. | |
license: GPL-3 | |
license-file: LICENSE | |
author: Author Name | |
maintainer: maintainer@someplace.tld | |
copyright: Copyright (C) Copyright Holder | |
-- category: | |
build-type: Simple |