shayelkin

function ec -d 'Runs emacsclient on the host the current user is physically sitting at'
    if test -z $argv
        echo "Error: at least one argument is required"
        return 1
    end

    set -l origin (echo "$SSH_CLIENT"  | awk '{print $1}')

    if test -z $origin
        echo "Could not find remote host, using local emacsclient"

shayelkin

;; Following is inspired by MLScroll (https://github.com/jdtsmith/mlscroll), intended
;; to replace mood-line-segment-scroll in mood-line (https://git.tty.dog/hpet_dog/mood-line).

(defun window-scroll-percentage ()
  "Return current position in window, as a fraction, accounting for window height."
  (let* ((end (window-end))
         (total (point-max)))
    (if (< end total)
        (let* ((start (window-start)))
          (/ (float start) (+ (- total end) start)))

shayelkin

#!/usr/bin/env bash


# rg-gh, a replacement for GitHub code search.
# --------------------------------------------
# Uses ripgrep (rg) to search, skim (sk) and bat to select a result, 
# then prints a link to it on GitHub's website.
#
# To install the necessary dependencies:
# cargo install ripgrep -F pcre2

shayelkin

(defmacro -> (form &rest forms)
  (reduce 
   (lambda (acc next)
     (if (listp next)
         (list* (car next) acc (cdr next))
         (list next acc)))
   forms
   :initial-value form))

shayelkin

;; AoC 2020 Day 4. Solve by generating a huge regex.

(require '[clojure.string :as s])


(def sample-passports
"ecl:gry pid:860033327 eyr:2020 hcl:#fffffd
byr:1937 iyr:2017 cid:147 hgt:183cm

iyr:2013 ecl:amb cid:350 eyr:2023 pid:028048884

shayelkin

/**
 * Four methods to test if an integer is a power of two.
 * Compile with `-march=haswell`.
 */

#include <stdlib.h>
#include <stdio.h>
#include <immintrin.h>
#include <time.h>

shayelkin

#!/usr/bin/env python2
"""
Soduko solver. Everybody writes one.
"""   

sample = "003020600900305001001806400008102900700000008006708200002609500800203009005010300"

all_bits = int('1'*9,2)

def load_puzzle(s):

shayelkin

;; https://twitter.com/sartanbegavhaum/status/1066051737650429952

(defn non-trivial-factors [n]
  (filter #(zero? (mod n %)) (range 2 n)))

(def prime? (comp empty? non-trivial-factors))

(defn tomer-number? [n]
  (when-let [facts (seq (non-trivial-factors n))]
    (every? prime? facts)))

shayelkin

(s/defn camel->lisp :- s/Str
  [s :- s/Str]
  (->> s
       (re-seq #("?:^\p{javaLowerCase}|\p{javaUpperCase}\p{javaLowerCase}+"))
       (map string/lower-case)
       (string/join "-")))

(s/defn keys-camel->list :- {s/Keyword s/Any}
  [h :- {s/Keyword s/Any} & [recursive :- s/Bool]]
  (into {} (map (fn [[k v]] [(-> k str (subs 1) camel->lisp)

shayelkin

// Forwards all emails in the inbox from `from_email` to Expensify, and archive them.
//
// To use:
// Add this function to a Google Apps Scripts project, and add a trigger (in Resources -> Current Project Triggers)
// to call it on a given interval. 
// Make sure to specify the senders you'd like to forward!


function toExpensifyBySender(from_email) {
  var threads = GmailApp.search('from:' + from_email + ' in:inbox');