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

rougier

;; An experiment for an SVG toolbar using icons from material.io
;;
;; Example usage: (toolbar 48 "black" "white" t t)
;; Material icons freely available (Apache 2 license) from
;;    - https://material.io/resources/icons/?style=outline
;;    - https://github.com/google/material-design-icons

(require 'xml) (require 'svg)

(defun toobar-item (label icon fg-color bg-color size with-icon with-label)

rougier

;; ---------------------------------------------------------------------
;; Tag minor mode
;; Copyright (C) 2020 Nicolas .P Rougier
;;
;; 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,

rougier

;; nano.el -- A very minimal emacs
;; Usage: emacs -q -l nano.el
;; 
;; Copyright (C) 2020 Nicolas .P Rougier
;;
;; Author: Nicolas P. Rougier <nicolas.rougier@inria.fr>
;;
;; 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

rougier

;; animations
;; Requires =emacs-mac= fork
;; repo: https://bitbucket.org/mituharu/emacs-mac
;; homebrew tap: https://github.com/railwaycat/homebrew-emacsmacport

;; Crazy example
(mac-start-animation nil :type 'page-curl-with-shadow
                     :duration 1.0 :direction 'right :angle 45)
;; Less crazy
(mac-start-animation (selected-window) :type 'move-out

rougier

;; -------------------------------------------------------------------
;; An extension of the echo area to display static messages
;; Copyright 2020 Nicolas P. Rougier
;; -------------------------------------------------------------------
;; 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.

rougier

(require 'subr-x)

(defun enhanced-message (orig-fun &rest args)
  "This enhanced message displays a regular message in the echo area
   and adds a specific text on the right part of the echo area. This
   is to be used as an advice."
  (let* ((right (propertize
                 ;; Hack: The first space is a thin space, not a regular space
                 (format-time-string "   %A %d %B %Y, %H:%M  ")
                 'face '(:height 0.85

rougier

(defun elegant-agenda (char-width char-height)
  ""
  (interactive)
  (select-frame (make-frame))
  (set-frame-width (selected-frame) char-width)
  (set-frame-height (selected-frame) char-height)
  (set-frame-position (selected-frame)
                      (/ (- (display-pixel-width)  (frame-outer-width))  2)
                      (/ (- (display-pixel-height) (frame-outer-height)) 2))
  (x-focus-frame nil)

rougier

;; Material colors from https://material.io/design/color/
(defconst levels
  (list "L50"  "L100" "L200" "L300" "L400"
        "L500" "L600" "L700" "L800" "L900"
        "A100" "A200" "A400" "A700"))

(defconst red
  (list "#FFEBEE" "#FFCDD2" "#EF9A9A" "#E57373" "#EF5350"
        "#F44336" "#E53935" "#D32F2F" "#C62828" "#B71C1C"
        "#FF8A80" "#FF5252" "#FF1744" "#D50000"))