nat-418

Intro

TCL-Expect scripts are an amazingly easy way to script out laborious tasks in the shell when you need to be interactive with the console. Think of them as a "macro" or way to programmaticly step through a process you would run by hand. They are similar to shell scripts but utilize the .tcl extension and a different #! call.

Setup Your Script

The first step, similar to writing a bash script, is to tell the script what it's executing under. For expect we use the following:

#!/usr/bin/expect

nat-418

Manage Neovim plugins (and more!) with Nix and Home Manager

Highly extensible software like Emacs, Vim, and Neovim tend to grow their own package managers. A software developer, for example, might want to install editor plugins that hook into a particular programming language's linter or language server. The programmer's text editor is therefore extended to support managing additional software to extend the text editor. If this loop continues for too long, the programmer's editor becomes more delicate and complex. The remedy for this problem is to manage software using dedicated tools apart

nat-418

Have you Hyper for Great Good

So. You have become an Emacs wizard. And you find yourself aching for the simplicity that another modifier key would introduce into your life. Ah, the things you could do with Hyper.

Or maybe, you just want Hyper for another reason.

... Except everywhere you look, everyone's talking about .xmodmaps and xkbcomp, but you're using one of those fancy desktop managers. (Aka, not awesome, dwm, xmonad or something even more hipster) And because of that, you're lost in the sea of confusion that is trying to customize your keyboard mapping.

Gnome, Cinnamon, and KDE all use xkb.

nat-418

[Desktop Entry]
Name[en_US]=hyper-key
Comment[en_US]=Set CapsLock to Control and Escape to Hyper
Exec=/usr/local/bin/hyper-key.sh
Icon=application-default-icon
X-GNOME-Autostart-enabled=true
Type=Application

nat-418

#!/usr/bin/env tclsh

# get flag parser from the standard library (tcllib)
package require cmdline

# set version of our command-line application (this file)
set version 0.0.1

# declare what flags to parse
# format: {flag  default description}

nat-418

#!/usr/bin/env tclsh
#
# How to read user input from an interactive text editor in Tcl
# =============================================================
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY

nat-418

#!/bin/sh 
#
# How to prompt user input from an interactive text editor in POSIX shell.
# ======================================================================
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY

nat-418

#!/bin/env tclsh

# language should be a two-character ISO code
# languages must be installed using Argos GUI
set language_codes {
    ar de en es fr it zh
}

# CLI takes two arguments, ignore the rest
lassign $argv from_code to_code

nat-418

# Format a list of lists into an evently-spaced table for logging etc.
#
# @param llst    List of lists to format.
# @param padding Optionally specify how many spaces to separate fields, defaults to four.
# @return String of the pretty table.
proc table {llst {padding 4}} {
    set lengths [lmap each [join $llst] {string length $each}]
    set longest [expr $padding + max([join $lengths ","])]

    foreach lst $llst {

nat-418

# Draw a UTF-8 box around some text. Useful for pretty-printing, logging, etc.
#
# @param str String to draw box around
# @return String enclosed in a fancy box
proc box str {
    # Draw the top of the box
    #
    # @param length Number representing how long the top should be
    # @return String drawing the top of the box
    proc top length {