From b50347b2e7894265207b8123bb18deb185a418ae Mon Sep 17 00:00:00 2001 From: c0dev0id Date: Fri, 15 Mar 2024 07:49:50 +0100 Subject: [PATCH] Update 2024-03-15 07:49 OpenBSD/amd64-x13 --- .Xdefaults | 1 + .bin/OLD/rtservermon.pl | 69 --------------------------------- .bin/cbar | Bin 10304 -> 10304 bytes .bin/drink | 4 +- .bin/port-deleter | 11 ------ .bin/scratchpad | 4 +- .config/luakit/rc.lua | 2 +- .config/spectrwm/spectrwm.conf | 12 +++--- 8 files changed, 13 insertions(+), 90 deletions(-) delete mode 100755 .bin/OLD/rtservermon.pl delete mode 100755 .bin/port-deleter diff --git a/.Xdefaults b/.Xdefaults index 8a418b2..48fdd83 100644 --- a/.Xdefaults +++ b/.Xdefaults @@ -207,6 +207,7 @@ XFontSel*Font: lucidasanstypewriter-14 Zutty.altScroll: true Zutty.boldColors: false Zutty.font: SourceCodePro-Medium +Zutty.dwfont: SourceCodePro-Medium Zutty.fontsize: 18 Zutty.fontpath: /home/sdk/.fonts Zutty.bg: #001010 diff --git a/.bin/OLD/rtservermon.pl b/.bin/OLD/rtservermon.pl deleted file mode 100755 index 5ee8224..0000000 --- a/.bin/OLD/rtservermon.pl +++ /dev/null @@ -1,69 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; -# -# ONLY OpenBSD modules included with the default installation are permitted! -# -use HTTP::Tiny; -use Net::Ping; -use Time::HiRes; - -# Configuration hash (editable) -my %config = ( - 'timeout' => 0.20, # How long to wait before giving up on server response, in seconds - 'debug' => 1, # Debug output? - 'top' => 3, # How many entries to return? - 'protocol' => 'tcp', # tcp, udp, icmp, et al - 'port' => 'http', # (used in getservbyname sub) -); - -# hash to store servers and response times to protocol/port requests -my %serverstats; - -# create HTTP::Tiny instance -my $http = HTTP::Tiny->new; - -# Get a list of all current OpenBSD FTP servers -my $response = $http->get('http://ftp.eu.openbsd.org/pub/OpenBSD/ftplist'); -die "Failed!\n" unless $response->{success}; - -# Iterate through server list and get TCP/80 response time in ms -foreach my $line (split("\n", $response->{content})) { - if ($line !~ /(cdn)/) { - if ($line =~ /(http:\/\/)(.+?)(\/\S+)/) { - my $response = &httping($2); - $serverstats{$1.$2.$3} = $response if ($response); - } - } -} - -# Sort & print servers by response time in ms -my $i = 0; -foreach my $key (sort {$serverstats{$a} <=> $serverstats{$b} } keys %serverstats) { - $i++; - print "$key\n"; - last if $i eq $config{'top'}; -} - -# -# Ping TCP/80 and return response time or 0 if unresponsive + some diagnostic output -# - -sub httping ($) { - my $host = shift; - my $ping = Net::Ping->new($config{'protocol'}); - $ping->hires(); - $ping->{port_num} = getservbyname($config{'port'}, $config{'protocol'}); - print ("Trying $host... ") if $config{'debug'}; - my ($retval, $duration, $ip) = $ping->ping($host, $config{'timeout'}); - $ping->close(); - $duration = int($duration * 1000); - - if ($retval) { - print ("$duration ms\n") if $config{'debug'}; - return $duration; - } else { - print ("unresponsive\n") if $config{'debug'};; - return 0; - } -} diff --git a/.bin/cbar b/.bin/cbar index 89662591d9192538e6b1d5f78b774d5ad7fe1518..ea6844fb787a127366f1c72858e6f5322a7ad093 100755 GIT binary patch delta 438 zcmX>Qa3ElV49nyz%p$BN3=9l{lN*_Y87(JYWEP+7pb8de^aSx3gFxgYHHc8`=7TKp zjJ#|>9U#C8#2k}#+0s=x!F&b=b|}pQr1^lD3y1}vV%(E=ve}pxmlP%E7BIxe7rQZ} z6%=LWm83BM#d4AhDjACNpaRJ``NgRW`30$Y44L`KB{`F|*vo*fTga}>$Ts;bdpRTP zW>=0U?2MNuYYD_LPMO>(AS;~)w9}*4_P;&@!#)L|l^(sKPA~ue-@x#~X7WJ+Ge*4TEz68b27iM0^`}u2EuHNjK?;cizG2JCU2f4TE)opf_1W(xIg3e z$!X$pLMwnl*8Jl?e~Td0nDWWf#1$CLCT|zFVEjAzgSZppsm;a`OpHt#A10eiz6Mb$ OQjLu2o0mz=;spQ%bb(C( delta 431 zcmX>Qa3ElV49jE_77<3H$rqW$8Lhyi6PWY>lYU?_6imi#KFAW!$jizA0bD?eeX=fF z`s4{rEQ;Jf9vf7K6G-y`F$WL}K*e|_?_{$vjgK#OV@N9~%FHWCV<;{u%1JJ$WJu1* zFHU91%ug=K0f{B&7BCd&LDl3Jq~=Z5VlQK~n7oi(n~`<$S@v>9w#}{_PuLkhPu3EM zV_Y)1Q$SYQjfa83qu2JoJ_Ex(1)!B4y`oMp|Nq~>@FHgNK>;(M#vcOmj9({92nHyp z0Nn~yYm20|;RRUjETBwx?Uxrxle-0V8C@pt6jTy-go<$j>6cAFqd^M(a83RsSi!hy za<)f$OV diff --git a/.bin/drink b/.bin/drink index b6bd99b..8cbc2dc 100755 --- a/.bin/drink +++ b/.bin/drink @@ -1,7 +1,7 @@ #!/bin/sh -. /home/sdk/.dbus_address +# . /home/sdk/.dbus_address . /home/sdk/.bin/_config - +DISPLAY=:0 MSG="Drink some water!" NOTIFY_CMD_OPTS="-s 5" NOTIFY_CMD "$MSG" diff --git a/.bin/port-deleter b/.bin/port-deleter deleted file mode 100755 index d9c6897..0000000 --- a/.bin/port-deleter +++ /dev/null @@ -1,11 +0,0 @@ -#!/bin/sh - -while true; -do - PORT=$(pkg_info -mz | fzf -e --sync --bind start:last) - [ ! -z $PORT ] \ - && doas pkg_delete -c "$PORT" - [ -z $PORT ] \ - && exit 0 -done -pkg_delete -ac diff --git a/.bin/scratchpad b/.bin/scratchpad index cbd67cb..4726f32 100755 --- a/.bin/scratchpad +++ b/.bin/scratchpad @@ -14,8 +14,8 @@ GAP=$(( RESH / 12 )) H=$(( RESH - 2 * GAP )) V=$(( RESV - 2 * GAP )) -COLUMNS=144 -ROWS=29 +COLUMNS=198 +ROWS=46 # set the quirk in .config/spectrwm/spectrwm.conf # quirk[scratchpad] = FLOAT + ANYWHERE + FOCUSPREV diff --git a/.config/luakit/rc.lua b/.config/luakit/rc.lua index 4c400ff..0a85b5e 100644 --- a/.config/luakit/rc.lua +++ b/.config/luakit/rc.lua @@ -8,7 +8,7 @@ local unique_instance = require "unique_instance" unique_instance.open_links_in_new_window = true -- Set the number of web processes to use. A value of 0 means 'no limit'. -luakit.process_limit = 1 +-- luakit.process_limit = 1 -- Load library of useful functions for luakit local lousy = require "lousy" diff --git a/.config/spectrwm/spectrwm.conf b/.config/spectrwm/spectrwm.conf index e61dad2..a7c8cbf 100644 --- a/.config/spectrwm/spectrwm.conf +++ b/.config/spectrwm/spectrwm.conf @@ -11,15 +11,17 @@ # +-------------------------------------------------- border_width = 2 -color_focus = rgb:00/80/80 +tile_gap = 5 +region_padding = 5 + +color_focus = rgb:B9/39/34 +color_unfocus = rgb:33/33/33 + color_focus_maximized = rgb:00/80/80 color_focus_maximized_free = rgb:00/80/80 color_focus_free = rgb:00/80/80 -color_unfocus = rgb:00/00/00 color_unfocus_free = rgb:55/35/00 -tile_gap = -2 -region_padding = 0 -disable_border = 0 +disable_border = 1 maximize_hide_bar = 0 # +--------------------------------------------------