This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
((?:\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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
check-docs-links() { | |
perl -n -e 'print "$1\n" if $_ =~ m{\[[^\]]*\]\((https?://[^) ]*)\)}' > .url_matches && awesome_bot .url_matches && rm .url_matches | |
} | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |