| (defun folding-box (content &optional size title prefix type folded) | |
| "Enclose TEXT with a box of given SIZE with an optional TITLE at | |
| the top. | |
| If a PREFIX is given, it is prepended to the box such that total | |
| size is enforced, including prefix. If a title is given, the | |
| content of the box can be shown/hidden by clicking on the title | |
| and initial state is specified with FOLDED. The type of the box | |
| can be either 'unicode or 'ascii." |
| ;;; init-mastodon.el --- Mastodon layout mockup -*- lexical-binding: t -*- | |
| ;; Copyright (C) 2022 Nicolas P. Rougier | |
| ;; This file is not part of GNU Emacs. | |
| ;; This file is free software; you can redistribute it and/or modify | |
| ;; it under the terms of the GNU General Public License as published by | |
| ;; the Free Software Foundation; either version 3, or (at your option) | |
| ;; any later version. |
| ;;; init-mastodon.el --- Mastodon layout mockup -*- lexical-binding: t -*- | |
| ;; Copyright (C) 2022 Nicolas P. Rougier | |
| ;; This file is not part of GNU Emacs. | |
| ;; This file is free software; you can redistribute it and/or modify | |
| ;; it under the terms of the GNU General Public License as published by | |
| ;; the Free Software Foundation; either version 3, or (at your option) | |
| ;; any later version. |
| (defface quick-command-face | |
| `((t :foreground ,(face-foreground 'default) | |
| :background ,(face-background 'highlight nil t) | |
| :height ,(face-attribute 'default :height) | |
| :box '(:line-width (1 . 1) | |
| :color ,(face-foreground 'default) | |
| :style none))) | |
| "Face for quick command") |
NB! command-R is replaced with holding the power button on M1 macs.
a. Boot into recovery using command-R during reboot, wipe the harddrive using Disk Utility, and select reinstall macOS
b. Initial installation will run for approximately 1 hour, and reboot once
| ;; Open scratch buffer, evalute code below and drag and drop some files onto the scratch buffer. | |
| ;; Code by Ivan Tadeu Ferreira Antunes Filho | |
| ;; https://ivanaf.com/emacs_drag-drop_pdfs_paste_html_custom_templates.html | |
| (defun scratch--file-insert (uri) | |
| (message "%s" uri)) | |
| (defun scratch--file-dnd-fallback (uri action) | |
| (let ((dnd-protocol-alist | |
| (rassq-delete-all 'scratch--file-dnd-protocol |
| # From https://stackoverflow.com/questions/9755538/how-do-i-create-a-list-of-random-numbers-without-duplicates | |
| # Code by Thomas Lux | |
| # | |
| # Return a randomized "range" using a Linear Congruential Generator | |
| # to produce the number sequence. Parameters are the same as for | |
| # python builtin "range". | |
| # Memory -- storage for 8 integers, regardless of parameters. | |
| # Compute -- at most 2*"maximum" steps required to generate sequence. | |
| # | |
| def random_range(start, stop=None, step=None): |
| ;; Nicolas .P Rougier emacs configuration - mini-frame configuration | |
| ;; --------------------------------------------------------------------- | |
| (require 'vertico) | |
| (require 'marginalia) | |
| (require 'mini-frame) | |
| (defun minibuffer-setup () | |
| ;; This prevents the header line to spill over second line | |
| (let ((inhibit-message t)) |