From bbe259c88e8c3c2a7e70f703891c59ffa78da8c4 Mon Sep 17 00:00:00 2001 From: Patrick Spek Date: Sat, 24 Dec 2022 23:41:46 +0100 Subject: Clean up some old utils --- .local/bin/get-focussed-monitor | 43 -------- .local/bin/kubectl-hosts | 6 -- .local/bin/pkgsrc | 221 ---------------------------------------- 3 files changed, 270 deletions(-) delete mode 100755 .local/bin/get-focussed-monitor delete mode 100755 .local/bin/kubectl-hosts delete mode 100755 .local/bin/pkgsrc (limited to '.local') diff --git a/.local/bin/get-focussed-monitor b/.local/bin/get-focussed-monitor deleted file mode 100755 index 4d7bbd4..0000000 --- a/.local/bin/get-focussed-monitor +++ /dev/null @@ -1,43 +0,0 @@ -#!/usr/bin/env raku - -use v6.d; - -sub MAIN ( - #Bool:D :$shell = False, - Bool:D :$coords = False, -) { - my @xrandr = shell('xrandr | grep -w connected', :out).out.slurp.lines; - my %monitors; - - my $mouse = shell('xdotool getmouselocation', :out).out.slurp.trim ~~ m/ - 'x:' $ = [ \d+ ] - \s* - 'y:' $ = [ \d+ ] - /; - - for @xrandr -> $monitor { - my $match = $monitor ~~ m/ - $ = [ \d+ ] - 'x' - $ = [ \d+ ] - '+' - $ = [ \d+ ] - '+' - $ = [ \d+ ] - /; - - next unless $match ≤ $mouse ≤ ($match + $match); - next unless $match ≤ $mouse ≤ ($match + $match); - - say qq[MONITOR="{$monitor.words.first}"]; - - if ($coords) { - say qq[W="{$match}"]; - say qq[H="{$match}"]; - say qq[X="{$match}"]; - say qq[Y="{$match}"]; - } - - last; - } -} diff --git a/.local/bin/kubectl-hosts b/.local/bin/kubectl-hosts deleted file mode 100755 index c347256..0000000 --- a/.local/bin/kubectl-hosts +++ /dev/null @@ -1,6 +0,0 @@ -#!/bin/sh - -kubectl get ing -o custom-columns=:.spec.rules[].host \ - | grep . \ - | sort \ - | uniq diff --git a/.local/bin/pkgsrc b/.local/bin/pkgsrc deleted file mode 100755 index e6b1a7e..0000000 --- a/.local/bin/pkgsrc +++ /dev/null @@ -1,221 +0,0 @@ -#!/bin/sh - -# This program is free software: you can redistribute it and/or modify it under -# the terms of the GNU Affero 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 Affero General Public License for more -# details. - -readonly PKGSRC_ROOT="$HOME/.local/src/pkgsrc" # TODO: Make configurable -readonly PKGSRC_DURATIONS="$XDG_DATA_HOME/pkgsrc/durations" - -main() -{ - PKGSRC_INIT="$(time_unix)" - - # Handle opts - while getopts ":h" opt - do - case "$opt" in - h) usage && exit 0 ;; - *) - printf "Invalid option passed: %s\n" "$OPTARG" >&2 - ;; - esac - done - - shift $(( OPTIND - 1 )) - - if [ $# -lt 1 ] - then - usage - exit 1 - fi - - PKGSRC_ACTION="action_$1" ; shift - - if ! command -V "$PKGSRC_ACTION" 2>/dev/null | grep -qwi function - then - usage - exit 1 - fi - - $PKGSRC_ACTION "$@" -} - -action_add() -{ - mkdir -p -- "$PKGSRC_DURATIONS" - - for package in "$@" - do - cd -- "$PKGSRC_ROOT" - - # cd wont fail here if pkg_resolve had no output - if ! cd -- "$(pkg_resolve "$package")" - then - printf "No package found for %s\n" "$package" - continue - fi - - bmake install \ - && bmake clean-depends \ - && bmake clean \ - || continue - - printf "%d\n" "$(( $(time_unix) - PKGSRC_INIT ))" \ - >> "$PKGSRC_DURATIONS/$package" - done - - printf "Installation took %s\n" "$(time_duration "$PKGSRC_INIT" "$(time_unix)")" -} - -action_del() -{ - for package in "$@" - do - cd -- "$PKGSRC_ROOT" - - if ! cd -- "$(pkg_resolve "$package")" - then - printf "No package found for %s\n" "$package" - continue - fi - - bmake deinstall - done -} - -action_grep() -{ - cd -- "$PKGSRC_ROOT" - - find . -maxdepth 2 -type d \ - | cut -c 3- \ - | grep "$@" -} - -action_init() -{ - export CVS_RSH="ssh" - - if [ ! -d "$PKGSRC_ROOT" ] - then - mkdir -p -- "${PKGSRC_ROOT%/*}" - cd -- "${PKGSRC_ROOT%/*}" - cvs -d anoncvs@anoncvs.NetBSD.org:/cvsroot checkout -P pkgsrc || die 1 - fi - - if [ -d "$HOME/.pkgsrc" ] - then - printf "pkgsrc seems to have been initialized already at $HOME/.pkgsrc\n" - exit 1 - fi - - cd -- "$PKGSRC_ROOT/bootstrap" - rm -fr -- work - ./bootstrap --unprivileged --prefix="$HOME/.pkgsrc" # TODO: Make configurable - - printf "Bootstrapped in %s\n" "$(time_duration "$PKGSRC_INIT" "$(time_unix)")" -} - -action_opts() -{ - cd -- "$(pkg_resolve "$1")" || die "No package found for $1" - - bmake show-options -} - -action_time() -{ - for package in "$@" - do - if [ ! -f "$PKGSRC_DURATIONS/$package" ] - then - printf "%s: No timings\n" "$package" - continue - fi - - package_min="$(sort "$PKGSRC_DURATIONS/$package" | head -n 1)" - package_max="$(sort "$PKGSRC_DURATIONS/$package" | tail -n 1)" - package_avg="$(awk '{ sum += $1 } END { printf("%.0f", (sum / NR)) }' "$PKGSRC_DURATIONS/$package")" - - printf "%s: %s / %s / %s \n" \ - "$package" \ - "$(time_duration "$package_min")" \ - "$(time_duration "$package_avg")" \ - "$(time_duration "$package_max")" - done -} - -action_update() -{ - cd -- "$PKGSRC_ROOT" - - cvs up - - printf "Updated in %s\n" "$(time_duration "$PKGSRC_INIT" "$(time_unix)")" -} - -usage() -{ - cat < [target] - -Interact with pkgsrc. - -Options: - -h Show this help text and exit. - -Actions: - add Install one or more TARGETs. - del Uninstall one or more TARGETs. - grep Search for TARGET. - init Initialize the pkgsrc repository, and run the bootstrap script. - opts Show the options of TARGET. - time Show min, avg, max installation times for TARGETs. - update Update the pkgsrc repository. -EOF -} - -# -# Helper utilities -# - -die() -{ - printf "%s\n" "$*" >&2 - exit 1 -} - -pkg_resolve() -{ - readlink -f "$PKGSRC_ROOT"/*/"$1" || readlink -f "$PKGSRC_ROOT/$1" # What if both fail? -} - -time_unix() -{ - awk 'BEGIN{srand();print srand()}' -} - -time_duration() -{ - if [ ! -z "$2" ] - then - elapsed="$(( $2 - $1 ))" - else - elapsed="$1" - fi - - printf "%dh %02dm %02ds" \ - "$(( elapsed / 60 / 60 ))" \ - "$(( elapsed / 60 % 60))" \ - "$(( elapsed % 60 ))" -} - -main "$@" -- cgit v1.1