| import Combine | |
| enum Either<Left, Right> { | |
| case left(Left) | |
| case right(Right) | |
| enum Select { case left, right } | |
| } | |
| struct _EitherPublisher<Left, Right, Select, Failure>: Publisher |
| 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(-) |
| // 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) { |
#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
| (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) |
| // Copyright © 2021 Christian Tietze. All rights reserved. Distributed under the MIT License. | |
| import Foundation | |
| extension URL { | |
| /// Produces a relative path to get from `baseURL` to the receiver for use in e.g. labels. | |
| /// | |
| /// When there's no common ancestor, e.g. `/tmp/` and `/var/`, then this returns an absolute path. The only exception to this rule is when `baseURL` itself is the root `/`, since tor that base _all_ paths are relative. | |
| /// | |
| /// - Returns: Shortest relative path to get from `baseURL` to receiver, e.g. `"../../subdirectory/file.txt"`, and `"."` if both are identical. Absolute path (or absolute URL for non-`file://` URLs) if there's nothing in common. |
| require 'kramdown/parser/kramdown' | |
| require 'kramdown-parser-gfm' | |
| # Based on the API doc comment: https://github.com/gettalong/kramdown/blob/master/lib/kramdown/parser/kramdown.rb | |
| class Kramdown::Parser::GFMWikiLink < Kramdown::Parser::GFM | |
| def initialize(source, options) | |
| super | |
| # Override existing Table parser to use our own start Regex which adds a check for wikilinks | |
| @@parsers.delete(:table) #Data(:table, TABLE_START, nil, "parse_table") |
| #!/usr/bin/env ruby | |
| # | |
| # convert_dayone_to_org.rb | |
| # Copyright © 2020 Christian Tietze. All rights reserved. Distributed under the MIT License. | |
| # | |
| # Converts a Day One plain text export (Journal.txt) into org-mode journal format. It does | |
| # - Markdown image conversion from  to [[thepath.jpg]] | |
| # - Extraction of images from the front of an entry; moves it right after the property drawer. | |
| # - Creation of nested year/month/day date sections (see example below) | |
| # |
| ;; Licensed under GNU/GPL. https://emacsgifs.github.io/html-entities-helper | |
| (defun ct/html-entity-insert () | |
| "Select and insert an html entity. | |
| Uses the list from https://en.wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references." | |
| (interactive) | |
| (defvar _html-entity-list | |
| '("char: \" entity: " text: quotation mark (APL quote)" | |
| "char: & entity: & text: ampersand" | |
| "char: ' entity: ' text: apostrophe (apostrophe-quote); see below" | |
| "char: < entity: < text: less-than sign" |