strickc

gistup

strickc

#! /bin/bash
# Create express app and configure apache httpd server
# creates sample-application in current directory (where the script is run from)
# To use run following commands from lightsail ssh session prompt:
# > git clone https://gist.github.com/strickc/9f59702d4fc47ef18ee45316448d73e2 quickstart
# > cd quickstart && ./lightsail-nodejs-quickstart.sh

# stop script on error
set -e

strickc

[Desktop Entry]
Version=1.0
Name=sourceStart
Comment=Source Developement Console
Exec=gnome-terminal -x /bin/bash -ic "cd ~/source; echo Starting in source dir; exec bash"
Terminal=false
X-MultipleArgs=true
Type=Application
Icon=utilities-terminal
StartupNotify=true

strickc

# this script can be SOURCED by any other script to get options in local variables
# SCRIPTOPTx and OPTARGx (if x designated as `x:` to request an argument)
# i.e. from parent script:
#    declare -A SCRIPTOPTS=( \
#       [s]="Save to backup loaction" \
#       [n:]="Copy resulting dtb to NFS boot folder, at designated location" \
#       ) 
#    `source ./0optParser.sh "$@"`

function printHelp {

strickc

' Paste in script for each worksheet you want to auto-update the pivot tables for
Private Sub Worksheet_Activate()
    Dim p As PivotTable
    For Each p In ActiveSheet.PivotTables
        p.PivotCache.Refresh
    Next p
    Cells.EntireColumn.AutoFit
End Sub

strickc

1. Install ESLint VS Code extension

2. Install Vue 2 Snippts VS Code extension

3. Install eslint-plugin-html: npm install --save-dev eslint-plugin-html

4. Add "plugins": ["html"] to eslintrc config file as per eslint-plugin-html instructions. Vue extension is enabled by default for the plugin.

5. Open VS Code user settings and add vue to eslint.validate:

   "eslint.validate": [ "javascript", "javascriptreact", "vue" ]
   

strickc

' Mutates the range passed in the paramter to a user selected value.
' Returns true if range is set, or false if not set (i.e. the user pressed cancel)
Function promptForRange(prompt As String, title As String, ByRef res As Range) As Boolean
    promptForRange = False
    On Error Resume Next
        Set res = Application.InputBox(prompt, title, , , , , , 8)
    On Error GoTo 0
    If Not res Is Nothing Then promptForRange = True
End Function

strickc

Function xValRange(cForm As String) As Range
    Dim chunks() As String
    chunks = Split(cForm, ",")
    Set xValRange = Range(chunks(UBound(chunks) - 2))
End Function

'To use:
' 1) create a chart from x/y data in columns on the spreadsheet
' 2) add custom labels for specific points in an adjacent column
' 3) select the series in the chart and run the sub AttachLabelsToPoints (Alt-F8)

strickc

Public Function interpolate(knownValue As Double, knownRange As range, resultRange As range) As Double
    Application.Volatile
    Dim kR As Variant, uR As Variant, i As Integer, kBottom As Double, kTop As Double, uBottom As Double, uTop As Double, s As Integer
    kR = knownRange
    uR = resultRange
    If (Not UBound(kR) = UBound(uR)) Or UBound(uR) < 2 Then
        interpolate = CVErr(xlErrValue)
        Exit Function
    End If
    For i = LBound(kR) To UBound(kR)

strickc

Weather Report

A Pen by Connor Stricklan on CodePen.

License.