uppet

(defvar random-pick-start "[[[PICK_START")
(defvar random-pick-end "]]]PICK_END")
(defun random-pick-0 (item-line-maker)
  (let* ((line-start-num
          (save-excursion
            (goto-char (point-min))
            (search-forward random-pick-start)
            (forward-line)
            ;; (thing-at-point 'line)
            (line-number-at-pos)))

uppet

; thanks for https://gist.github.com/inouetmhr/4116307
(defun base64-to-base64url (str)
  (setq str (replace-regexp-in-string "=+$" "" str))
  (setq str (replace-regexp-in-string "+" "-" str))
  (setq str (replace-regexp-in-string "/" "_" str)))

(defun base64url-to-base64 (str)
  (setq str (replace-regexp-in-string "-" "+" str))
  (setq str (replace-regexp-in-string "_" "/" str))
  (let ((mod (% (length str) 4)))