timendum

Simple Shell script to check WiFi.

Log at: journalctl -t wifi-watchdog

BusyBox 1.36 compatrible

timendum

"""
This function solves a "make 10" puzzle:  
given a string of digits (e.g., "3596"),
it finds all possible arithmetic expressions using those four digits (each used exactly once)
and the operators +, -, *, / that evaluate to 10.

It also considers different placements of parentheses to account for order-of-operations variations.  
It's a brute-force solver for the "four numbers to reach 10" number game.
"""

timendum

timendum

import gzip
import json
import yaml
from yaml import Dumper, Loader

FILENAME = "./test.yml"

with open(FILENAME) as fo:
    tyaml = fo.read()

timendum

Get-ChildItem "$env:LOCALAPPDATA\Temp" -Recurse -Force -ErrorAction SilentlyContinue |
    Where-Object { $_.LastWriteTime -lt (Get-Date).AddDays(-7) } |
    Remove-Item -Recurse -Force -ErrorAction SilentlyContinue

timendum

tools:
  # Order is important!
  fzf: junegunn/fzf
  rg: BurntSushi/ripgrep
  jq: jqlang/jq
  lazygit: jesseduffield/lazygit
  lnav: tstack/lnav
  bat:
      repo: sharkdp/bat
      shell_code:

timendum

Sub AppendMarkdownUTF8(content As String, strFileName As String)
    Dim stream As Object
    Dim existingContent As String
    Dim strFilePath As String
    Dim fso As Object
    strFilePath = Environ("USERPROFILE") & "\Documents\Obsidian\Daily\" & strFileName

    Set fso = CreateObject("Scripting.FileSystemObject")
    ' Create empty file if missing (faster & simpler than ADODB)
    If Not fso.FileExists(strFilePath) Then

timendum

# /// script
# requires-python = ">=3.12"
# dependencies = [
#     "requests",
# ]
# ///

import argparse
import csv
import shutil

timendum

Sub SmartArchive()
    Dim objApp As Outlook.Application
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objConversation As Outlook.Conversation
    Dim objRootItems As Outlook.SimpleItems
    Dim objChildItems As Outlook.SimpleItems
    Dim objRootItem As Object
    Dim objChildItem As Object
    Dim objFolder As Outlook.folder

timendum

Sub CloneCalendarItem()
    Dim objApp As Outlook.Application
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objNewItem As Outlook.AppointmentItem
    Dim recip As Outlook.Recipient
    Dim newRecip As Outlook.Recipient
    
    Set objApp = Outlook.Application
    Set objSelection = objApp.ActiveExplorer.Selection