Skip to content

Instantly share code, notes, and snippets.

View zzamboni's full-sized avatar
:octocat:

Diego Zamboni zzamboni

:octocat:
View GitHub Profile
available-modules = [
&dwm_date= { date "+DATE: %d/%m/%y TIME: %H:%M:%S" }
&dwm_battery= { acpi -b | cut -d ',' -f 2 | cut -d ' ' -f 2 }
]
modules = [ ]
fn populate {
modules = (keys $available-modules | each [m]{
put "[ "($available-modules[$m])" ]"
> m = hs.menubar.new()
> m:setTitle("Boo")
hs.menubar: Boo (0x600000980258)
> m:setClickCallback(function (mods) print(hs.inspect(mods)) end)
hs.menubar: Boo (0x600000980258)
> {
alt = false,
Sampling process 934 for 3 seconds with 1 millisecond of run time between samples
Sampling completed, processing symbols...
Analysis of sampling Hammerspoon (pid 934) every 1 millisecond
Process: Hammerspoon [934]
Path: /Applications/Hammerspoon.app/Contents/MacOS/Hammerspoon
Load Address: 0x100565000
Identifier: org.hammerspoon.Hammerspoon
Version: 0.9.76 (5104)
Code Type: X86-64
Parent Process: ??? [1]
[exit_hook] --- Uncaught exception ---
[bootstrap_exception_catch_wrapper] --- Uncaught exception ---
* user type instance (type and fields optionally follow)
* type (name and optionally constructors and parents follow) id=0 ptr=0x10384c1e0
* string(len=14) EmptyArrayFail
* hash with total of 2 items in 8 buckets at 0x10384c190
* bucket # 2
* item at 0x103c56480 with hash() of 3690986026 insertion_order_prev=0x0 insertion_order_next=0x103c57f40
* key
* string(len=7) message
Start testing: Apr 13 17:20 CEST
----------------------------------------------------------
1/1 Testing: all
1/1 Test: all
Command: "/usr/local/bin/bash" "-c" "NGS_BOOTSTRAP=/Users/taazadi1/Downloads/ngs-0.2.6/lib/bootstrap.ngs NGS_DIR=/Users/taazadi1/Downloads/ngs-0.2.6/lib /Users/taazadi1/Downloads/ngs-0.2.6/build/ngs /Users/taazadi1/Downloads/ngs-0.2.6/test.ngs"
Directory: /Users/taazadi1/Downloads/ngs-0.2.6/build
"all" start time: Apr 13 17:20 CEST
Output:
----------------------------------------------------------
[WARNING 2019-04-13 17:20:03 CEST] Using deprecated filter(e)
diff --git a/update.elv b/update.elv
index 7bf4d15..b071890 100644
--- a/update.elv
+++ b/update.elv
@@ -73,7 +73,11 @@ fn check-commit [&commit=(current-commit-or-tag) &verbose=$false]{
compare = [(re:split "\r\n\r\n" $compare)]
headers = $compare[-2]
json = (echo $compare[-1] | from-json)
- if (and (has-key $json total_commits) (> $json[total_commits] 0)) {
+ total_commits = 0
@zzamboni
zzamboni / gist:aeae21ff0de48a37c9158efac0745594
Last active June 5, 2018 21:00
Example of automatic detection in Elvish of options, their arguments (e.g. <style>, <branch>) and their descriptions using comp:extract-opts
> git checkout -<tab>
COMPLETING argument
--conflict <style> (conflict style (merge or diff3)) --theirs (checkout their version for unmerged files)
--detach (detach HEAD at named commit) --track (set upstream info for new branch)
--force (force checkout (throw away local modifications)) -2 (checkout our version for unmerged files)
--ignore-other-worktrees (do not check if another worktree is holding the given ref) -3 (checkout their version for unmerged files)
--ignore-skip-worktree-bits (do not limit pathspecs to sparse entries only) -B <branch> (create/reset and checkout a branch)
--merge (perform a 3-way merge with the new branch) -b <branch> (create and checkout a new branch)
--orphan <new-branch> (new unparented branch) -f (force checkout (throw away local modions))
~> rm -rf .elvish
~> mkdir .elvish
~> cat > .elvish/rc.elv
edit:insert:binding[Tab] = { edit:completion:smart-start; edit:completion:trigger-filter }
edit:rprompt = { date +%T }
edit:-prompt-eagerness = 10
edit:rprompt-persistent = $true
use github.com/zzamboni/elvish-completions/git
~> epm:install github.com/zzamboni/elvish-completions
=> Installing github.com/zzamboni/elvish-completions
--- === KSheet ===
---
--- Keybindings cheatsheet for current application
---
--- Download: [https://github.com/Hammerspoon/Spoons/raw/master/Spoons/KSheet.spoon.zip](https://github.com/Hammerspoon/Spoons/raw/master/Spoons/KSheet.spoon.zip)
local obj={}
obj.__index = obj
-- Metadata
This file has been truncated, but you can view the full file.
(list
(esup-result "esup-result" :file "/usr/local/Cellar/emacs/26.1-rc1/share/emacs/26.1/lisp/vc/vc-git.elc" :start-point 404 :line-number 15 :expression-string #("(byte-code \"\\300\\301\\302\\303\\304\\305\\306\\307&\\210\\310\\311\\312\\313\\314DD\\315\\316\\317\\304\\320&\\210\\310\\321\\312\\313\\322DD\\323\\316\\324\\304\\325&\\210\\310\\326\\312\\313\\327DD\\330\\316\\331\\304\\325&\\210\\310\\332\\312\\313\\333DD\\334\\304\\305\\316\\335&\\210\\310\\336\\312\\313\\337DD\\340\\316\\341\\304\\305&\\210\\310\\342\\312\\313\\343DD\\344\\316\\345\\304\\325&\\210\\310\\346\\312\\313\\347DD\\350\\316\\351\\304\\325&\\207\" [custom-declare-group vc-git nil \"VC Git backend.\" :version \"24.1\" :group vc custom-declare-variable vc-git-diff-switches funcall function #[0 \"\\300\\207\" [t] 1] \"String or list of strings specifying switches for Git diff under VC.\\nIf nil, use the value of `vc-diff-switches'. If t, use no switches.\" :type (choice (const :tag \"Unspecified\" nil) (const :tag \"None\"