xificurC

(advice-remove 'kill-emacs 'spacemacs-really-exit)
(defun ad-advice-kill-emacs (orig-fun)
  "Prompt before killing."
  (if (and (not spacemacs-really-kill-emacs)
           (spacemacs/persistent-server-running-p))
      (when (y-or-n-p "Really kill frame?")
        (spacemacs/frame-killer))
    (when (y-or-n-p "Really exit?")
      (funcall orig-fun))))
(advice-add 'kill-emacs :around 'ad-advice-kill-emacs)

xificurC

textual: complement charset "<"
test: {
   <div class="tmi-group ">
   <div class="tmi tmi-daily bold ">
   <div class="tmi-text-group">
   <div class="tmi-name">
   text here
   <span class="tmi-qty">0,2l </span>
   more text here.
   </div>

xificurC

function dataRange {
    param ($rngFirst)
    $rngAll = $rngFirst.CurrentRegion
    $rngData = $rngAll.Offset(1,0).Resize($rngAll.Rows.Count)
    return $rngData
}

...

dataRange($ws.Range("A1")) # loads as Boolean

xificurC

#!/bin/bash

local files=("file one" "file two")
touch "${files[@]}"
bash -c "rm ??"

xificurC

/ # update-ca-certificates 
/etc/ca-certificates/update.d/c_rehash: exec: line 2: /usr/bin/c_rehash: not found
run-parts: /etc/ca-certificates/update.d/c_rehash: exit status 2

xificurC

root@4e7f2ed9b46c:/tmp/hadoop-2.7.2# bin/hadoop checknative -a
16/05/12 12:51:03 WARN bzip2.Bzip2Factory: Failed to load/initialize native-bzip2 library system-native, will use pure-Java version
16/05/12 12:51:03 INFO zlib.ZlibFactory: Successfully loaded & initialized native-zlib library
Native library checking:
hadoop:  true /tmp/hadoop-2.7.2/lib/native/libhadoop.so.1.0.0
zlib:    true /lib/x86_64-linux-gnu/libz.so.1
snappy:  true /usr/lib/libsnappy.so.1
lz4:     true revision:99
bzip2:   false
openssl: false Cannot load libcrypto.so (libcrypto.so: cannot open shared object file: No such file or directory)!

xificurC

#!/usr/bin/env factor-vm

USING: kernel io namespaces sequences io.launcher io.directories io.encodings.utf8 io.files io.files.info io.pathnames concurrency.messaging threads math tools.threads accessors calendar ;
IN: script

: git-clean? ( path -- t/f )
    [ "git status --untracked-files=no --porcelain" utf8 [ read1 not ]
      with-process-reader* ] with-directory nip 0 = and ;

: git-pull ( path -- )

xificurC

Leiningen 2.8.1 on Java 1.8.0_181 OpenJDK 64-Bit Server VM

{:dependencies
 ([org.clojure/clojure "1.9.0"] [criterium/criterium "0.4.4"]),
 :jvm-opts nil,
 :eval-in nil}

Benchmark: get value in nested map

Mean(us)  vs best   Code

xificurC

;; from https://github.com/codebrutale/harpoons

(ns harpoons.core
  #?(:cljs (:require-macros harpoons.core)))

(defmacro non-nil
  "Return the leftmost non-nil value.

  The evaluation is short-circuiting and each form is evaluated at most once.

xificurC

#!/usr/bin/env bb
(ns user
  (:require
   [clojure.edn :as edn]
   [clojure.java.io :as io]
   [clojure.string :as str]
   [babashka.fs :as fs]))

(def wpms-kept 10)
(def drop-at-least 5)