Add bin/ repo from home-bin/ repo

10 files changed, 681 insertions, 0 deletions

diff --git a/bin/dim-screen.sh b/bin/dim-screen.sh
new file mode 100755
index 0000000..949ed85
--- /dev/null
+++ b/bin/dim-screen.sh
@@ -0,0 +1,51 @@
+#!/bin/bash
+# Debian package: xbacklight
+
+# Brightness will be lowered to this value.
+min_brightness=0
+
+# If your video driver works with xbacklight, set -time and -steps for fading
+# to $min_brightness here. Setting steps to 1 disables fading.
+fade_time=2000
+fade_steps=200
+
+# Time to sleep (in seconds) between increments when using sysfs. If unset or
+# empty, fading is disabled.
+fade_step_time=0.05
+
+
+get_brightness() {
+    if [[ -z $sysfs_path ]]; then
+        xbacklight -get
+    else
+        cat $sysfs_path
+    fi
+}
+
+set_brightness() {
+    if [[ -z $sysfs_path ]]; then
+        xbacklight -steps 1 -set $1
+    else
+        echo $1 > $sysfs_path
+    fi
+}
+
+fade_brightness() {
+    if [[ -z $sysfs_path ]]; then
+        xbacklight -time $fade_time -steps $fade_steps -set $1
+    elif [[ -z $fade_step_time ]]; then
+        set_brightness $1
+    else
+        local level
+        for level in $(eval echo {$(get_brightness)..$1}); do
+            set_brightness $level
+            sleep $fade_step_time
+        done
+    fi
+}
+
+trap 'exit 0' TERM INT
+trap "set_brightness $(get_brightness); kill %%" EXIT
+fade_brightness $min_brightness
+sleep 2147483647 &
+wait
diff --git a/bin/emacs-pkg-install b/bin/emacs-pkg-install
new file mode 100755
index 0000000..93b747f
--- /dev/null
+++ b/bin/emacs-pkg-install
@@ -0,0 +1,45 @@
+#!/bin/bash
+# Gotten from: https://gist.github.com/padawanphysicist/d6299870de4ef8ad892f
+#
+# I wrapped the code constructed in
+#
+# http://hacks-galore.org/aleix/blog/archives/2013/01/08/install-emacs-packages-from-command-line
+#
+# in a single bash script, so I would a single code snippet.
+#
+
+
+# Elisp script is created as a temporary file, to be removed after installing 
+# the package
+elisp_script_name=$(mktemp /tmp/emacs-pkg-install-el.XXXXXX)
+elisp_code="
+;;
+;; Install package from command line. Example:
+;;
+;;   $ emacs --batch --expr \"(define pkg-to-install 'smex)\" -l emacs-pkg-install.el
+;;
+(require 'package)
+(package-initialize)
+(add-to-list 'package-archives
+             '(\"melpa\" . \"http://melpa.milkbox.net/packages/\") t)
+;;(add-to-list 'package-archives
+;;             '(\"marmalade\" . \"http://marmalade-repo.org/packages/\") t)
+;; Fix HTTP1/1.1 problems
+(setq url-http-attempt-keepalives nil)
+(package-refresh-contents)
+(package-install pkg-to-install)"
+
+echo "$elisp_code" > $elisp_script_name
+
+if [ $# -lt 1 ]
+then
+  echo "Usage: `basename $0` <package 1> <package 2> ..."
+  exit 1
+fi
+
+for pkg_name in $@; do
+  emacs --batch --eval "(defconst pkg-to-install '$pkg_name)" -l $elisp_script_name
+done
+
+# Remove tmp file
+rm "$elisp_script_name"
diff --git a/bin/i3lock-wrapper b/bin/i3lock-wrapper
new file mode 100755
index 0000000..7c8d8e2
--- /dev/null
+++ b/bin/i3lock-wrapper
@@ -0,0 +1,5 @@
+#!/bin/bash
+
+killall -SIGUSR1 dunst
+i3lock --nofork -c "#000000" -e -f
+killall -SIGUSR2 dunst
diff --git a/bin/mutt-displayfilter-gpg b/bin/mutt-displayfilter-gpg
new file mode 100755
index 0000000..ccd99d1
--- /dev/null
+++ b/bin/mutt-displayfilter-gpg
@@ -0,0 +1,52 @@
+#!/usr/bin/env python
+# -*- coding: utf-8 -*-
+"""
+Copyright 2017 Sebastian Schmittner
+
+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
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+"""
+import re
+import sys
+
+
+def shorten_tofu_blocks(input):
+    pattern = r"(?s)gpg: Verified ([0-9]+) .*(ago|as being bad)\."
+    replace = r"gpg: TOFU \1"
+    return re.sub(pattern, replace, input)
+
+
+def remove_aka_list(input):
+    pattern = r"gpg:[ \t]+aka [^\n]*\n"
+    replace = ""
+    return re.sub(pattern, replace, input)
+
+
+def shorten_untrusted_warning(input):
+    pattern = r"(?s)gpg: WARNING: This key is not certified with sufficiently trusted signatures!.*key fingerprint: [^\n]+"
+    replace = "gpg: WARNING: untrusted signature"
+    return re.sub(pattern, replace, input)
+
+
+def main():
+    input = sys.stdin.read()
+    input = shorten_tofu_blocks(input)
+    input = remove_aka_list(input)
+    input = shorten_untrusted_warning(input)
+    sys.stdout.write(input)
+
+
+# goto main
+if __name__ == "__main__":
+    main()
diff --git a/bin/mutt-fetchbug b/bin/mutt-fetchbug
new file mode 100755
index 0000000..93ffc58
--- /dev/null
+++ b/bin/mutt-fetchbug
@@ -0,0 +1,161 @@
+#!/usr/bin/perl -w
+#
+# mutt-fetchbug, extensively based off of
+#       mutt-notmuch - notmuch (of a) helper for Mutt
+#
+#       Copyright: © 2011 Stefano Zacchiroli <zack@upsilon.cc>
+#       License: GNU General Public License (GPL), version 3 or above
+#
+# Differences between mutt-notmuch and mutt-fetchbug are
+#       Copyright: © 2012 Ryan Kavanagh <rak@debian.org>
+#       License: GNU General Public License (GPL), version 3 or above
+#
+# See the bottom of this file for more documentation.
+# A manpage can be obtained by running "pod2man mutt-fetchbug > mutt-fetchbug.1"
+
+use strict;
+use warnings;
+
+use File::Path;
+use Getopt::Long;
+use Pod::Usage;
+
+# search($btsmbox, $query)
+# Fetch bugs matching $query with bts; store results in $btsmbox
+sub search($$) {
+    my ($btsmbox, $query) = @_;
+
+    system("bts --cache-mode=mbox cache $query"
+	   . " && ln -fs ~/.cache/devscripts/bts/$query.mbox $btsmbox");
+}
+
+sub search_action($$@) {
+    my ($interactive, $btsmbox, @params) = @_;
+
+    if (! $interactive) {
+	fetch($btsmbox, join(' ', @params));
+    } else {
+	my $query = "";
+	my $done = 0;
+	while (! $done) {
+	    print "bug number ('?' for man): ";
+	    chomp($query = <STDIN>);
+	    if ($query eq "?") {
+		system("man bts");
+	    } elsif ($query eq "") {
+		$done = 1;	# quit doing nothing
+	    } else {
+		search($btsmbox, $query);
+		$done = 1;
+	    }
+	}
+    }
+}
+
+sub die_usage() {
+    my %podflags = ( "verbose" => 1,
+		    "exitval" => 2 );
+    pod2usage(%podflags);
+}
+
+sub main() {
+    my $btsmbox = "$ENV{HOME}/.cache/mutt_btsresults";
+    my $interactive = 0;
+    my $help_needed = 0;
+
+    my $getopt = GetOptions(
+	"h|help" => \$help_needed,
+        "o|output-mbox=s" => \$btsmbox,
+	"p|prompt" => \$interactive);
+    if (! $getopt || $#ARGV < 0) { die_usage() };
+    my ($action, @params) = ($ARGV[0], @ARGV[1..$#ARGV]);
+
+    if ($help_needed) {
+	die_usage();
+    } elsif ($action eq "search" && $#ARGV == 0 && ! $interactive) {
+	print STDERR "Error: no search term provided\n\n";
+	die_usage();
+    } elsif ($action eq "search") {
+	search_action($interactive, $btsmbox, @params);
+    } else {
+	die_usage();
+    }
+}
+
+main();
+
+__END__
+
+=head1 NAME
+
+mutt-fetchbug - 'bts show' frontend for Mutt
+
+=head1 SYNOPSIS
+
+=over
+
+=item B<mutt-fetchbug> [I<OPTION>]... search [I<SEARCH-TERM>]...
+
+=back
+
+=head1 DESCRIPTION
+
+mutt-fetchbug is a frontend to the 'bts show' command (Debian package:
+devscripts) designed to fetch bugs and place them in a predefined mbox. The
+search term should typically be a bug number.
+
+=head1 OPTIONS
+
+=over 4
+
+=item -o DIR
+
+=item --output-mbox DIR
+
+Store search results as (symlink) mbox MBOX. Beware: MBOX will be overwritten.
+(Default: F<~/.cache/mutt_btsresults/>)
+
+=item -p
+
+=item --prompt
+
+Instead of using command line search terms, prompt the user for them (only for
+"search").
+
+=item -h
+
+=item --help
+
+Show usage information and exit.
+
+=back
+
+=head1 INTEGRATION WITH MUTT
+
+mutt-fetchbug can be used to integrate 'bts show' with the Mutt mail user agent
+(unsurprisingly, given the name). To that end, you should define the following
+macros in your F<~/.muttrc> (replacing F<~/bin/mutt-fetchbug> for the actual
+location of mutt-fetchbug on your system):
+
+    macro index <F7> \
+        "<enter-command>unset wait_key<enter><shell-escape>~/bin/mutt-fetchbug --prompt search<enter><change-folder-readonly>~/.cache/mutt_btsresults<enter><enter-command>set wait_key<enter>" \
+        "fetch bug(s) (using bts show)"
+
+The macro (activated by <F7>) will prompt the user for a bug number and then
+jump to a temporary mbox showing the fetched bug.
+
+=head1 SEE ALSO
+
+mutt(1), bts(1)
+
+=head1 AUTHOR
+
+mutt-fetchbug is extensively based off of 'mutt-notmuch', which is
+Copyright: (C) 2011 Stefano Zacchiroli <zack@upsilon.cc>.
+
+All differences between mutt-fetchbug and mutt-notmuch are
+Copyright (C) 2012 Ryan Kavanagh <rak@debian.org>
+
+License: GNU General Public License (GPL), version 3 or higher
+
+=cut
diff --git a/bin/mutt-open b/bin/mutt-open
new file mode 100755
index 0000000..0b21261
--- /dev/null
+++ b/bin/mutt-open
@@ -0,0 +1,76 @@
+#!/bin/bash
+#
+# Fire up mutt on a given mail, located in some Maildir
+# Mail can be specified either by path or by Messsage-ID; in the latter case
+# file lookup is performed using some mail indexing tool.
+#
+# Copyright: © 2009-2014 Stefano Zacchiroli <zack@upsilon.cc>
+# License: GNU General Public License (GPL), version 3 or above
+
+# requires: notmuch | maildir-utils >= 0.7
+
+MUTT="neomutt"
+MAIL_INDEXER="notmuch"	# one of "notmuch", "mu"
+export NOTMUCH_CONFIG=$HOME/te/etc/notmuch-config
+
+MUTT_FLAGS="-R  -F ~/te/etc/muttrc"
+HIDE_SIDEBAR_CMD="B"	# set to empty string if sidebar is not used
+
+# Sample output of lookup command, which gets passed to mutt-open
+#  /home/zack/Maildir/INBOX/cur/1256673179_0.8700.usha,U=37420,FMD5=7e33429f656f1e6e9d79b29c3f82c57e:2,S
+
+die_usage () {
+    echo "Usage: mutt-open FILE" 1>&2
+    echo "       mutt-open MESSAGE-ID" 1>&2
+    echo 'E.g.:  mutt-open `notmuch search --output=files id:MESSAGE-ID`' 1>&2
+    echo '       mutt-open `mu find -f l i:MESSAGE-ID`' 1>&2
+    echo '       mutt-open 20091030112543.GA4230@usha.takhisis.invalid' 1>&2
+    exit 3
+}
+
+# Lookup: Message-ID -> mail path. Store results in global $fname
+lookup_msgid () {
+    msgid_query="$1"
+    case "$MAIL_INDEXER" in
+	notmuch)
+	    fname=$(notmuch search --output=files id:"$msgid_query" | head -n 1)
+	    ;;
+	mu)
+	    fname=$(mu find -f l i:"$msgid_query" | head -n 1)
+	    ;;
+    esac
+}
+
+dump_info () {
+    echo "fname: $fname"
+    echo "msgid: $msgid"
+}
+
+if [ -z "$1" -o "$1" = "-h" -o "$1" = "-help" -o "$1" = "--help" ] ; then
+    die_usage
+fi
+if (echo "$1" | grep -q /) && test -f "$1" ; then	# arg is a file
+    fname="$1"
+    msgid=$(egrep -i '^message-id:' "$fname" | cut -f 2 -d':' | sed 's/[ <>]//g')
+elif ! (echo "$1" | grep -q /) ; then	# arg is a Message-ID
+    msgid="$1"
+    lookup_msgid "$msgid"	# side-effect: set $fname
+fi
+# dump_info ; exit 3
+if ! dirname "$fname" | egrep -q '/(cur|new|tmp)$' ; then
+    echo "Path not pointing inside a maildir: $fname" 1>&2
+    exit 2
+fi
+maildir=$(dirname $(dirname "$fname"))
+
+if ! [ -d "$maildir" ] ; then
+    echo "Not a (mail)dir: $maildir" 1>&1
+    exit 2
+fi
+
+# UGLY HACK: without sleep, push keys do not reach mutt, I _guess_ that there
+# might be some terminal-related issue here, since also waiting for an input
+# with "read" similarly "solves" the problem
+sleep 0.5
+mutt_keys="/=i$msgid\n\n$HIDE_SIDEBAR_CMD"
+exec $MUTT $MUTT_FLAGS -f "$maildir/" -e "push $mutt_keys"
diff --git a/bin/mutt-remember-mail b/bin/mutt-remember-mail
new file mode 100755
index 0000000..e9898f5
--- /dev/null
+++ b/bin/mutt-remember-mail
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+#
+# Helper for mutt to remember mails in Emacs' Org mode
+#
+# Copyright: © 2009-2010 Stefano Zacchiroli <zack@upsilon.cc> 
+# License: GNU General Public License (GPL), version 3 or above
+#
+# Example of mutt macro to invoke this hitting ESC-R (to be put in ~/.muttrc):
+#  macro index \eR "|~/bin/remember-mail\n"
+
+use strict;
+use Mail::Internet;
+use URI::Escape;
+
+my $msg = Mail::Internet->new(\*STDIN);
+$msg->head->get('message-id') =~ /^<(.*)>$/;
+my $mid = $1;
+my $subject = $msg->head->get('subject') || "";
+my $from = $msg->head->get('from') || "";
+chomp ($subject, $from);
+my $note_body = uri_escape("  Subject: $subject\n  From: $from");
+
+exec "emacsclient", "-c", "org-protocol:/capture:/m/mutt:$mid/mail/$note_body";
diff --git a/bin/pycombine b/bin/pycombine
new file mode 100755
index 0000000..a9d2338
--- /dev/null
+++ b/bin/pycombine
@@ -0,0 +1,240 @@
+#!/usr/bin/env python3
+
+"""
+Copyright 2019 Raúl Benencia
+
+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
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+"""
+
+
+import argparse
+import os
+import sys
+import re
+
+
+class DirCombiner():
+    ignore_files = ['.known', '.gitignore']
+    ignore_dirs = ['.git', '.svn', '_darcs']
+
+    def __init__(self, include, exclude, status_filename, verbose):
+        self.include = re.compile(include)
+        self.exclude = re.compile(exclude)
+        self.status_filename = status_filename
+        self.verbose = verbose
+
+    def _filter_files(self, filenames):
+        return [
+            fn for fn in filenames
+            if fn not in DirCombiner.ignore_files
+            and self.include.match(fn)
+            and not self.exclude.match(fn)
+        ]
+
+    def _filter_dirs(self, directories):
+        return [
+            sd for sd in directories
+            if sd not in DirCombiner.ignore_dirs
+            and self.include.match(sd)
+            and not self.exclude.match(sd)
+        ]
+
+    def _create_symlinks(self, status, dest, dirpath, filenames):
+        # Create symlinks for each file
+        for f in filenames:
+            src = os.path.abspath(os.path.normpath(os.path.join(dirpath, f)))
+            dst = os.path.normpath(os.path.join(dest, dirpath, f))
+
+            status.mark_as_seen(dst)
+            replace_msg = ""
+            if os.path.lexists(dst):
+                if not os.path.islink(dst):
+                    sys.stderr.write(
+                        "{} in {} is also in {}\n".format(f, dirpath, dest)
+                    )
+                    continue
+                elif os.path.realpath(dst) != src:
+                    replace_msg = "(previously pointing to: {})".format(
+                        os.path.realpath(dst))
+                    try:
+                        os.remove(dst)
+                    except IOError:
+                        raise DeleteFileError(dst)
+                else:
+                    # Symlink is already pointing to the current file
+                    continue
+
+            try:
+                os.symlink(src, dst)
+            except OSError:
+                raise CreateSymlinkError(dst)
+
+            if replace_msg == "" or (replace_msg != "" and self.verbose):
+                sys.stdout.write("{} -> {} {}\n".format(src, dst, replace_msg))
+
+    def _create_directories(self, dest, dirpath, subdirs):
+        for sd in subdirs:
+            dst = os.path.normpath(os.path.join(dest, dirpath, sd))
+            if os.path.lexists(dst):
+                if os.path.isdir(dst):
+                    continue
+                else:
+                    raise DirIsFileError(dst)
+
+            try:
+                os.mkdir(dst)
+            except OSError:
+                raise CreateDirError(dst)
+
+            sys.stdout.write(f"{dst} created\n")
+
+    def combine(self, dest, directories):
+        # Loop through all the directories. The later ones can override
+        # links from the previous ones.
+        for directory in directories:
+            try:
+                os.chdir(directory)
+            except OSError:
+                raise ChangeDirError(directory)
+
+            status = DirCombinerStatus(self.status_filename)
+            for dirpath, subdirs, filenames in os.walk('.'):
+                # Modify filenames and subdirs in place to reduce the
+                # scope of the search.
+                subdirs[:] = self._filter_dirs(subdirs)
+                filenames[:] = self._filter_files(filenames)
+
+                self._create_symlinks(status, dest, dirpath, filenames)
+                self._create_directories(dest, dirpath, subdirs)
+
+            status.finish()
+
+
+class DirCombinerStatus():
+    def __init__(self, status_filename):
+        self._seen = []
+        self._status_filename = status_filename
+
+        try:
+            if os.path.exists(self._status_filename):
+                if not os.path.isfile(self._status_filename):
+                    raise StatusIsNotFileError(self._status_filename)
+                else:
+                    with open(self._status_filename, 'r') as f:
+                        self._known = f.read().split('\n')[:-1]
+            else:
+                self._known = []
+        except IOError:
+            raise StatusFileError(self._status_filename)
+
+    def _clean_old(self):
+        old = {f for f in self._known if f not in self._seen}
+        for f in old:
+            try:
+                if os.path.lexists(f):
+                    rp = os.path.realpath(f)
+                    if not os.path.islink(f) or os.path.exists(rp):
+                        sys.stderr.write(
+                            f"Not deleting {f} as it's a valid file\n")
+                    else:
+                        os.remove(f)
+                        sys.stdout.write(f"Deleted old file {f}\n")
+            except IOError:
+                raise DeleteFileError(f)
+
+    def mark_as_seen(self, filename):
+        self._seen.append(filename)
+
+    def finish(self):
+        self._clean_old()
+        with open(self._status_filename, 'w') as f:
+            for filename in self._seen:
+                f.write(filename + '\n')
+
+
+class Error(Exception):
+    """Base class for exceptions in this program """
+    msg = ''
+
+    def __init__(self, param):
+        self.param = param
+
+    def message(self):
+        return self.msg.format(self.param) + '\n'
+
+
+class DirIsFileError(Error):
+    msg = 'Target directory {} already exists as a non-dir file.'
+
+
+class CreateDirError(Error):
+    msg = 'Failure creating directory {}. Do you have appropriate permissions?'
+
+
+class CreateSymlinkError(Error):
+    msg = 'Failure creating symlink {}. Do you have appropriate permissions?'
+
+
+class ChangeDirError(Error):
+    msg = 'Failure changing to dir {}. Do you have appropriate permissions?'
+
+
+class StatusFileError(Error):
+    msg = 'Error while opening status file {}. ' + \
+        'Do you have appropriate permissions?'
+
+
+class StatusIsNotFile(Error):
+    msg = 'The status path {} does not have a file. Maybe it holds an old dir?'
+
+
+class DeleteFileError(Error):
+    msg = 'Unable to delete file {}. Do you have appropriate permissions?'
+
+
+def main():
+    parser = argparse.ArgumentParser()
+
+    parser.add_argument('-i', '--include', default='.*',
+                        help='regex for filenames to include')
+
+    parser.add_argument('-e', '--exclude', default='^$',
+                        help='regex for filenames to exclude')
+
+    parser.add_argument('-s', '--status-filename', default='.known',
+                        help='regex for filenames to exclude')
+
+    parser.add_argument('dest', metavar='dest', type=str,
+                        help='directory where to install links and filenames')
+
+    parser.add_argument('dirs', metavar='dir', type=str, nargs='+',
+                        help='directories to retrieve filenames from')
+
+    parser.add_argument('-v', '--verbose', default=False,
+                        help='Verbose output')
+
+
+    args = parser.parse_args()
+    dc = DirCombiner(args.include, args.exclude, args.status_filename, args.verbose)
+
+    try:
+        dc.combine(args.dest, args.dirs)
+
+    except Error as e:
+        sys.stderr.write(e.message())
+        sys.exit(1)
+
+
+if __name__ == "__main__":
+    main()
diff --git a/bin/touchpad-enable-tap b/bin/touchpad-enable-tap
new file mode 100755
index 0000000..dcd530f
--- /dev/null
+++ b/bin/touchpad-enable-tap
@@ -0,0 +1,7 @@
+#!/bin/sh
+
+if xinput list | grep -iq "touchpad"; then
+    device_id=$(xinput list | grep -i touchpad | awk '{print $6}' | sed 's/id=//')
+    option_id=$(xinput list-props $device_id | grep -i 'Tapping Enabled'  | head -n1 | awk '{print $4}' | tr -d '():')
+    xinput set-prop $device_id $option_id 1
+fi
diff --git a/bin/xrandr-rul b/bin/xrandr-rul
new file mode 100755
index 0000000..0b76a98
--- /dev/null
+++ b/bin/xrandr-rul
@@ -0,0 +1,21 @@
+#!/bin/sh
+
+INT="eDP-1"
+
+export DISPLAY="${DISPLAY:-:0}"
+
+xrandr --output ${INT} --mode 1920x1080 # 1920x1440 #2560x1440
+
+for EXT in DP-1 DP-2 HDMI-2
+do
+	if xrandr -q | grep -qs "^${EXT} connected"
+	then
+		xrandr --output ${EXT} --mode 3440x1440
+		xrandr --output ${EXT} --left-of ${INT}
+	else
+		xrandr --output ${EXT} --off
+	fi
+done
+
+# If we have a script for sorting out the workspaces, use it.
+eval "$(command -v i3-fix-workspaces)"