add pomodoro
This commit is contained in:
parent
114349cb47
commit
f8b2182c7b
File diff suppressed because it is too large
Load diff
BIN
org/elpa/pomidor-20240601.1617/overwork.wav
Normal file
BIN
org/elpa/pomidor-20240601.1617/overwork.wav
Normal file
Binary file not shown.
30
org/elpa/pomidor-20240601.1617/pomidor-autoloads.el
Normal file
30
org/elpa/pomidor-20240601.1617/pomidor-autoloads.el
Normal file
|
@ -0,0 +1,30 @@
|
||||||
|
;;; pomidor-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
|
||||||
|
;; Generated by the `loaddefs-generate' function.
|
||||||
|
|
||||||
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;;; Generated autoloads from pomidor.el
|
||||||
|
|
||||||
|
(autoload 'pomidor "pomidor" "\
|
||||||
|
A simple and cool pomodoro technique timer." t)
|
||||||
|
(register-definition-prefixes "pomidor" '("pomidor-"))
|
||||||
|
|
||||||
|
;;; End of scraped data
|
||||||
|
|
||||||
|
(provide 'pomidor-autoloads)
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; version-control: never
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; no-update-autoloads: t
|
||||||
|
;; no-native-compile: t
|
||||||
|
;; coding: utf-8-emacs-unix
|
||||||
|
;; End:
|
||||||
|
|
||||||
|
;;; pomidor-autoloads.el ends here
|
16
org/elpa/pomidor-20240601.1617/pomidor-pkg.el
Normal file
16
org/elpa/pomidor-20240601.1617/pomidor-pkg.el
Normal file
|
@ -0,0 +1,16 @@
|
||||||
|
(define-package "pomidor" "20240601.1617" "Simple and cool pomodoro timer"
|
||||||
|
'((emacs "24.3")
|
||||||
|
(alert "1.2")
|
||||||
|
(dash "2.17.0"))
|
||||||
|
:commit "de71c34a1a9aff745181107094d3389816dbeca5" :authors
|
||||||
|
'(("TatriX" . "tatrics@gmail.com"))
|
||||||
|
:maintainers
|
||||||
|
'(("TatriX" . "tatrics@gmail.com"))
|
||||||
|
:maintainer
|
||||||
|
'("TatriX" . "tatrics@gmail.com")
|
||||||
|
:keywords
|
||||||
|
'("tools" "time" "applications" "pomodoro technique")
|
||||||
|
:url "https://github.com/TatriX/pomidor")
|
||||||
|
;; Local Variables:
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; End:
|
715
org/elpa/pomidor-20240601.1617/pomidor.el
Normal file
715
org/elpa/pomidor-20240601.1617/pomidor.el
Normal file
|
@ -0,0 +1,715 @@
|
||||||
|
;;; pomidor.el --- Simple and cool pomodoro timer
|
||||||
|
|
||||||
|
;; Author: TatriX <tatrics@gmail.com>
|
||||||
|
;; URL: https://github.com/TatriX/pomidor
|
||||||
|
;; Keywords: tools, time, applications, pomodoro technique
|
||||||
|
;; Version: 0.6.2
|
||||||
|
;; Package-Requires: ((emacs "24.3") (alert "1.2") (dash "2.17.0"))
|
||||||
|
|
||||||
|
;; 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 2, or (at your option)
|
||||||
|
;; any later version.
|
||||||
|
;;
|
||||||
|
;; This program is distributed in the hope that it will be useful,
|
||||||
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
;; GNU General Public License for more details.
|
||||||
|
;;
|
||||||
|
;; You should have received a copy of the GNU General Public License
|
||||||
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; pomidor is a simple and cool
|
||||||
|
;; [[http://www.pomodorotechnique.com/][pomodoro technique]] timer.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'cl-lib)
|
||||||
|
(require 'alert)
|
||||||
|
(require 'dash)
|
||||||
|
(require 'json)
|
||||||
|
(require 'parse-time)
|
||||||
|
|
||||||
|
;;; Customs
|
||||||
|
(defgroup pomidor nil
|
||||||
|
"Customs for `pomidor'"
|
||||||
|
:group 'productivity)
|
||||||
|
|
||||||
|
(defcustom pomidor-buffer-name "*pomidor*"
|
||||||
|
"Name of the pomidor buffer."
|
||||||
|
:type 'string :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-history-buffer-name "*pomidor-history*"
|
||||||
|
"Name of the pomidor history buffer."
|
||||||
|
:type 'string :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-seconds (* 25 60)
|
||||||
|
"Time length of a Podomoro round."
|
||||||
|
:type 'integer :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-break-seconds (* 5 60)
|
||||||
|
"Time length of a Podomoro break."
|
||||||
|
:type 'integer :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-update-interval 60
|
||||||
|
"Interval in seconds when pomidor should run hooks and play overwork sounds."
|
||||||
|
:type 'integer :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-confirm-end-break t
|
||||||
|
"If t ask for confirmation before ending a break and starting new a pomodoro."
|
||||||
|
:type 'boolean :group 'pomidor)
|
||||||
|
|
||||||
|
;;; Vars
|
||||||
|
(defcustom pomidor-time-format "%H:%M:%S"
|
||||||
|
"Time format for podomoro clock."
|
||||||
|
:type 'string :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-history-date-format "%Y-%m-%dT%H:%M:%S"
|
||||||
|
"Date format used to save the session ended value."
|
||||||
|
:type 'string :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-duration-format "%H:%M:%S"
|
||||||
|
"Time format for duration intervals."
|
||||||
|
:type 'string :group 'pomidor)
|
||||||
|
|
||||||
|
(defconst pomidor-dir (file-name-directory (or load-file-name buffer-file-name))
|
||||||
|
"Pomidor directory in which sounds store.")
|
||||||
|
|
||||||
|
(defcustom pomidor-sound-tick (expand-file-name (concat pomidor-dir "tick.wav"))
|
||||||
|
"Tick sound during a pomoro run."
|
||||||
|
:type '(file :must-match t)
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-sound-tack (expand-file-name (concat pomidor-dir "tack.wav"))
|
||||||
|
"Tick sound during a pomoro run."
|
||||||
|
:type '(file :must-match t)
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-sound-overwork (expand-file-name (concat pomidor-dir "overwork.wav"))
|
||||||
|
"Overwork sound."
|
||||||
|
:type '(file :must-match t)
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-sound-break-over (expand-file-name (concat pomidor-dir "overwork.wav"))
|
||||||
|
"Break over sound."
|
||||||
|
:type '(file :must-match t)
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-save-session-file (expand-file-name "pomidor-session.json" user-emacs-directory)
|
||||||
|
"Pomidor session store file."
|
||||||
|
:type '(file :must-match t)
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-breaks-before-long 4
|
||||||
|
"How many short breaks before the long break."
|
||||||
|
:type 'integer :group 'pomidor)
|
||||||
|
|
||||||
|
(defcustom pomidor-long-break-seconds (* 20 60)
|
||||||
|
"Time length of a Podomoro long break."
|
||||||
|
:type 'integer :group 'pomidor)
|
||||||
|
|
||||||
|
;; libnotify for some reason can't display svg
|
||||||
|
(defvar pomidor-icon (concat data-directory "images/icons/hicolor/16x16/apps/emacs.png")
|
||||||
|
"Default pomidor icon.")
|
||||||
|
|
||||||
|
(defun pomidor-default-alert-message ()
|
||||||
|
"Default pomidor alert message if any."
|
||||||
|
(cond
|
||||||
|
((and (pomidor-overwork-p) (pomidor-should-long-break-p))
|
||||||
|
(format "Take a long break!\nOverwork: [%s]"
|
||||||
|
(format-time-string "%H:%M:%S" (pomidor-overwork-duration) t)))
|
||||||
|
((pomidor-overwork-p)
|
||||||
|
(format "Take a break!\nOverwork: [%s]"
|
||||||
|
(format-time-string "%H:%M:%S" (pomidor-overwork-duration) t)))
|
||||||
|
((pomidor-break-over-notify-p)
|
||||||
|
(format "Go back to work!\nBreak: [%s]"
|
||||||
|
(format-time-string "%H:%M:%S" (pomidor-break-duration) t)))))
|
||||||
|
|
||||||
|
(defun pomidor-default-alert ()
|
||||||
|
"Default pomidor alert."
|
||||||
|
(let ((message (pomidor-default-alert-message)))
|
||||||
|
(when message
|
||||||
|
(alert message
|
||||||
|
:severity 'normal
|
||||||
|
:icon pomidor-icon
|
||||||
|
:title "Pomidor"
|
||||||
|
:category 'pomidor))))
|
||||||
|
|
||||||
|
(defcustom pomidor-alert #'pomidor-default-alert
|
||||||
|
"Pomidor alert function.
|
||||||
|
To disable alerts, set to nil."
|
||||||
|
:type '(choice (const nil)
|
||||||
|
function)
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defun pomidor-play-sound-file-emacs (file)
|
||||||
|
"Play FILE by starting new Emacs process."
|
||||||
|
(if (fboundp 'play-sound-internal)
|
||||||
|
(start-process "pomidor-play-sound-file-emacs"
|
||||||
|
nil
|
||||||
|
(car command-line-args)
|
||||||
|
"-Q"
|
||||||
|
"--batch"
|
||||||
|
"--eval" (format "(play-sound-file \"%s\")" file))
|
||||||
|
(warn "This Emacs binary lacks sound support")))
|
||||||
|
|
||||||
|
(defcustom pomidor-play-sound-file #'pomidor-play-sound-file-emacs
|
||||||
|
"Function to play sounds (preferably async).
|
||||||
|
To disable sounds, set to nil."
|
||||||
|
:type '(choice (const nil)
|
||||||
|
function)
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defvar pomidor-update-hook nil)
|
||||||
|
|
||||||
|
;;; Faces
|
||||||
|
(defface pomidor-time-face
|
||||||
|
'((t (:height 4.0)))
|
||||||
|
"pomidor face for time"
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defface pomidor-date-face
|
||||||
|
'((t (:height 4.0)))
|
||||||
|
"pomidor face for date"
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defface pomidor-timer-face
|
||||||
|
'((t (:height 5.0)))
|
||||||
|
"pomidor face for timer"
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defface pomidor-work-face
|
||||||
|
'((t (:inherit success)))
|
||||||
|
"pomidor face for work"
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defface pomidor-overwork-face
|
||||||
|
'((t (:inherit warning)))
|
||||||
|
"pomidor face for overwork"
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defface pomidor-break-face
|
||||||
|
'((t (:inherit font-lock-keyword-face)))
|
||||||
|
"pomidor face for break"
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
(defface pomidor-skip-face
|
||||||
|
'((t (:inherit font-lock-comment-face)))
|
||||||
|
"pomidor face for skip"
|
||||||
|
:group 'pomidor)
|
||||||
|
|
||||||
|
|
||||||
|
;;; Vars
|
||||||
|
(defvar pomidor-timer nil
|
||||||
|
"Pomidor timer.")
|
||||||
|
|
||||||
|
(defvar pomidor-global-state nil
|
||||||
|
"Pomidor global state.")
|
||||||
|
|
||||||
|
(defvar pomidor-graph-char ?█
|
||||||
|
"Pomidor char for displaying tubes.")
|
||||||
|
|
||||||
|
(defvar pomidor-header-separator " — "
|
||||||
|
"Pomidor string to separate time and duration in header.")
|
||||||
|
|
||||||
|
(defvar pomidor-header-session-name-separator " : "
|
||||||
|
"Pomidor string to separate the regular header from the session name in history mode.")
|
||||||
|
|
||||||
|
(defvar pomidor--current-history-session nil
|
||||||
|
"Hold the current visible pomidor history snapshot.")
|
||||||
|
|
||||||
|
(defvar pomidor--count-short-breaks 0
|
||||||
|
"Pomidor integer of how many short breaks we have before a long break.")
|
||||||
|
|
||||||
|
(defvar pomidor--system-on-hold-p nil
|
||||||
|
"Pomidor control of hold in system.")
|
||||||
|
|
||||||
|
;;; Private
|
||||||
|
|
||||||
|
(defun pomidor--current-state ()
|
||||||
|
"Return current state."
|
||||||
|
(car (last pomidor-global-state)))
|
||||||
|
|
||||||
|
(defun pomidor--reset ()
|
||||||
|
"Delete current global state."
|
||||||
|
(setq pomidor-global-state (list (pomidor--make-state))))
|
||||||
|
|
||||||
|
(defun pomidor--make-state ()
|
||||||
|
"Make pomidor state."
|
||||||
|
(list :started (current-time)
|
||||||
|
:break nil
|
||||||
|
:stopped nil
|
||||||
|
:snooze nil))
|
||||||
|
|
||||||
|
(defun pomidor--started (state)
|
||||||
|
"Return started time for STATE."
|
||||||
|
(plist-get state :started))
|
||||||
|
|
||||||
|
(defun pomidor--break (state)
|
||||||
|
"Return break time for STATE."
|
||||||
|
(plist-get state :break))
|
||||||
|
|
||||||
|
(defun pomidor--stopped (state)
|
||||||
|
"Return stopped time for STATE.
|
||||||
|
It's a time when user started a new timer after this one."
|
||||||
|
(plist-get state :stopped))
|
||||||
|
|
||||||
|
(defun pomidor--ended (state)
|
||||||
|
"Return ended time for STATE.
|
||||||
|
It's either stopped time or current time."
|
||||||
|
(or (pomidor--stopped state) (current-time)))
|
||||||
|
|
||||||
|
(defun pomidor--work-duration (state)
|
||||||
|
"Return work time for STATE."
|
||||||
|
(let* ((started (pomidor--started state))
|
||||||
|
(ended (or (pomidor--break state) (pomidor--ended state)))
|
||||||
|
(work (time-subtract ended started))
|
||||||
|
(max (seconds-to-time pomidor-seconds)))
|
||||||
|
(if (time-less-p work max)
|
||||||
|
work
|
||||||
|
max)))
|
||||||
|
|
||||||
|
(defun pomidor--overwork-duration (state)
|
||||||
|
"Return overwork time for STATE or nil."
|
||||||
|
;; (cur - started) - (cur - break) - max
|
||||||
|
(let* ((started (pomidor--started state))
|
||||||
|
(break (or (pomidor--break state) (pomidor--ended state)))
|
||||||
|
(work (pomidor--work-duration state))
|
||||||
|
(ended (pomidor--ended state))
|
||||||
|
(max (seconds-to-time pomidor-seconds))
|
||||||
|
(overwork (time-subtract (time-subtract (time-subtract ended started)
|
||||||
|
(time-subtract ended break))
|
||||||
|
max)))
|
||||||
|
(when (> (time-to-seconds overwork) 0)
|
||||||
|
overwork)))
|
||||||
|
|
||||||
|
(defun pomidor-running-p ()
|
||||||
|
"Return t if pomidor is running right now."
|
||||||
|
(timerp pomidor-timer))
|
||||||
|
|
||||||
|
(defun pomidor-overwork-p ()
|
||||||
|
"Return t if current state is overwork."
|
||||||
|
(let* ((state (pomidor--current-state))
|
||||||
|
(overwork (pomidor--overwork-duration state)))
|
||||||
|
(and overwork (null (pomidor--break state)))))
|
||||||
|
|
||||||
|
(defun pomidor-should-long-break-p ()
|
||||||
|
"Return t if current state should take a long break."
|
||||||
|
(cl-equalp pomidor--count-short-breaks (1+ pomidor-breaks-before-long)))
|
||||||
|
|
||||||
|
(defun pomidor-break-over-notify-p ()
|
||||||
|
"Return t if current break is over and user should be notified about it.
|
||||||
|
To snooze the notification use `pomidor-break'."
|
||||||
|
(and (pomidor-break-over-p) (not (pomidor-snooze-p))))
|
||||||
|
|
||||||
|
(defun pomidor-break-over-p ()
|
||||||
|
"Return t if current break is over."
|
||||||
|
(let* ((state (pomidor--current-state))
|
||||||
|
(break (pomidor--break-duration state))
|
||||||
|
(expected-break-seconds (if (pomidor-should-long-break-p)
|
||||||
|
pomidor-long-break-seconds
|
||||||
|
pomidor-break-seconds)))
|
||||||
|
(and break (> (time-to-seconds break) expected-break-seconds))))
|
||||||
|
|
||||||
|
(defun pomidor-snooze-p ()
|
||||||
|
"Return t if user snooze end of break alarm."
|
||||||
|
(plist-get (pomidor--current-state) :snooze))
|
||||||
|
|
||||||
|
(defun pomidor--total-duration (state)
|
||||||
|
"Return total time for STATE."
|
||||||
|
(time-subtract (pomidor--ended state) (pomidor--started state)))
|
||||||
|
|
||||||
|
(defun pomidor--break-duration (state)
|
||||||
|
"Return break time for STATE."
|
||||||
|
(let ((break (pomidor--break state)))
|
||||||
|
(and break (time-subtract (pomidor--ended state) break))))
|
||||||
|
|
||||||
|
(defun pomidor--format-header (time state face)
|
||||||
|
"Return formated header for TIME with FACE."
|
||||||
|
(let ((freezed-time (plist-get state :session-ended)))
|
||||||
|
(concat (pomidor--with-face (concat (pomidor--format-time (or freezed-time (current-time)))
|
||||||
|
pomidor-header-separator)
|
||||||
|
'pomidor-time-face)
|
||||||
|
(propertize (pomidor--format-duration time)
|
||||||
|
'face `(:inherit (,face pomidor-timer-face)))
|
||||||
|
(when (eq major-mode 'pomidor-history-mode)
|
||||||
|
(pomidor--with-face (concat pomidor-header-session-name-separator
|
||||||
|
(format-time-string "%Y-%m-%d" freezed-time))
|
||||||
|
'pomidor-date-face)))))
|
||||||
|
|
||||||
|
(defun pomidor--header (state)
|
||||||
|
"Return header."
|
||||||
|
(let* ((break (pomidor--break-duration state))
|
||||||
|
(overwork (pomidor--overwork-duration state))
|
||||||
|
(work (pomidor--work-duration state)))
|
||||||
|
(cond
|
||||||
|
(break (pomidor--format-header break state 'pomidor-break-face))
|
||||||
|
(overwork (pomidor--format-header overwork state 'pomidor-overwork-face))
|
||||||
|
(work (pomidor--format-header work state 'pomidor-work-face)))))
|
||||||
|
|
||||||
|
|
||||||
|
(defun pomidor--format-time (time)
|
||||||
|
"Format TIME as of `pomidor-time-format'."
|
||||||
|
(format-time-string pomidor-time-format time))
|
||||||
|
|
||||||
|
(defun pomidor--format-duration (time)
|
||||||
|
"Format TIME as of `pomidor-duration-format'.
|
||||||
|
TIME may be nil."
|
||||||
|
(format-time-string pomidor-duration-format (or time (seconds-to-time 0)) t))
|
||||||
|
|
||||||
|
(defun pomidor--window-width ()
|
||||||
|
"Return pomidor buffer width in chars."
|
||||||
|
(window-total-width (get-buffer-window (pomidor--get-buffer-create))))
|
||||||
|
|
||||||
|
(defun pomidor--with-face (string face)
|
||||||
|
"Retrun STRING with FACE."
|
||||||
|
(propertize string 'font-lock-face face))
|
||||||
|
|
||||||
|
(defun pomidor--format-time-string (time face)
|
||||||
|
"Format graph string for TIME with FACE."
|
||||||
|
(pomidor--with-face (make-string (round (/ (time-to-seconds time)
|
||||||
|
(/ (float pomidor-seconds) (/ (pomidor--window-width) 2))))
|
||||||
|
pomidor-graph-char)
|
||||||
|
face))
|
||||||
|
|
||||||
|
(defun pomidor--graph (work overwork break)
|
||||||
|
"Format graph based on WORK, OVERWORK and BREAK time."
|
||||||
|
(concat
|
||||||
|
(pomidor--format-time-string work 'pomidor-work-face)
|
||||||
|
(let ((skip (- pomidor-seconds (time-to-seconds work))))
|
||||||
|
(when (> skip 0)
|
||||||
|
(pomidor--format-time-string (seconds-to-time skip) 'pomidor-skip-face)))
|
||||||
|
(and overwork (pomidor--format-time-string overwork 'pomidor-overwork-face))
|
||||||
|
(and break (pomidor--format-time-string break 'pomidor-break-face))))
|
||||||
|
|
||||||
|
(defun pomidor--play-sound-file (file)
|
||||||
|
"Play FILE using `pomidor-play-sound-file' function if any."
|
||||||
|
(when (and file (functionp pomidor-play-sound-file))
|
||||||
|
(funcall pomidor-play-sound-file file)))
|
||||||
|
|
||||||
|
(defun pomidor--tick-tack (ellapsed)
|
||||||
|
"Play tick or tack based on ELLAPSED."
|
||||||
|
(pomidor--play-sound-file
|
||||||
|
(if (zerop (mod ellapsed 2))
|
||||||
|
pomidor-sound-tick
|
||||||
|
pomidor-sound-tack)))
|
||||||
|
|
||||||
|
(defun pomidor--update ()
|
||||||
|
"Update pomidor state."
|
||||||
|
(let* ((state (pomidor--current-state))
|
||||||
|
(total (pomidor--total-duration state))
|
||||||
|
(ellapsed (round (time-to-seconds total))))
|
||||||
|
(pomidor--tick-tack ellapsed)
|
||||||
|
(when (zerop (mod ellapsed pomidor-update-interval))
|
||||||
|
(when (functionp pomidor-alert)
|
||||||
|
(funcall pomidor-alert))
|
||||||
|
(run-hooks 'pomidor-update-hook)
|
||||||
|
(cond
|
||||||
|
((pomidor-overwork-p)
|
||||||
|
(pomidor--play-sound-file pomidor-sound-overwork))
|
||||||
|
((pomidor-break-over-notify-p)
|
||||||
|
(pomidor--play-sound-file pomidor-sound-break-over)))))
|
||||||
|
(pomidor--render (pomidor--get-buffer-create) pomidor-global-state))
|
||||||
|
|
||||||
|
(defun pomidor--render (buffer states)
|
||||||
|
"Render pomidor state."
|
||||||
|
(when (get-buffer-window buffer t)
|
||||||
|
(with-current-buffer buffer
|
||||||
|
(read-only-mode -1)
|
||||||
|
(erase-buffer)
|
||||||
|
(insert (pomidor--header (car (last states)))
|
||||||
|
"\n")
|
||||||
|
(cl-loop
|
||||||
|
for i from 1
|
||||||
|
for state in states
|
||||||
|
|
||||||
|
as work = (pomidor--work-duration state)
|
||||||
|
as overwork = (pomidor--overwork-duration state)
|
||||||
|
as break = (pomidor--break-duration state)
|
||||||
|
as total = (pomidor--total-duration state)
|
||||||
|
|
||||||
|
with sum-work = (seconds-to-time 0)
|
||||||
|
with sum-overwork = (seconds-to-time 0)
|
||||||
|
with sum-break = (seconds-to-time 0)
|
||||||
|
with sum-total = (seconds-to-time 0)
|
||||||
|
|
||||||
|
do (progn
|
||||||
|
(setq sum-work (time-add sum-work work)
|
||||||
|
sum-total (time-add sum-total total))
|
||||||
|
(when overwork
|
||||||
|
(setq sum-overwork (time-add sum-overwork overwork)))
|
||||||
|
(when break
|
||||||
|
(setq sum-break (time-add sum-break break)))
|
||||||
|
(insert
|
||||||
|
"\n "
|
||||||
|
(make-string 79 ?-)
|
||||||
|
"\n"
|
||||||
|
(format "%3d) [%s] | [%s] | [%s] | [%s]\t\t %s → %s"
|
||||||
|
i
|
||||||
|
(pomidor--with-face (pomidor--format-duration work) 'pomidor-work-face)
|
||||||
|
(pomidor--with-face (pomidor--format-duration overwork) 'pomidor-overwork-face)
|
||||||
|
(pomidor--with-face (pomidor--format-duration break) 'pomidor-break-face)
|
||||||
|
(pomidor--format-duration total)
|
||||||
|
(pomidor--format-time (pomidor--started state))
|
||||||
|
(pomidor--format-time (pomidor--ended state)))
|
||||||
|
"\n "
|
||||||
|
(pomidor--graph work overwork break)))
|
||||||
|
finally
|
||||||
|
(insert "\n "
|
||||||
|
(make-string 79 ?-)
|
||||||
|
"\n\n"
|
||||||
|
(format " Work\t[%s]\n"
|
||||||
|
(pomidor--with-face (pomidor--format-duration sum-work) 'pomidor-work-face))
|
||||||
|
(format " Overwork\t[%s]\n"
|
||||||
|
(pomidor--with-face (pomidor--format-duration sum-overwork) 'pomidor-overwork-face))
|
||||||
|
(format " Break\t[%s]\n"
|
||||||
|
(pomidor--with-face (pomidor--format-duration sum-break) 'pomidor-break-face))
|
||||||
|
(format " Total\t[%s]\n"
|
||||||
|
(pomidor--format-duration sum-total)))
|
||||||
|
)
|
||||||
|
(read-only-mode +1))))
|
||||||
|
|
||||||
|
(defun pomidor--get-buffer-create ()
|
||||||
|
"Return a pomidor buffer."
|
||||||
|
(get-buffer-create pomidor-buffer-name))
|
||||||
|
|
||||||
|
(defun pomidor--get-history-buffer-create ()
|
||||||
|
"Create a history pomidor buffer."
|
||||||
|
(get-buffer-create pomidor-history-buffer-name))
|
||||||
|
|
||||||
|
(defun pomidor--cancel-timer ()
|
||||||
|
"Cancel pomidor timer."
|
||||||
|
(when (timerp pomidor-timer)
|
||||||
|
(cancel-timer pomidor-timer)
|
||||||
|
(setq pomidor-timer nil)))
|
||||||
|
|
||||||
|
(defun pomidor--read-session (preserve-timestamp?)
|
||||||
|
"Read the saved sessions."
|
||||||
|
(let* ((json-object-type 'plist)
|
||||||
|
(json-array-type 'list)
|
||||||
|
(data (json-read-file pomidor-save-session-file)))
|
||||||
|
(if preserve-timestamp?
|
||||||
|
data
|
||||||
|
(-map (lambda (pomidor)
|
||||||
|
(-map (lambda (v) (if (stringp v)
|
||||||
|
(parse-iso8601-time-string v)
|
||||||
|
v))
|
||||||
|
pomidor))
|
||||||
|
data))))
|
||||||
|
|
||||||
|
(defun pomidor--valid-sessions-dates (session-dates direction)
|
||||||
|
"Get valid date of SESSION-DATES from history data to move in correct DIRECTION."
|
||||||
|
(let ((fun (lambda (v)
|
||||||
|
(if (cl-equalp direction :backward)
|
||||||
|
(time-less-p v pomidor--current-history-session)
|
||||||
|
(time-less-p pomidor--current-history-session v)))))
|
||||||
|
(if pomidor--current-history-session
|
||||||
|
(-filter (lambda (dt) (funcall fun dt)) session-dates)
|
||||||
|
session-dates)))
|
||||||
|
|
||||||
|
;;; Public
|
||||||
|
|
||||||
|
(defvar pomidor-mode-map
|
||||||
|
(let ((map (make-keymap)))
|
||||||
|
(define-key map (kbd "q") #'quit-window)
|
||||||
|
(define-key map (kbd "Q") #'pomidor-quit)
|
||||||
|
(define-key map (kbd "R") #'pomidor-reset)
|
||||||
|
(define-key map (kbd "h") #'pomidor-hold)
|
||||||
|
(define-key map (kbd "H") #'pomidor-unhold)
|
||||||
|
(define-key map (kbd "RET") #'pomidor-stop)
|
||||||
|
(define-key map (kbd "SPC") #'pomidor-break)
|
||||||
|
(suppress-keymap map)
|
||||||
|
map))
|
||||||
|
|
||||||
|
(defun pomidor-work-duration ()
|
||||||
|
"Return current work duration."
|
||||||
|
(pomidor--work-duration (pomidor--current-state)))
|
||||||
|
|
||||||
|
(defun pomidor-overwork-duration ()
|
||||||
|
"Return current overwork duration."
|
||||||
|
(pomidor--overwork-duration (pomidor--current-state)))
|
||||||
|
|
||||||
|
(defun pomidor-break-duration ()
|
||||||
|
"Return current break duration."
|
||||||
|
(pomidor--break-duration (pomidor--current-state)))
|
||||||
|
|
||||||
|
(defun pomidor-total-duration ()
|
||||||
|
"Return current total duration."
|
||||||
|
(pomidor--total-duration (pomidor--current-state)))
|
||||||
|
|
||||||
|
(defun pomidor-quit ()
|
||||||
|
"Turn off Pomidor."
|
||||||
|
(interactive)
|
||||||
|
(when (y-or-n-p "Are you sure you want to turn off pomidor? ")
|
||||||
|
(kill-buffer (pomidor--get-buffer-create))))
|
||||||
|
|
||||||
|
(defun pomidor--reset-long-break-counter ()
|
||||||
|
"Reset the pomidor counter after `pomidor-breaks-before-long' short breaks."
|
||||||
|
(when (pomidor-should-long-break-p)
|
||||||
|
(setq pomidor--count-short-breaks 0)))
|
||||||
|
|
||||||
|
(defun pomidor-break ()
|
||||||
|
"Break current working pomidor."
|
||||||
|
(interactive)
|
||||||
|
(let ((state (pomidor--current-state)))
|
||||||
|
(if (pomidor--break state)
|
||||||
|
(progn
|
||||||
|
(plist-put state :snooze t)
|
||||||
|
(when (or (not pomidor-confirm-end-break)
|
||||||
|
(yes-or-no-p "Stop break and start new pomidor?"))
|
||||||
|
(pomidor-stop))
|
||||||
|
(pomidor--reset-long-break-counter))
|
||||||
|
(progn
|
||||||
|
(plist-put state :break (current-time))
|
||||||
|
(setq pomidor--count-short-breaks (1+ pomidor--count-short-breaks))))))
|
||||||
|
|
||||||
|
(defun pomidor-reset ()
|
||||||
|
"Delete current global state."
|
||||||
|
(interactive)
|
||||||
|
(when (y-or-n-p "Are you sure you want reset pomidors? ")
|
||||||
|
(setq pomidor--count-short-breaks 0)
|
||||||
|
(pomidor--reset)))
|
||||||
|
|
||||||
|
(defun pomidor-stop ()
|
||||||
|
"Stop current working pomidor."
|
||||||
|
(interactive)
|
||||||
|
(let ((state (pomidor--current-state)))
|
||||||
|
(plist-put state :stopped (current-time)))
|
||||||
|
(pomidor--reset-long-break-counter)
|
||||||
|
(nconc pomidor-global-state (list (pomidor--make-state))))
|
||||||
|
|
||||||
|
(defun pomidor-hold ()
|
||||||
|
"Stop the current working pomidor and puts the system on hold."
|
||||||
|
(interactive)
|
||||||
|
(let ((state (pomidor--current-state)))
|
||||||
|
(plist-put state :stopped (current-time)))
|
||||||
|
(setq pomidor--system-on-hold-p t)
|
||||||
|
(pomidor--cancel-timer))
|
||||||
|
|
||||||
|
(defun pomidor-unhold ()
|
||||||
|
"Unhold and start a new pomidor."
|
||||||
|
(interactive)
|
||||||
|
(when pomidor--system-on-hold-p
|
||||||
|
(nconc pomidor-global-state (list (pomidor--make-state)))
|
||||||
|
(setq pomidor--system-on-hold-p nil)
|
||||||
|
(setq pomidor-timer (run-at-time nil 1 #'pomidor--update))))
|
||||||
|
|
||||||
|
(defun pomidor-save-session ()
|
||||||
|
"Save the current session in a file."
|
||||||
|
(interactive)
|
||||||
|
(let ((time-asked-to-save (current-time)))
|
||||||
|
(pomidor-quit)
|
||||||
|
(plist-put (pomidor--current-state) :stopped time-asked-to-save)
|
||||||
|
(let* ((fmt-time (lambda (time) (when time (format-time-string pomidor-history-date-format time))))
|
||||||
|
(history-state (if (file-exists-p pomidor-save-session-file)
|
||||||
|
(pomidor--read-session :preserve-iso-timestamp)
|
||||||
|
(list)))
|
||||||
|
(global-state (-map (lambda (pomidor)
|
||||||
|
(list :started (funcall fmt-time (plist-get pomidor :started))
|
||||||
|
:break (funcall fmt-time (plist-get pomidor :break))
|
||||||
|
:stopped (funcall fmt-time (plist-get pomidor :stopped))
|
||||||
|
:snooze (plist-get pomidor :snooze)
|
||||||
|
:session-ended (funcall fmt-time time-asked-to-save)))
|
||||||
|
pomidor-global-state))
|
||||||
|
(new-history (append history-state global-state))
|
||||||
|
(new-history (-filter (lambda (pomidor) (or (plist-get pomidor :stopped)
|
||||||
|
(plist-get pomidor :break)
|
||||||
|
(plist-get pomidor :snooze)))
|
||||||
|
new-history)))
|
||||||
|
(with-temp-file pomidor-save-session-file
|
||||||
|
(insert (json-encode (vconcat new-history))))))
|
||||||
|
(message "Pomidor session saved!"))
|
||||||
|
|
||||||
|
(defun pomidor-history-previous ()
|
||||||
|
"Move backward in your pomidor history."
|
||||||
|
(interactive)
|
||||||
|
(let* ((session-data (pomidor--read-session nil))
|
||||||
|
(session-dates (-map (lambda (pomidor)
|
||||||
|
(plist-get pomidor :session-ended))
|
||||||
|
session-data)))
|
||||||
|
(if (= (length session-dates) 0)
|
||||||
|
(message "You have no session saved.")
|
||||||
|
(let* ((valid-session-dates (pomidor--valid-sessions-dates session-dates :backward)))
|
||||||
|
(if valid-session-dates
|
||||||
|
(progn
|
||||||
|
(setq pomidor--current-history-session (car (last valid-session-dates)))
|
||||||
|
(pomidor--render
|
||||||
|
(pomidor--get-history-buffer-create)
|
||||||
|
(-filter (lambda (pomidor)
|
||||||
|
(equal (car (last valid-session-dates))
|
||||||
|
(plist-get pomidor :session-ended)))
|
||||||
|
session-data)))
|
||||||
|
(message "History is over, go forward."))))))
|
||||||
|
|
||||||
|
(defun pomidor-history-next ()
|
||||||
|
"Move forward in your pomidor history."
|
||||||
|
(interactive)
|
||||||
|
(let* ((session-data (pomidor--read-session nil))
|
||||||
|
(session-dates (-map (lambda (pomidor)
|
||||||
|
(plist-get pomidor :session-ended))
|
||||||
|
session-data)))
|
||||||
|
(if (= (length session-dates) 0)
|
||||||
|
(message "You have no sessions saved.")
|
||||||
|
(let* ((valid-session-dates (pomidor--valid-sessions-dates session-dates :forward)))
|
||||||
|
(if valid-session-dates
|
||||||
|
(progn
|
||||||
|
(setq pomidor--current-history-session (car valid-session-dates))
|
||||||
|
(pomidor--render
|
||||||
|
(pomidor--get-history-buffer-create)
|
||||||
|
(-filter (lambda (pomidor)
|
||||||
|
(equal (car valid-session-dates)
|
||||||
|
(plist-get pomidor :session-ended)))
|
||||||
|
session-data)))
|
||||||
|
(message "History is over, go backward."))))))
|
||||||
|
|
||||||
|
|
||||||
|
(defun pomidor-history ()
|
||||||
|
"A simple pomodoro history feature. Compare your work over time."
|
||||||
|
(interactive)
|
||||||
|
(if (not (file-exists-p pomidor-save-session-file))
|
||||||
|
(message "You should save at least one session first.")
|
||||||
|
(switch-to-buffer (pomidor--get-history-buffer-create))
|
||||||
|
(unless (eq major-mode 'pomidor-history-mode)
|
||||||
|
(pomidor-history-mode))
|
||||||
|
(pomidor-history-previous)))
|
||||||
|
|
||||||
|
(defvar pomidor-history-mode-map
|
||||||
|
(let ((map (make-keymap)))
|
||||||
|
(define-key map (kbd "q") #'quit-window)
|
||||||
|
(define-key map (kbd "n") #'pomidor-history-next)
|
||||||
|
(define-key map (kbd "p") #'pomidor-history-previous)
|
||||||
|
(suppress-keymap map)
|
||||||
|
map))
|
||||||
|
|
||||||
|
(define-derived-mode pomidor-history-mode special-mode "pomidor-history"
|
||||||
|
"Major mode for Pomidor History.
|
||||||
|
|
||||||
|
\\{pomidor-history-mode-map}"
|
||||||
|
(setq pomidor-timer nil)
|
||||||
|
(setq pomidor--current-history-session nil))
|
||||||
|
|
||||||
|
(define-derived-mode pomidor-mode special-mode "pomidor"
|
||||||
|
"Major mode for Pomidor.
|
||||||
|
|
||||||
|
\\{pomidor-mode-map}"
|
||||||
|
(setq pomidor-timer (run-at-time nil 1 #'pomidor--update))
|
||||||
|
(setq-local tab-width 8)
|
||||||
|
(add-hook 'kill-buffer-hook #'pomidor--cancel-timer nil t)
|
||||||
|
(pomidor--reset))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun pomidor ()
|
||||||
|
"A simple and cool pomodoro technique timer."
|
||||||
|
(interactive)
|
||||||
|
(switch-to-buffer (pomidor--get-buffer-create))
|
||||||
|
(unless (eq major-mode 'pomidor-mode)
|
||||||
|
(setq pomidor--count-short-breaks 0)
|
||||||
|
(pomidor-mode))
|
||||||
|
(pomidor--update))
|
||||||
|
|
||||||
|
|
||||||
|
(provide 'pomidor)
|
||||||
|
|
||||||
|
;;; pomidor.el ends here
|
BIN
org/elpa/pomidor-20240601.1617/tack.wav
Normal file
BIN
org/elpa/pomidor-20240601.1617/tack.wav
Normal file
Binary file not shown.
BIN
org/elpa/pomidor-20240601.1617/tick.wav
Normal file
BIN
org/elpa/pomidor-20240601.1617/tick.wav
Normal file
Binary file not shown.
120
org/init.el
120
org/init.el
|
@ -70,6 +70,7 @@
|
||||||
(load "~/.emacs.d.profiles/common/_global.el")
|
(load "~/.emacs.d.profiles/common/_global.el")
|
||||||
(load "~/.emacs.d.profiles/common/generic_functions.el")
|
(load "~/.emacs.d.profiles/common/generic_functions.el")
|
||||||
(load "~/.emacs.d.profiles/common/workspaces.el")
|
(load "~/.emacs.d.profiles/common/workspaces.el")
|
||||||
|
(tool-bar-mode -1)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
; compile bytecode for this profile
|
; compile bytecode for this profile
|
||||||
|
@ -328,6 +329,122 @@
|
||||||
(when kmn/is-termux
|
(when kmn/is-termux
|
||||||
(load "~/.emacs.d.profiles/org/config-org-mobile.el"))
|
(load "~/.emacs.d.profiles/org/config-org-mobile.el"))
|
||||||
|
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
; pomidor
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
(use-package pomidor
|
||||||
|
:bind (("C-w P" . pomidor))
|
||||||
|
:config (setq pomidor-update-interval 30
|
||||||
|
pomidor-save-session-file "~/org/pomidor-sessions.json"
|
||||||
|
pomidor-alert nil
|
||||||
|
pomidor-sound-tick nil
|
||||||
|
pomidor-sound-tack nil
|
||||||
|
pomidor-sound-overwork nil
|
||||||
|
pomidor-sound-break-over nil)
|
||||||
|
:hook (pomidor-mode . (lambda ()
|
||||||
|
(display-line-numbers-mode -1) ; Emacs 26.1+
|
||||||
|
(setq left-fringe-width 0 right-fringe-width 0)
|
||||||
|
(setq left-margin-width 2 right-margin-width 0)
|
||||||
|
;; force fringe update
|
||||||
|
(set-window-buffer nil (current-buffer)))))
|
||||||
|
|
||||||
|
; setup 6 pomodoros for 8 hr work day
|
||||||
|
; 7 hours of work, with 1 hr of long breaks
|
||||||
|
; each pomodor is:
|
||||||
|
; warm up of 15 mins
|
||||||
|
; work of 45 mins
|
||||||
|
; total work period: 60 mins
|
||||||
|
; 10 min break
|
||||||
|
; total interval period: 70 mins
|
||||||
|
; long break is 30 mins
|
||||||
|
; every 3rd pomodoro give 30 minute break
|
||||||
|
|
||||||
|
(setq pomidor-seconds (* 60 60)) ; total work period
|
||||||
|
(setq pomidor-warmup-seconds (* 15 60)) ; warmup time
|
||||||
|
(setq pomidor-break-seconds (* 10 60))
|
||||||
|
(setq pomidor-breaks-before-long 3)
|
||||||
|
(setq pomidor-long-break-seconds (* 30 60))
|
||||||
|
|
||||||
|
; setup 'warmup period' functionality
|
||||||
|
(defun my-pomidor-update-hook ()
|
||||||
|
(let* ((state (pomidor--current-state))
|
||||||
|
(total (pomidor--total-duration state))
|
||||||
|
(ellapsed (round (time-to-seconds total))))
|
||||||
|
(if (<= ellapsed pomidor-warmup-seconds)
|
||||||
|
(setq pomidor-header-separator " 🌡️↑ ")
|
||||||
|
(setq pomidor-header-separator " — ")
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
(add-hook 'pomidor-update-hook #'my-pomidor-update-hook)
|
||||||
|
|
||||||
|
; position cursor @ top of pomidor buffer after rendering
|
||||||
|
(defun my-pomidor-beginning-of-buffer (buffer states)
|
||||||
|
(interactive)
|
||||||
|
(with-current-buffer (get-buffer pomidor-buffer-name)
|
||||||
|
(goto-char (point-min))
|
||||||
|
)
|
||||||
|
)
|
||||||
|
(advice-add #'pomidor--render :after #'my-pomidor-beginning-of-buffer)
|
||||||
|
|
||||||
|
; safely run pomidor in a buffer programatically
|
||||||
|
; doesnt mung or reset state
|
||||||
|
(defun my-pomidor-run-safe ()
|
||||||
|
; make sure pomidor is running + active w/o resetting the current state
|
||||||
|
(when (or (not (boundp 'pomidor-buffer-name))
|
||||||
|
(not (get-buffer pomidor-buffer-name)))
|
||||||
|
(pomidor)
|
||||||
|
(previous-buffer) ; pomidor switches buffers -- go back to orig buffer
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
; frame for pomidor, just the main timer text visible
|
||||||
|
; centered at bottom of the screen
|
||||||
|
(defun my-pomidor-frame ()
|
||||||
|
(interactive)
|
||||||
|
(select-frame (make-frame '(
|
||||||
|
(name . "Pomidor")
|
||||||
|
(menu-bar-lines 0)
|
||||||
|
(tool-bar-lines 0)
|
||||||
|
(width . (text-pixels . 818))
|
||||||
|
(height . (text-pixels . 144))
|
||||||
|
)))
|
||||||
|
; single monitor / main monitor positing
|
||||||
|
(let* ((dw (display-pixel-width))
|
||||||
|
(dh (display-pixel-height))
|
||||||
|
(f (selected-frame))
|
||||||
|
(fw (frame-pixel-width f))
|
||||||
|
(fh (frame-pixel-height f))
|
||||||
|
; handle multi-monitor goofy (main panel is /left/ of first panel)
|
||||||
|
; assumes a 1440p multi-monitor setup with monitor 1 'to the right of' monitor 2
|
||||||
|
; remove the (- [stuff] 2506) to undo this workaround
|
||||||
|
(x (- (- (/ dw 2) (/ fw 2)) 2560))
|
||||||
|
(y (- (- dh fh ) 100)))
|
||||||
|
(set-frame-position f x y)
|
||||||
|
)
|
||||||
|
; ensure pomidor is running & do /not/ reset state
|
||||||
|
(my-pomidor-run-safe)
|
||||||
|
; switch to pomidor buffer
|
||||||
|
(switch-to-buffer pomidor-buffer-name)
|
||||||
|
)
|
||||||
|
(global-set-key (kbd "C-M-p") 'my-pomidor-frame)
|
||||||
|
|
||||||
|
; pop win pomidor setup
|
||||||
|
; main way to invoke
|
||||||
|
; ensure pomidor is running before trying to open the buffer
|
||||||
|
; use global buffer name for pomidor
|
||||||
|
; make the popwin window 'sticky'
|
||||||
|
; position sticky popwin @ top
|
||||||
|
(push '(pomidor-mode :position top :stick t) popwin:special-display-config)
|
||||||
|
(global-set-key (kbd "C-w p")
|
||||||
|
(lambda () (interactive)
|
||||||
|
(my-pomidor-run-safe)
|
||||||
|
; open pomidor in popwin
|
||||||
|
(popwin:display-buffer (get-buffer pomidor-buffer-name))
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
; origami + super agenda config
|
; origami + super agenda config
|
||||||
(defvar ap/org-super-agenda-auto-hide-groups
|
(defvar ap/org-super-agenda-auto-hide-groups
|
||||||
|
@ -372,7 +489,8 @@
|
||||||
'(custom-safe-themes
|
'(custom-safe-themes
|
||||||
'("dde643b0efb339c0de5645a2bc2e8b4176976d5298065b8e6ca45bc4ddf188b7" "bfc0b9c3de0382e452a878a1fb4726e1302bf9da20e69d6ec1cd1d5d82f61e3d" default))
|
'("dde643b0efb339c0de5645a2bc2e8b4176976d5298065b8e6ca45bc4ddf188b7" "bfc0b9c3de0382e452a878a1fb4726e1302bf9da20e69d6ec1cd1d5d82f61e3d" default))
|
||||||
'(package-selected-packages
|
'(package-selected-packages
|
||||||
'((org-tidy org-auto-expand ox-pandoc ox-hugo org-super-agenda org-alert burnt-toast alert)
|
'(pomidor
|
||||||
|
(org-tidy org-auto-expand ox-pandoc ox-hugo org-super-agenda org-alert burnt-toast alert)
|
||||||
(devdocs devdocs-browser magit helm-ls-git xclip)
|
(devdocs devdocs-browser magit helm-ls-git xclip)
|
||||||
(which-key all-the-icons revert-buffer-all centaur-tabs scratch persistent-scratch persp-mode rainbow-mode rainbow-delimiters markdown-mode focus zoom popwin dired-single diredfl doominhibitinhibit-modeline helpful helm helm-org dired-rainbow dired-rainbow-listing dired-single dash s origami modus-themes use-package)))
|
(which-key all-the-icons revert-buffer-all centaur-tabs scratch persistent-scratch persp-mode rainbow-mode rainbow-delimiters markdown-mode focus zoom popwin dired-single diredfl doominhibitinhibit-modeline helpful helm helm-org dired-rainbow dired-rainbow-listing dired-single dash s origami modus-themes use-package)))
|
||||||
'(safe-local-variable-values
|
'(safe-local-variable-values
|
||||||
|
|
Reference in a new issue