rougier

;;; 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.

rougier

(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")

rougier

Section 1

Section 1.1

Section 1.1.1

Section 1.1.2

Section 1.2

Section 1.2.1

Section 1.2.2

rougier

;; 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

rougier

(require 'xml)
(require 'svg)

(let* ((text "Hello world!")
       (font       (query-font (font-at (point-min))))
       (font-size  (elt font 2))
       (family     (face-attribute 'default :family))
       (descent    (elt font 4))
       (ascent     (elt font 5))
       (svg-height (+ ascent descent))

rougier

(require 'svg-lib)

(defun org-agenda-custom-date ()
  (interactive)
  (let* ((timestamp (org-entry-get nil "TIMESTAMP"))
         (timestamp (or timestamp (org-entry-get nil "DEADLINE"))))
    (if timestamp
        (let* ((timestamp (ts-parse-org timestamp))
               (delta (/ (ts-diff timestamp (ts-now)) (* 24 60 60)))
               (delta (/ (+ 1 delta) 30))

rougier

;; mu4e setup -*- lexical-binding: t; -*-

;; This file is not part of GNU Emacs.
;;
;; This program 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 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but

rougier

;; mu4e thread fast folding -*- lexical-binding: t; -*-

;; This file is not part of GNU Emacs.
;;
;; This program 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 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but

rougier

@import url('https://fonts.googleapis.com/css2?family=Roboto+Condensed:wght@300;400&family=Source+Code+Pro:wght@300;400&display=swap');
 
.rendered_html h1,
.rendered_html h2,
.rendered_html h3,
.rendered_html h4 {
    color: #000099;
    font-weight: 400;
}

rougier

(require 'mu4e)
(require 'mu4e-dashboard)

(setq mu4e-sidebar-frame nil)
(setq mu4e-sidebar-dashboard-file "~/.emacs.d/lisp/dashboard.org")

(defun mu4e-sidebar-create (dashboard-file)
  (let ((width (frame-pixel-width))
        (height (frame-pixel-height))
        (frame (make-frame `((parent-frame . ,(window-frame))