roblogic

#!/bin/zsh
#set -x

do_sync(){
  target=$1
  rsync -iPr --size-only --dry-run --delete /Volumes/Seagate-6TB/$target /Volumes/Seagate-8TB \
    | grep -e ".mkv$" -e ".mp4$" -e ".avi$"
  objects=`rsync -iPr --size-only --dry-run --delete /Volumes/Seagate-6TB/$target /Volumes/Seagate-8TB \
    | grep -e ".mkv$" -e ".mp4$" -e ".avi$" | wc -l`
  echo

roblogic

#!/bin/zsh
# refs:
# https://vimcolorschemes.com/lifepillar/vim-gruvbox8
# https://github.com/lifepillar/vim-gruvbox8

cd ~/.vim/colors
chmod 777 .
curl https://raw.githubusercontent.com/lifepillar/vim-gruvbox8/master/colors/gruvbox8.vim -o gruvbox8.vim
curl https://raw.githubusercontent.com/lifepillar/vim-gruvbox8/master/colors/gruvbox8_hard.vim -o gruvbox8_hard.vim
curl https://raw.githubusercontent.com/lifepillar/vim-gruvbox8/master/colors/gruvbox8_soft.vim -o gruvbox8_soft.vim

roblogic

cd /Volumes/Seagate-6TB

find . -name "*YTS.*.jpg" -or -name "*YIFY-TORRENTS*" -or -name "*YTSProxies*" \
       -or -name "*.exe" -or -name "*torrentgalaxy*" -or -name "RARBG*txt" \
       -or -name "WWW.YTS.*.jpg" \
       -delete

rsync -ivPr --size-only --delete /Volumes/Seagate-6TB/@tv-series /Volumes/Seagate-8TB

rsync -ivPr --size-only --delete /Volumes/Seagate-6TB/movies2022 /Volumes/Seagate-8TB

roblogic

#!/bin/zsh
P=(' ' █ ░ ▒ ▓)
while :;do
  printf "\e[9$(( ( RANDOM % 7 )  + 1 ))m\e[$[RANDOM%$LINES+1];$[RANDOM%$COLUMNS+1]f${P[$RANDOM%5]}"
done

roblogic

#!/bin/zsh
[ $1 ]||{echo "Usage: $0 <nzherald-url>"&&exit 1;}
page=`mktemp herald.htm.XXXXX`
curl -s $1 > $page
echo "Extracting to: $page.txt"
xmllint --html --format $page --nowarning --xpath "//p" 2>/dev/null \
  | perl -pe 's|<p.*?>||g;s|<span.*?>||g;s|</.*?>|\n|g;s|\n\n         ||g' \
  | fmt -p -s | perl -pe 's|<strong>||ig;s|&amp\;|&|g;s|         ||g' \
  | fmt -s | tee $page.txt | less
#

roblogic

0data51,29,73,51,73,73,51,73,29,73
1hgr:hcolor=3:fori=0to123:hplot0,i to123,i:next
2hcolor=0:fori=18to84step22:hplot18,i to84,i:hploti,18toi,84:next
3fori=1to5:reada,b:a=a+.5:b=b+.5:gosub8:next:end
8forr=1to9:hplota,b:forn=0to6.3step.1:y=sin(n)*r:x=cos(n)*r:hplottoa+x,b+y
9next:next:return

roblogic

0data51,29,73,51,73,73,51,73,29,73
1hgr2:hcolor=3:fori=0to191:hplot0,i to191,i:hplot i,0toi,191:next
2hcolor=0:fori=18to84step22:hplot18,i to84,i:hplot i,18toi,84:next
3fori=1to5:reada,b:a=a+.5:b=b+.5:gosub4:next:end
4forr=0to9step0.5:r2=r*r:for x=0 to r:y=sqr(r2-x*x)
5hplot a+x,y+b:hplot a-x,y+b:hplot a+x,-y+b:hplot a-x,-y+b
6hplot a+y,x+b:hplot a-y,x+b:hplot a+y,-x+b:hplot a-y,-x+b
7next:next:return

roblogic

Per [wikibooks][1], "It should be remembered that Fortran is designed for scientific computing and is probably not a good choice for writing a new word processor.". Fortran doesn't have a regex concept either. This just makes [string][2] [challenges][3] more [interesting][4]!

In this solution, we trim the string S, then iterate over it. Print each character unless it's a space followed by another space. [Try it Online!][5]

character(99)S;read(*,'(A)')S
S='"'//trim(adjustl(S))//'"'
do i=1,len(S);if(S(i:i+1).ne.'  ')then
write(*,'(A)',advance="no")S(i:i)
endif;enddo;end

roblogic

The following is taken from a brilliant answer on unix.se. Posting it here for personal reference. The question was:

What kind of patterns can I use in zsh parameter expansion?

${var//pattern/replacement} is using zsh wildcard patterns for pattern, the same ones as used for filename generation aka globbing which are a superset of the sh wildcard patterns. The syntax is also affected by the kshglob and extendedglob options. The ${var//pattern/replacement} comes from the Korn shell initially.

I'd recommend enabling extendedglob (set -o extendedglob in your ~/.zshrc) which gives you the most features (more so than standard EREs) at the expense of some backward incompatibility in some corner cases.

You'll find it documented at info zsh 'filename generation'.

roblogic

for ((;i<$1;))printf "|%$[i++]s\\\\\n"&&a=$a-
(($1))&&<<<$a-