Jeremy Varnham jvarn

## reverse-table-columns.vb
' Reverses LTR tables with visually RTL content and vice versa
' Tested with simple table (no merged cells) on Microsoft 365 versions of:
' Microsoft Word for Mac, Version 16.83
' Microsoft Word for Windows, Version 2402
Sub ReverseTableColumns()
    Dim tbl As Table
    Dim colCount As Long
    Dim i As Long
    Dim j As Long
    Dim tempContent As String

## markdown-parsing.html
<!doctype html>
<html>
<head>
  <meta charset="utf-8"/>
  <title>Markdown Parsing</title>
</head>
<body>
<h1>Markdown Parsing using Marked JS</h1>
  <p>Fetches Marked JS Readme.md as an example.</p>
  <section id="content"></section>

## ubuntu_post_install.sh
#!/bin/bash
sudo apt update && sudo apt upgrade -y

### APT
function install_apt_packages {

	apt_packages=""

	read -e -p "Install Gnome Tweaks? (n) " choice
	[[ "$choice" == [Yy]* ]] && apt_packages="${apt_packages}gnome-tweaks "

## find_installed_software.sh
#!/bin/bash
BoldGreen='\033[1;32m'
NoColour='\033[0m'

## Parameter specified?
if [ $# -eq 0 ]; then
    echo -e "No package specified"
  exit 1
fi

## make_windows_usb.sh
#!/bin/bash
# Installs Homebrew and Wimlib if not already installed,
# then formats and prepares an external USB device as
# a bootable Windows installer from your Windows ISO.
#
# Usage: ./make_windows_usb.sh windows_installer.iso
# (first make executable with: chmod u+x ./make_windows_usb.sh)
#
# Insert single external USB target device before running.
# Do not use blindly – bad things can happen.

## mobile-number-formatter.php

<?php
/**
 * Formats mobile numbers as international.
 *
 * @access public
 * @param string $number is a mobile phone number
 * @param array $args is an associative array of variables (see $defaults)
 * @return string
 */

## geolocation.js
var geomaptarget = document.getElementById("geomaptarget");
var field_latitude = document.getElementById("field_latitude");
var field_longitude = document.getElementById("field_longitude");

function getLocation() {
	if ( geomaptarget !== null ) { // for paginated forms
	    if (navigator.geolocation) {
	        navigator.geolocation.getCurrentPosition( // https://developer.mozilla.org/en-US/docs/Web/API/Geolocation/getCurrentPosition

	            // Success function

## excel-url-decode.vba
Function URLDecode(ByVal strIn)
    On Error Resume Next
    Dim sl&, tl&, key$, kl&
    sl = 1:    tl = 1: key = "%": kl = Len(key)
    sl = InStr(sl, strIn, key, 1)
    Do While sl > 0
        If (tl = 1 And sl <> 1) Or tl < sl Then
            URLDecode = URLDecode & Mid(strIn, tl, sl - tl)
        End If
        Dim hh$, hi$, hl$, a$
	' Reverses LTR tables with visually RTL content and vice versa
	' Tested with simple table (no merged cells) on Microsoft 365 versions of:
	' Microsoft Word for Mac, Version 16.83
	' Microsoft Word for Windows, Version 2402
	Sub ReverseTableColumns()
	Dim tbl As Table
	Dim colCount As Long
	Dim i As Long
	Dim j As Long
	Dim tempContent As String
	<!doctype html>
	<html>
	<head>
	<meta charset="utf-8"/>
	<title>Markdown Parsing</title>
	</head>
	<body>
	<h1>Markdown Parsing using Marked JS</h1>
	<p>Fetches Marked JS Readme.md as an example.</p>
	<section id="content"></section>
	#!/bin/bash
	sudo apt update && sudo apt upgrade -y

	### APT
	function install_apt_packages {

	apt_packages=""

	read -e -p "Install Gnome Tweaks? (n) " choice
	[[ "$choice" == [Yy]* ]] && apt_packages="${apt_packages}gnome-tweaks "
	#!/bin/bash
	BoldGreen='\033[1;32m'
	NoColour='\033[0m'

	## Parameter specified?
	if [ $# -eq 0 ]; then
	echo -e "No package specified"
	exit 1
	fi
	#!/bin/bash
	# Installs Homebrew and Wimlib if not already installed,
	# then formats and prepares an external USB device as
	# a bootable Windows installer from your Windows ISO.
	#
	# Usage: ./make_windows_usb.sh windows_installer.iso
	# (first make executable with: chmod u+x ./make_windows_usb.sh)
	#
	# Insert single external USB target device before running.
	# Do not use blindly – bad things can happen.

	<?php
	/**
	* Formats mobile numbers as international.
	*
	* @access public
	* @param string $number is a mobile phone number
	* @param array $args is an associative array of variables (see $defaults)
	* @return string
	*/
	var geomaptarget = document.getElementById("geomaptarget");
	var field_latitude = document.getElementById("field_latitude");
	var field_longitude = document.getElementById("field_longitude");

	function getLocation() {
	if ( geomaptarget !== null ) { // for paginated forms
	if (navigator.geolocation) {
	navigator.geolocation.getCurrentPosition( // https://developer.mozilla.org/en-US/docs/Web/API/Geolocation/getCurrentPosition

	// Success function
	Function URLDecode(ByVal strIn)
	On Error Resume Next
	Dim sl&, tl&, key$, kl&
	sl = 1: tl = 1: key = "%": kl = Len(key)
	sl = InStr(sl, strIn, key, 1)
	Do While sl > 0
	If (tl = 1 And sl <> 1) Or tl < sl Then
	URLDecode = URLDecode & Mid(strIn, tl, sl - tl)
	End If
	Dim hh$, hi$, hl$, a$