DivineDominion

#! /usr/bin/env bash
while read line
do
    echo "$line"
done < "${1:-/dev/stdin}"

DivineDominion

enum MyError: Error {
    case failureA
    case failureB
}

func produceFailure() throws(MyError) -> Int {
    throw .failureB
}

do throws(MyError) {

DivineDominion

(defun ct/denote--date-key-regexp (file-type)
  (if (equal file-type 'org)
      "#\\+date:"
    (message "Supports only 'org' at the moment")))

(ct/denote-extract-date-from-front-matter
(defun ct/denote-extract-date-from-front-matter (date-string)
  "Returns a decoded time structure.

Format:

DivineDominion

(defvar ct/org-created-property-name "CREATED"
  "The name of the org-mode property that stores the creation date of the entry")

(defun ct/org-set-created-property (&optional active NAME)
  "Set a property on the entry giving the creation time.

By default the property is called CREATED. If given the `NAME'
argument will be used instead. If the property already exists, it
will not be modified."
  (interactive)

DivineDominion

import Combine

enum Either<Left, Right> {
    case left(Left)
    case right(Right)

    enum Select { case left, right }
}

struct _EitherPublisher<Left, Right, Select, Failure>: Publisher

DivineDominion

From e17e2ecd417864c725fe5f182a25cf3024251263 Mon Sep 17 00:00:00 2001
From: Christian Tietze <ctietze@noreply.codeberg.org>
Date: Sat, 26 Nov 2022 11:07:24 +0000
Subject: [PATCH] add mastodon-toot--scheduled-at buffer-local variable to
 optionally schedule posts

---
 lisp/mastodon-toot.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

DivineDominion

// Based on an idea from page 188 in:
//
// Robert C. Martin (2009): 
//  "Clean Code. A Handbook of Agile Software Craftsmanship",
//  Upper Saddle River: Prentice Hall.

import Foundation

@inline(__always)
func jiggleThread(minimumDelay: TimeInterval = 0.3, maximumDelay: TimeInterval = 4) {

DivineDominion

202207041909 AppStorage extension for strongly typed keys

#appstorage #swiftui

The @AppStorage property wrapper for observable access to UserDefaults keys is stringified.

To get a strongly typed key access, I oriented myself on the @Environment(\.keyPath) wrapper and my experience with SwiftyUserDefaults and its subscript-based access.

// Use defaultValue from the key:
@AppStorage(\.showOnboarding) var showOnboarding

DivineDominion

(require 'magit)

(defun magit-current-section-menu-label ()
  "Menu item label for section at point."
  (pcase (magit-diff-scope)
    ('hunk     "Hunk")
    ('hunks    "Hunks")
    ('file     "File")
    ('files    "Files")
    ('module   "Module")

DivineDominion

(defmacro ct/tab-bar-select-action-define (num)
  `(defun ,(intern (format "ct/tab-bar-select-%i" num)) ()
     ,(format "Select tab %i by its absolute number." num)
     (interactive)
     (tab-bar-select-tab ,num)))

;; Manual calls work
(progn
  (ct/tab-bar-select-action-define 1)
  (ct/tab-bar-select-action-define 2)