alphapapa

#!/usr/bin/env hy3

(import [requests [get :as fetch]])

(require [hy.extra.anaphoric [ap-each :as aeach
                              ap-map :as amap]]
         [hy.contrib.walk [let]])

(defmacro try* [&rest body]
  `(try ~@body

alphapapa

Plain inactive

[2019-02-01 Fri]

Deadline

Scheduled

Closed

Plain active

alphapapa

;; FIFO queue implementation using cyclic doubly linked lists
;;
;; This data structure is a bit overkill for a queue,
;; but it has many other uses

;; a doubly linked list cell look like (val . (prev-cell next-cell))
;;
;; a FIFO queue object looks like ('fifo . cyclic-doubly-linked-list)
;;
;; An empty FIFO queue would be: ('fifo . nil)

alphapapa

;; Moved to dedicated repo: https://github.com/alphapapa/snow.el

alphapapa

(cl-defmacro bench-lexical-binding (&key (times 1) forms ensure-equal)
  "FIXME docstring"
  (declare (indent defun))
  `(let ((dynamic (bench-multi :times ,times :ensure-equal ,ensure-equal :raw t
                    :forms ,forms))
         (lexical (bench-multi-lexical :times ,times :ensure-equal ,ensure-equal :raw t
                    :forms ,forms))
         (header '("Form" "x faster than next" "Total runtime" "# of GCs" "Total GC runtime"))
         combined-results)
     (cl-loop for result in-ref dynamic

alphapapa

--filter

(bench-multi :times 1000 :ensure-equal t
  :forms (("buffer-local-value" (--filter (equal 'magit-status-mode (buffer-local-value 'major-mode it))
                                          (buffer-list)))
          ("with-current-buffer" (--filter (equal 'magit-status-mode (with-current-buffer it
                                                                       major-mode))
                                           (buffer-list)))))

alphapapa

(test-it)

Form	x faster than next	Total runtime	# of GCs	Total GC runtime
buffer-local-value	82.16	0.015201458999999999	0	0.0
with-current-buffer	slowest	1.2490068650000001	0	0.0

alphapapa

;;; org-kbd

;; (setq org-emphasis-alist '(("%" org-kbd verbatim)
;;                            ("*" bold)
;;                            ("/" italic)
;;                            ("_" underline)
;;                            ("=" org-verbatim verbatim)
;;                            ("~" org-code verbatim)
;;                            ("+"
;;                             (:strike-through t))))

alphapapa

Plots

Tasks

alphapapa

#!/bin/bash

# * Defaults

compression=xz
subdir="web"

# * Functions

function debug {