From 64b95760939c478a3fc463b4601f407a2e6bccd5 Mon Sep 17 00:00:00 2001
From: Tykayn <contact@cipherbliss.com>
Date: Tue, 11 Oct 2022 18:32:44 +0200
Subject: [PATCH] up config orgmode

---
 assets/config.org | 1529 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 1529 insertions(+)
 create mode 100644 assets/config.org

diff --git a/assets/config.org b/assets/config.org
new file mode 100644
index 00000000..9fbadad9
--- /dev/null
+++ b/assets/config.org
@@ -0,0 +1,1529 @@
+#+TITLE: My Emacs Configuration
+#+AUTHOR: TyKayn
+#+EMAIL: contact@cipherbliss.com
+#+OPTIONS: num:nil
+
+* Ma config [[id:3adc0f02-729a-42fc-ae1f-7c29a1e5b11c][emacs]] - config.org
+
+
+  Voici la documentation au format Orgmode de ma configuration d'Emacs. Pour que cela fonctionne, il faut demander au fichier de config dans le dossier utilisateur, le fichier "~/.emacs" débutant par un point, de l'actuel fichier config.org.
+
+	J'utilise un dossier Nextcloud pour stocker mes textes, on retrouvera donc souvent des mentions à ce dossier dans la config. Ma liste de tâches [[file:tasks.org]] pour la gestion de projets se compose d'un fichier principal et de quelques autres.
+	Les réunions ont leur propre fichier, le journal aussi.
+	Fichiers souvent utiles:
+	- file:/home/tykayn/Nextcloud/textes/orgmode/tasks.org
+	- [[file:reunions.org]].
+	- [[file:journal.org]].
+	- [[id:d8636e1d-0137-4502-9384-767b41c892b0][boulot]]
+	- [[id:c1c19fdf-ccab-4d78-b191-dbe0f8c66609][lemonway]]
+
+	Contenu du fichier de config [[file:~/.emacs]]
+	#+begin_quote
+	;; straight el bootstrap https://github.com/raxod502/straight.el#getting-started
+
+
+  (defvar bootstrap-version)
+  (let ((bootstrap-file
+  (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
+  (bootstrap-version 5))
+  (unless (file-exists-p bootstrap-file)
+  (with-current-buffer
+  (url-retrieve-synchronously
+  "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
+  'silent 'inhibit-cookies)
+  (goto-char (point-max))
+  (eval-print-last-sexp)))
+  (load bootstrap-file nil 'nomessage))
+
+	(straight-use-package 'use-package)
+	(setq straight-use-package-by-default t)
+	;; Disable package.el in favor of straight.el
+	(setq package-enable-at-startup nil)
+
+	(use-package org)
+	(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
+
+	(org-babel-load-file "~/Nextcloud/textes/orgmode/config.org")
+
+	#+end_quote
+
+* Introduction
+  Ma configuration d'Emacs. Voir la doc personnelle des concepts généraux d'[[id:3adc0f02-729a-42fc-ae1f-7c29a1e5b11c][emacs]] ici.
+** Initialisation de cette configuration
+   Pour que cela fonctionne, il faut demander au fichier de config dans le dossier utilisateur, le fichier ".emacs" débutant par un point, de charger ce fichier **config.org**.
+   J'utilise un dossier Nextcloud pour stocker mes textes, on retrouvera donc souvent des mentions à ce dossier dans la config.
+
+** Inspirations
+
+	 - https://blog.sumtypeofway.com/posts/emacs-config.html
+	 - http://doc.norang.ca/org-mode.html
+	 - https://sachachua.com/dotemacs/index.html#org3dfd9e3
+
+	 Plus sur mon blog:
+	 https://www.cipherbliss.com
+
+* List packages
+	Adding Melpa
+	#+begin_src emacs-lisp
+
+		;; add melpa packages
+		(require 'package)
+		(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
+		;; Comment/uncomment this line to enable MELPA Stable if desired.  See `package-archive-priorities`
+		;; and `package-pinned-packages`. Most users will not need or want to do this.
+		;;(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t)
+		(package-initialize)
+	#+end_src
+
+* Orgmode
+** Global
+	 #+begin_src emacs-lisp
+		 ;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+		 ;; Org-Mode
+
+																						 ; Things we can't set as defaults above, we can set here
+		 (defun org-setup ()
+			 (setq line-spacing 3)
+			 (setq global-hl-line-mode nil)
+			 (set-fringe-mode 0)
+																						 ; Enable habit tracking (and a bunch of other modules)
+							;;; position the habit graph on the agenda to the right of the default
+			 (setq org-habit-graph-column 50)
+			 (setq header-line-format " ")
+			 (setq org-ellipsis "⤵")
+			 (setq org-catch-invisible-edits 'show-and-error)
+			 (setq org-hide-emphasis-markers t)
+			 (setq org-fontify-whole-heading-line t)
+			 (setq org-tags-column 0)
+			 (setq org-adapt-indentation t)
+			 ;;			 (setq org-src-preserve-indentation t)
+			 (setq org-deadline-warning-days 0)
+			 (setq line-move-visual t)
+			 ;; Keep tasks with dates on the global todo lists
+			 (setq org-agenda-todo-ignore-with-date nil)
+			 ;; Keep tasks with deadlines on the global todo lists
+			 (setq org-agenda-todo-ignore-deadlines nil)
+			 ;; Keep tasks with scheduled dates on the global todo lists
+			 (setq org-agenda-todo-ignore-scheduled nil)
+			 ;; Keep tasks with timestamps on the global todo lists
+			 (setq org-agenda-todo-ignore-timestamp nil)
+			 ;; Remove completed deadline tasks from the agenda view
+			 (setq org-agenda-skip-deadline-if-done t)
+			 ;; Remove completed scheduled tasks from the agenda view
+			 (setq org-agenda-skip-scheduled-if-done t)
+			 ;; Remove completed items from search results
+			 ;; (setq org-agenda-skip-timestamp-if-done t)
+			 ;; Use sticky agenda's so they persist
+			 (setq org-agenda-sticky t)
+			 ;; block tasks if child tasks are not done
+			 (setq org-enforce-todo-dependencies t)
+			 (setq org-cycle-separator-lines 0)
+
+			 ;; Enable display of the time grid so we can see the marker for the current time
+
+
+			 (setq org-agenda-span 2)
+			 (setq org-agenda-tags-column -100) ; take advantage of the screen width
+			 (setq org-agenda-inhibit-startup t)
+			 (setq org-agenda-use-tag-inheritance t)
+			 (setq org-agenda-show-log t)
+			 (setq org-agenda-skip-scheduled-if-done t)
+			 (setq org-agenda-skip-deadline-if-done t)
+			 (setq org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled)
+			 (setq org-agenda-time-grid
+						 '((daily today require-timed)
+							 (800 1000 1200 1400 1600 1800 2000)
+							 "......" "----------------"))
+			 (setq org-columns-default-format "%14SCHEDULED %Effort{:} %1PRIORITY %TODO %50ITEM %TAGS")
+			 ;; Set default column view headings: Task Effort Clock_Summary
+			 (setq org-columns-default-format "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
+																						 ;
+			 ;; global Effort estimate values
+			 ;;																		 ; global STYLE property values for completion
+
+			 (setq
+				org-log-created 'time
+				org-log-done 'time
+				org-log-reschedule 'time
+				org-log-redeadline 'time
+				org-log-into-drawer t
+				org-log-refile 'time
+				)
+
+			 )
+		 (add-hook 'org-mode-hook #'org-setup)
+
+		 ;; click a link in the same frame when opening a file
+		 (custom-set-variables
+			'(org-link-frame-setup
+				'((vm . vm-visit-folder-other-frame)
+					(vm-imap . vm-visit-imap-folder-other-frame)
+					(gnus . org-gnus-no-new-news)
+					(file . find-file)
+					(wl . wl-other-frame)))
+
+			'(git-gutter:visual-line t)
+			)
+
+	 #+end_src
+** Contextes d'agenda
+	 #+begin_src emacs-lisp
+		 (defvar my-org-agenda-contexts
+			 '((tags-todo "phone")
+				 (tags-todo "work")
+				 (tags-todo "drawing")
+				 (tags-todo "coding")
+				 (tags-todo "writing")
+				 (tags-todo "reading")
+				 (tags-todo "computer")
+				 (tags-todo "home")
+				 (tags-todo "santé")
+				 (tags-todo "errands"))
+			 "Usual list of contexts.")
+
+		 (setq org-agenda-sorting-strategy
+					 '((agenda tag-up time-up priority-down category-keep)
+						 ;; (todo user-defined-up todo-state-up priority-down effort-up)
+						 (todo todo-state-up priority-down effort-up)
+						 (tags user-defined-up)
+						 (search category-keep)))
+		 (setq org-agenda-cmp-user-defined 'my-org-sort-agenda-items-user-defined)
+
+
+		 (defun my-org-agenda-list-unscheduled (&rest ignore)
+			 "Create agenda view for tasks that are unscheduled and not done."
+			 (let* ((org-agenda-todo-ignore-with-date t)
+							(org-agenda-overriding-header "List of unscheduled tasks: "))
+				 (org-agenda-get-todos)))
+		 (setq org-stuck-projects
+					 '("+PROJECT-MAYBE-DONE"
+						 ("TODO")
+						 nil
+						 "\\<IGNORE\\>"))
+
+
+
+
+	 #+end_src
+** Séquences de choses à faire
+
+
+	 #+begin_src emacs-lisp
+
+		 (setq org-todo-keywords
+					 '((sequence
+							"SOMEDAY(.!)"
+							"TODO(t!)"
+							"NEXT(n!)"
+							"|"
+							"DONE(x!)" "CANCELLED(c!)")
+						 (sequence
+							"TORELAUNCH(r@/!)" "TODELEGATE(-!)" "DELEGATED(d!)" "|" "DONE(1!)")))
+
+	 #+end_src
+** Vue d'agenda Orgmode
+	 Présentation personnalisée d'agenda, "custom views".
+
+	 #+begin_src emacs-lisp
+
+
+		 ;; Custom agenda command definitions --------------------------
+		 ;; https://orgmode.org/worg/org-tutorials/org-custom-agenda-commands.html
+
+		 (use-package org-super-agenda)
+		 (use-package org-ql)
+		 (bind-key "<apps> a" 'org-agenda)
+		 (setq org-return-follows-link t)
+		 (setq org-cycle-include-plain-lists 'integrate)
+		 (defun my-org-agenda-skip-scheduled ()
+			 (org-agenda-skip-entry-if 'scheduled 'deadline 'regexp "\n]+>"))
+
+		 (setq org-agenda-prefix-format
+					 '((agenda . " %i %-12:c%?-12t% s")
+						 (todo   . " ")
+						 (tags   . " %i %-12:c")
+						 (search . " %i %-12:c")))
+
+		 (setq org-agenda-custom-commands
+					 (quote (
+									 ("a" "Agenda"
+										((agenda "" ((org-agenda-span 2)))))
+									 ("c" "Classique Agenda et Todos"
+										((agenda "" ((org-agenda-span 2)))
+										 (alltodo
+											""
+											((org-agenda-overriding-header "")
+											 (org-super-agenda-groups
+												'((:name "Important, unscheduled"
+																 :and (:priority "A"
+																								 :scheduled nil)
+																 :order 2)
+													(:name "Inbox"
+																 :file-path "Inbox.org"
+																 :order 1)
+													(:name "Project-related, unscheduled"
+																 :and (:tag "project" :date nil :todo ("STARTED" "WAITING" "TODO"))
+																 :order 3)
+													(:name "Waiting"
+																 :and (:todo "WAITING"
+																						 :scheduled nil)
+																 :order 4)
+													(:discard (:todo "SOMEDAY"
+																					 :category "cooking"
+																					 :date t))
+													(:name "Unscheduled"
+																 :scheduled nil
+																 :order 5)
+													(:discard (:anything t))
+													)
+												)))
+										 ))
+									 ("x" "Unscheduled, untagged tasks" tags-todo "-someday-TODO=\"SOMEDAY\"-TODO=\"DELEGATED\"-TODO=\"WAITING\"-project-cooking-routine-evilplans-computer-writing-phone-sewing-home-errands-shopping"
+										((org-agenda-skip-function 'my-org-agenda-skip-scheduled)
+										 (org-agenda-view-columns-initially nil)
+										 (org-tags-exclude-from-inheritance '("project"))
+										 (org-agenda-overriding-header "Unscheduled TODO entries: ")
+										 (org-columns-default-format "%50ITEM %TODO %3PRIORITY %Effort{:} %TAGS")
+										 (org-agenda-sorting-strategy '(todo-state-up priority-down effort-up tag-up category-keep))))
+
+									 ("b" "Boulot" tags-todo "+boulot")
+									 ("c" "Cancelled" tags-todo "CANCELLED")
+									 ("D" "Done tasks" tags-todo "DONE")
+									 ("i" "Inbox to sort" tags "+inbox")
+									 ("g". "GTD Searches") ;; category searches
+									 ("gd" "Daily"
+										agenda "" (
+															 (org-agenda-overriding-header "\n-------------- Agenda du jour ------------------\n")
+															 (org-agenda-todo-keyword-format "[ ]")
+															 (org-agenda-span 1)
+															 (tags-todo "+PRIORITY=\"A\"")
+															 (tags-todo "+inbox")
+															 )
+										)
+									 ("gw" "Weekly review"
+										agenda "" (
+															 (org-agenda-overriding-header "\n-------------- Revue hebdomadaire\n------------------\n")
+															 (org-agenda-start-day "-7d")
+															 (org-agenda-span 7)
+															 (org-agenda-start-on-weekday 1)
+															 (org-agenda-start-with-log-mode '(closed))
+															 (org-agenda-archives-mode t)
+															 (org-agenda-todo-keyword-format "[X]")
+															 (org-agenda-skip-function
+																'(org-agenda-skip-entry-if 'notregexp "^\\*\\* DONE ")
+																)
+															 )
+										)
+									 ("g2" "Bi-weekly review" agenda "" ((org-agenda-span 14) (org-agenda-log-mode 1)))
+									 ("0" "Unestimated tasks" tags-todo "EFFORT=\"\"")
+									 ("5" "Quick tasks" tags-todo "EFFORT>=\"5\"&EFFORT<=\"15\"")
+									 ("8" "Medium tasks" tags-todo "EFFORT>=\"15\"&EFFORT<=\"60\"")
+									 ("9" "Unscheduled top 3 by context" my-org-agenda-contexts
+										((org-agenda-skip-function 'my-org-agenda-skip-scheduled)
+										 (org-agenda-sorting-strategy '(priority-down effort-down))
+										 (org-agenda-max-entries 3)))
+									 ("p" "By priority"
+										((tags-todo "+PRIORITY=\"A\"")
+										 (tags-todo "+PRIORITY=\"B\"")
+										 (tags-todo "+PRIORITY=\"\"")
+										 (tags-todo "+PRIORITY=\"C\""))
+										((org-agenda-prefix-format "%-10c %-10T %e ")
+										 (org-agenda-sorting-strategy '(priority-down tag-up category-keep effort-down))))
+									 ("P" "Printed paper agenda"
+										(
+										 (agenda "" (
+																 (org-agenda-span 7)                      ;; overview of appointments
+																 (org-agenda-start-on-weekday nil)         ;; calendar begins today
+																 (org-agenda-repeating-timestamp-show-all t)
+																 (org-agenda-entry-types '(:timestamp :sexp))
+																 )
+														 )
+										 (agenda "" (
+																 (org-agenda-span 1)                      ; daily agenda
+																 (org-deadline-warning-days 7)            ; 7 day advanced warning for deadlines
+																 (org-agenda-todo-keyword-format "[ ]")
+																 (org-agenda-scheduled-leaders '("" ""))
+																 (org-agenda-prefix-format "%t%s")
+																 )
+														 )
+										 (todo "TODO"                                          ;; todos sorted by context
+													 (
+														(org-agenda-prefix-format "[ ] %T: ")
+														(org-agenda-sorting-strategy '(tag-up priority-down))
+														(org-agenda-todo-keyword-format "")
+														(org-agenda-overriding-header "\nTasks by Context\n------------------\n")
+														)
+													 )
+										 )
+										((org-agenda-with-colors nil)
+										 (org-agenda-compact-blocks t)
+										 (org-agenda-remove-tags t)
+										 (ps-number-of-columns 2)
+										 (ps-landscape-mode t))
+										("~/agenda.ps"))
+
+									 ("f". "Filter Searches") ;; category searches
+									 ("fc" tags "+claire")
+									 ("fh" tags "+helia")
+									 ("fv" tags "+vovo")
+									 ("fs" tags "+social")
+
+									 ("n" "Non boulot" tags-todo "-boulot+TODO=TODO"
+										(todo "TODO"
+													((org-agenda-prefix-format "[ ] %T: ")
+													 (org-agenda-overriding-header "Tâches pour le fun")
+													 (org-agenda-sorting-strategy
+														'(todo-state-down effort-up category-keep)
+														))
+													)
+										)
+									 ("h" "Habits" tags-todo "STYLE=\"habit\""
+										((org-agenda-overriding-header "Habitudes")
+										 (org-agenda-todo-keyword-format "[ ]")
+										 (org-agenda-sorting-strategy
+											'(todo-state-down effort-up category-keep)))
+										)
+									 )
+									)
+					 )
+
+	 #+end_src
+** Ménage dans les tâches réalisées
+
+	 #+begin_src emacs-lisp
+		 (defun my-org-clean-up-inbox ()
+			 "Archive all DONE tasks and sort the remainder by TODO order."
+			 (interactive)
+			 (with-current-buffer (find-file "~/Nextcloud/textes/orgmode/tasks.org")
+				 (my-org-archive-done-tasks 'file)
+				 (goto-char (point-min))
+				 (if (org-at-heading-p) (save-excursion (insert "\n")))
+				 (org-sort-entries nil ?p)
+				 (goto-char (point-min))
+				 (org-sort-entries nil ?o)
+				 (save-buffer)))
+
+		 (defun my-org-archive-done-tasks (&optional scope)
+			 "Archive finished or cancelled tasks.
+						SCOPE can be 'file or 'tree."
+			 (interactive)
+			 (org-map-entries
+				(lambda ()
+					(org-archive-subtree)
+					(setq org-map-continue-from (outline-previous-heading)))
+				"TODO=\"DONE\"|TODO=\"CANCELLED\"" (or scope (if (org-before-first-heading-p) 'file 'tree))))
+	 #+end_src
+** Revue mensuelle (FIXME)
+
+	 #+begin_src emacs-lisp
+
+		 (defun my-org-review-month (start-date)
+			 "Review the month's clocked tasks and time."
+			 (interactive (list (org-read-date)))
+			 ;; Set to the beginning of the month
+			 (setq start-date (concat (substring start-date 0 8) "01"))
+			 (let ((org-agenda-show-log t)
+						 (org-agenda-start-with-log-mode t)
+						 (org-agenda-start-with-clockreport-mode t)
+						 (org-agenda-clockreport-parameter-plist '(:link t :maxlevel 3)))
+				 (org-agenda-list nil start-date 'month)))
+
+		 (defun my-org-summarize-previous-week ()
+			 "Summarize previously-completed tasks as a list."
+			 (interactive)
+			 (save-window-excursion
+				 (org-agenda nil "w")
+				 (org-agenda-later -1)
+				 (org-agenda-log-mode 16)
+				 (let ((string (buffer-string))
+							 business relationships life)
+					 (with-temp-buffer
+						 (insert string)
+						 (goto-char (point-min))
+						 (while (re-search-forward my-weekly-review-line-regexp nil t)
+							 (cond
+								((string= (match-string 1) "routines") nil) ; skip routine tasks
+								((string= (match-string 1) "business")
+								 (add-to-list 'business (concat "  - " (match-string 2))))
+								((string= (match-string 1) "people")
+								 (add-to-list 'relationships (concat "  - " (match-string 2))))
+								(t (add-to-list 'life (concat "  - " (match-string 2)))))))
+					 (setq string
+								 (concat
+									"*Accomplished this week*\n\n"
+									"- Business\n"
+									(mapconcat 'identity business "\n")
+									"\n- Relationships\n"
+									(mapconcat 'identity relationships "\n")
+									"\n- Life\n"
+									(mapconcat 'identity life "\n")))
+					 (if (called-interactively-p 'any)
+							 (kill-new string)
+						 string))))
+
+	 #+end_src
+
+** Pimper les couleurs
+
+	 #+begin_src emacs-lisp
+		 ;; pimp my agenda colors
+		 (setq org-todo-keyword-faces
+					 '(
+						 ("TODO" . org-warning)
+						 ("STARTED" . "yellow")
+						 ("DONE" . (:foreground "#B4EB89") )
+						 ("WAITING" . (:foreground "red" :weight bold))
+						 ("SOMEDAY" . (:foreground "gray" :weight bold))
+						 ("CANCELED" . (:foreground "#234" :weight bold))
+						 ))
+
+
+	 #+end_src
+
+** Définir l'effort sur une tâche
+	 Raccourci pour définir un effort compté en nombre de minutes à consacrer à une tâche: F6.
+	 #+begin_src emacs-lisp
+		 ;; org-set-effort
+		 (global-set-key (kbd "<f6>") 'org-set-effort)
+	 #+end_src
+
+** Deadlines et Schedules
+	 Cacher les avertissements de deadline les jours précédents pour ne pas encombrer l'agenda.
+
+	 #+begin_src emacs-lisp
+
+		 ;; Hide the deadline prewarning prior to scheduled date.
+		 ;;(setq org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled)
+
+		 (defun my-org-summarize-task-status ()
+			 "Count number of tasks by status.
+					 Probably should make this a dblock someday."
+			 (interactive)
+			 (let (result)
+				 (org-map-entries
+					(lambda ()
+						(let ((todo (elt (org-heading-components) 2)))
+							(if todo
+									(if (assoc todo result)
+											(setcdr (assoc todo result)
+															(1+ (cdr (assoc todo result))))
+										(setq result (cons (cons todo 1) result)))))))
+				 (message "%s" (mapconcat (lambda (x) (format "%s: %d" (car x) (cdr x)))
+																	result "\n"))))
+
+		 ;; backup in an other dir
+		 (setq backup-directory-alist '(("." . "~/.config/emacs/backups")))
+	 #+end_src
+
+** Listes de tags
+
+	 tags prédéfinis au choix lors de la qualification avec C-c C-q sur une tâche
+	 #+begin_src emacs-lisp
+		 (setq org-tag-alist '(
+													 ("adminsys" . ?A)
+													 ("administratif" . ?a)
+													 ("boulot" . ?b)
+													 ("dev" . ?d)
+													 ("email" .?e)
+													 ("GULL" . ?g)
+													 ("habitudes" . ?h)
+													 ("social" . ?s)
+													 ("tel" . ?t)
+													 ("osm" . ?o)
+													 ("inbox" . ?i)
+													 ("rangement" . ?r)
+													 )
+					 )
+
+		 (setq org-todo-state-tags-triggers '(("CANCELLED" ("ARCHIVE" . t))))
+	 #+end_src
+
+
+
+** Template de capture
+
+	 https://orgmode.org/manual/Template-expansion.html
+	 #+begin_src emacs-lisp
+
+
+		 ;; full screen captures
+		 (add-hook 'org-capture-mode-hook 'delete-other-windows)
+
+
+								;;; templates de capture pour les nouvelles tâches
+		 (setq org-capture-templates
+					 '(
+						 ("t" "Todo" entry (file+headline "~/Nextcloud/textes/orgmode/tasks.org" "Inbox")
+							"* TODO %?\n")
+						 ("d" "Todo this Day" entry (file+headline "~/Nextcloud/textes/orgmode/tasks.org" "Inbox")
+							"* TODO %?\nDEADLINE:%T")
+						 ("l" "ToLearn" entry (file+headline "~/Nextcloud/textes/orgmode/tasks.org" "Recherches et éducation")
+							"* LEARN %?\n  %i\n  %a")
+						 ("b" "Boulot" entry (file+headline "~/Nextcloud/textes/orgmode/boulot.org" "Inbox")
+							"* TODO %?\n :boulot:work:  \n  %a")
+						 ;; (file "~/Nextclod/textes/orgmode/org-roam/20220620110632-meeting_template.org")
+						 ("m" "Meeting" entry (file+datetree "~/Nextcloud/textes/orgmode/reunions.org" "Réunions")
+							"* Réunion %T \n	:[[id:d8636e1d-0137-4502-9384-767b41c892b0][boulot:meeting:]] \n**** Gens présents\n**** Notes\n - %?\n**** Choses à investiguer\n -\n**** Prochaines actions\n - Fin de la réunion: \n"
+							)
+						 ("e" "E-mail" entry (file+headline "~/Nextcloud/textes/orgmode/tasks.org" "Inbox")
+							"* TODO %? :mail:écriture:\n ")
+						 ("n" "Next Task" entry (file+headline  "~/Nextcloud/textes/orgmode/tasks.org" "Inbox")
+							"** NEXT %? \nDEADLINE: %t")
+						 ("p" "Phone call" entry (file+headline "~/Nextcloud/textes/orgmode/tasks.org" "Tel")
+							"* PHONE %? :tel:\n%U" :clock-in t :clock-resume t)
+						 ("j" "Journal" entry (file+datetree "~/Nextcloud/textes/orgmode/journal.org")
+							"* %?\nEntered on %U\n "))
+					 )
+
+
+		 ;; raccourci custom pour clavier sans pavé numérique
+		 (global-set-key (kbd "C-T") 'org-capture)
+
+
+ #+end_src
+
+** Ajout de date de création d'une tâche
+ #+begin_src emacs-lisp
+	 (defun insert-created-date(&rest ignore)
+		 (org-back-to-heading) ; in org-capture, this folds the entry; when inserting a heading, this moves point back to the heading line
+		 (move-end-of-line()) ; when inserting a heading, this moves point to the end of the line
+		 (insert
+			(format-time-string
+			 (concat " \nCREATED: [%Y-%m-%d %a %H:%M]")
+			 )
+			)
+		 )
+
+																					 ; add to the org-capture hook
+	 (add-hook 'org-capture-before-finalize-hook
+						 #'insert-created-date
+						 )
+																					 ; hook it to adding headings with M-S-RET
+																					 ; do not add this to org-insert-heading-hook, otherwise this also works in non-TODO items
+	 ;; and Org-mode has no org-insert-todo-heading-hook
+	 (advice-add 'org-insert-todo-heading :after #'insert-created-date)
+
+ #+end_src
+
+** Org Roam, wiki personnel
+	 https://systemcrafters.net/build-a-second-brain-in-emacs/capturing-notes-efficiently/
+
+	 Raccourcis Org Roam généraux
+	 #+begin_src emacs-lisp
+		 (use-package org-roam
+
+			 :init
+			 (setq org-roam-v2-ack t)
+			 :custom
+			 (org-roam-capture-templates
+				'(("d" "default" plain
+					 "%?"
+					 :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n\n* ${title}")
+					 :unnarrowed t)
+					("m" "meeting" plain (file "~/Nextclod/textes/orgmode/org-roam/20220620110632-meeting_template.org")
+					 :if-new (file+head "%<%Y%m%d%H%M%S>-meeting-${slug}.org" "#+title: ${title}\n")
+					 :unnarrowed t
+					 )
+					("b" "book notes" plain
+					 "\n* Source\n\nAuthor: %^{Author}\nTitle: ${title}\nYear: %^{Year}\n\n* Summary\n\n%?"
+					 :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
+					 :unnarrowed t))
+				)
+
+
+			 :bind (
+							("C-c n l" . org-roam-buffer-toggle)
+							("C-c n f" . org-roam-node-find)
+							("C-c n i" . org-roam-node-insert)
+							("C-c n g" . org-roam-graph)
+							("C-c n t" . org-roam-tag-add)
+							("C-c n a" . org-roam-alias-add)
+							:map org-roam-dailies-map
+							("Y" . org-roam-dailies-capture-yesterday)
+							("T" . org-roam-dailies-capture-tomorrow)
+							)
+			 :bind-keymap
+			 ("C-c n d" . org-roam-dailies-map)
+			 :config
+			 (require 'org-roam-dailies)
+			 (org-roam-db-autosync-mode)
+			 )
+		 (setq org-roam-directory "~/Nextcloud/textes/orgmode/org-roam")
+		 (setq org-roam-completion-everywhere t)
+
+ #+end_src
+
+*** Roam graph
+		Graph naviguable des liens entre les notes Org Roam.
+		#+begin_src emacs-lisp
+			(use-package org-roam-ui
+				:straight
+				(:host github :repo "org-roam/org-roam-ui" :branch "main" :files ("*.el" "out"))
+				:after org-roam
+				;;         normally we'd recommend hooking orui after org-roam, but since org-roam does not have
+				;;         a hookable mode anymore, you're advised to pick something yourself
+				;;         if you don't care about startup time, use
+				;;  :hook (after-init . org-roam-ui-mode)
+				:config
+				(setq org-roam-ui-sync-theme t
+							org-roam-ui-follow t
+							org-roam-ui-update-on-save t
+							org-roam-ui-open-on-start t))
+
+		#+end_src
+** Images incluses dans les fichiers org
+ #+begin_src emacs-lisp
+
+	 (setq org-startup-with-inline-images t)
+	 (global-set-key (kbd "M-<f12>") 'org-toggle-inline-images)
+	 (global-set-key (kbd "C-<f12>") 'visible-mode) ;; edit links
+ #+end_src
+** Refile des tâches
+	 Ctrl + R
+ #+begin_src emacs-lisp
+	 (global-set-key (kbd "C-R") 'org-refile)
+ #+end_src
+* Calendar framework
+#+begin_src emacs-lisp
+	; calendar display
+	(use-package calfw)
+	(use-package calfw-org)
+
+	;; First day of the week
+	(setq calendar-week-start-day 0
+				calendar-day-name-array ["Dimanche" "Lundi" "Mardi" "Mercredi" "Jeudi" "Vendredi" "Samedi"]
+				calendar-month-name-array ["Janvier" "Février" "Mars" "Avril" "Mai"
+																	 "Juin" "Juillet" "Août" "Septembre"
+																	 "Octobre" "Novembre" "Décembre"]
+				calendar-date-style 'european
+				org-icalendar-timezone "Europe/Paris"
+
+				cfw:fchar-junction ?╋
+				cfw:fchar-vertical-line ?┃
+				cfw:fchar-horizontal-line ?━
+				cfw:fchar-left-junction ?┣
+				cfw:fchar-right-junction ?┫
+				cfw:fchar-top-junction ?┯
+				cfw:fchar-top-left-corner ?┏
+				cfw:fchar-top-right-corner ?┓
+				)
+	;; agenda vue calendrier avec Ctrl Shift F12
+	(global-set-key (kbd "C-s-<f12>") 'cfw:open-org-calendar)
+
+#+end_src
+* Insérer la date et l'heure
+
+	raccourci: *Ctrl c, !*
+*Ctrl U Ctrl C .*
+exemple : <2022-06-27 lun. 18:51>
+  #+begin_src emacs-lisp
+		(defvar bjk-timestamp-format "<%Y-%m-%d %H:%M>"
+			"Format of date to insert with `bjk-timestamp' function
+				%Y-%m-%d %H:%M will produce something of the form YYYY-MM-DD HH:MM
+				Do C-h f on `format-time-string' for more info")
+
+		(defun bjk-timestamp ()
+			"Insert a timestamp at the current point.
+				Note no attempt to go to beginning of line and no added carriage return.
+				Uses `bjk-timestamp-format' for formatting the date/time."
+			(interactive)
+			(insert (org-format-time-string bjk-timestamp-format (current-time)))
+			)
+		;; insérer timestamp date et heure
+		(global-set-key "\C-c !" 'insert-current-date-time)
+ #+end_src
+* Préconfiguration
+#+begin_src emacs-lisp
+  ;; -*- coding: utf-8; lexical-binding: t -*-
+  ;;  - - - - - - - - - - - - - - - - - - - - - - - - - -  - - - - - - toujours s'assurer que les packages sont installés  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+;; fait par tykayn le 7-04-2022
+;; version GNU Emacs 27.1
+
+#+end_src
+** Gestion de paquets Straight.el
+  #+begin_src emacs-lisp
+
+     ;; on utilise straight.el pour déclarer les packages à utiliser
+ #+end_src
+** Charset UTF-8
+   #+begin_src emacs-lisp
+
+   #+end_src
+* Démarrage
+** Plein écran au démarrage
+ #+begin_src emacs-lisp
+	 (menu-bar-mode 0)
+	 (tool-bar-mode 0)
+	 (scroll-bar-mode 0)
+	 (add-to-list 'default-frame-alist '(fullscreen . maximized))
+ #+end_src
+** Fichier par défaut à l'ouverture
+	 Montrer la liste des tâches par défaut
+ #+begin_src emacs-lisp
+	 (setq initial-buffer-choice "~/Nextcloud/textes/orgmode/tasks.org")
+
+ #+end_src
+** Centrer la fenêtre
+ #+begin_src emacs-lisp
+	 (use-package centered-window
+   :custom
+   (cwm-centered-window-width 180))
+ #+end_src
+* Faire un log de toutes les commandes réalisées en live (FIXME)
+* Dossiers
+#+begin_src emacs-lisp
+	;;	(use-package dirvish
+	;;		:init
+	;;		;; Let Dirvish take over Dired globally
+	;;		(dirvish-override-dired-mode)
+	;;		)
+	;;	(require 'dirvish)
+#+end_src
+
+* Fichiers récents
+
+#+begin_src emacs-lisp
+
+	;; see recent files
+	(use-package recentf
+		:config
+		(add-to-list 'recentf-exclude "\\elpa")
+		(add-to-list 'recentf-exclude "private/tmp")
+		(recentf-mode))
+	;; recent files
+	(setq recentf-max-menu-items 25)
+	(setq recentf-max-saved-items 25)
+
+#+end_src
+* Raccourcis
+** Retirer les mauvais raccourcis
+ #+begin_src emacs-lisp
+
+	 ;; remove bad shortcuts
+	 (-map (lambda (x) (unbind-key x)) '(
+																			 "C-x C-b";; basic buffer list ibuffer
+																			 "C-x C-d" ;; list-directory
+																			 "C-z" ;; suspend-frame
+																			 "C-x C-z" ;; again
+																			 "M-o" ;; facemenu-mode
+																			 "<mouse-2>" ;; pasting with mouse-wheel click
+																			 "<C-wheel-down>" ;; text scale adjust
+																			 "<C-wheel-up>" ;; ditto
+																			 "s-n" ;; make-frame
+																			 "C-i" ;; tab ?
+																			 "C-x C-q" ;; read-only-mode
+																			 ))
+
+ #+end_src
+** Lister les buffers avec Helm
+	 #+begin_src emacs-lisp
+		 (global-set-key (kbd "C-x C-b") 'helm-buffers-list)
+
+	 #+end_src
+** Commenter une ligne
+	 Avec Ctrl+Shift+C
+
+ #+begin_src emacs-lisp
+
+	 ;; commenter une ligne de code, Ctrl Shift C.
+
+	 (defun comment-eclipse ()
+		 (interactive)
+		 (let ((start (line-beginning-position))
+					 (end (line-end-position)))
+			 (when (or (not transient-mark-mode) (region-active-p))
+				 (setq start (save-excursion
+											 (goto-char (region-beginning))
+											 (beginning-of-line)
+											 (point))
+							 end (save-excursion
+										 (goto-char (region-end))
+										 (end-of-line)
+										 (point))))
+			 (comment-or-uncomment-region start end)))
+
+	 (global-set-key (kbd "C-<S-C>") 'comment-eclipse)
+
+ #+end_src
+** Tout sélectionner
+	  #+begin_src emacs-lisp
+	 (global-set-key (kbd "C-a") 'mark-whole-buffer)
+		#+end_src
+* Common usage CUA
+#+begin_src emacs-lisp
+	;; raccourcis communs pour copier coller de texte
+	(cua-mode t)
+
+	;; couper toute la ligne, façon Nano editor, et façon PhpStorm
+	(global-set-key (kbd "C-K") 'kill-whole-line)
+	(global-set-key (kbd "C-E") 'kill-whole-line)
+
+	;; rechercher et remplacer
+	(global-set-key (kbd "C-S-H") 'query-replace)
+#+end_src
+* Recherche globale
+Deft
+	#+begin_src emacs-lisp
+		(use-package deft)
+		(setq deft-directory "~/Nextcloud/textes/orgmode/")
+		(setq deft-recursive t)
+		(setq deft-use-filename-as-title t)
+		(setq deft-file-naming-rules
+					'((noslash . "-")
+						(nospace . "-")
+						(case-fn . downcase)))
+ #+end_src
+
+* Lecture
+
+** Liste de fichiers à considérer pour l'Agenda
+ #+begin_src emacs-lisp
+
+	 ;; dossier des fichiers org à considérer pour les agendas, uniquement la racine du dossier orgmode dans Nextcloud
+	 (setq org-agenda-files (list "~/Nextcloud/textes/orgmode"))
+	 ;; pouvoir faire du refile dans des headers de niveau 2 dans tasks.org
+	 (setq org-refile-targets
+				 '((nil :maxlevel . 1)
+					 ( "~/Nextcloud/textes/orgmode/tasks.org" :maxlevel . 2)))
+
+ #+end_src
+** Thème Doom nord
+ #+begin_src emacs-lisp
+
+	 (use-package doom-themes
+		 :config
+		 ;; Global settings (defaults)
+		 (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
+					 doom-themes-enable-italic t) ; if nil, italics is universally disabled
+		 ;; thème principal https://github.com/doomemacs/themes
+		 (load-theme 'doom-nord t)
+
+		 ;; Enable flashing mode-line on errors
+		 (doom-themes-visual-bell-config)
+		 ;; Enable custom neotree theme (all-the-icons must be installed!)
+		 (doom-themes-neotree-config)
+		 ;; or for treemacs users
+		 (setq doom-themes-treemacs-theme "doom-atom") ; use "doom-colors" for less minimal icon theme
+		 (doom-themes-treemacs-config)
+		 ;; Corrects (and improves) org-mode's native fontification.
+		 (doom-themes-org-config))
+
+	 (use-package doom-modeline
+		 :config (doom-modeline-mode))
+
+ #+end_src
+** Voir le dashboard de tâches au démarrage
+ #+begin_src emacs-lisp
+	 ;;---- open tasks list at startup
+	 (setq initial-buffer-choice "~/Nextcloud/textes/orgmode/tasks.org")
+
+ #+end_src
+** Raccourcis d'agenda perso
+ #+begin_src emacs-lisp
+
+	 ;; - - - - - - - - - - - - - - - - - - - - - - - - - custom keys  - - - - - - - - - - - - - - - - - - - - - - - - -
+	 (global-set-key (kbd "C-c l") 'org-store-link)
+	 (global-set-key (kbd "C-c a") 'org-agenda)
+	 (global-set-key (kbd "C-c c") 'org-capture)
+
+ #+end_src
+** Custom GUI sans barres
+	 Désactivez ceci si vous êtes débutant.
+ #+begin_src emacs-lisp
+	 ;; barres de GUI
+	 (setq tool-bar-mode t)
+	 (setq scroll-bar-mode t)
+	 (setq menu-bar-mode t)
+
+ #+end_src
+** Voir la liste des sélections copiées
+	 Afficher le kill-ring Ctrl+Shift+V
+
+ #+begin_src emacs-lisp
+
+	 (global-set-key (kbd "C-S-v") 'helm-show-kill-ring)
+
+ #+end_src
+
+** Macros pour lister et archiver les tâches finies
+ #+begin_src emacs-lisp
+
+	 ;; voir la liste des tâches à l'état DONE
+	 (fset 'done-tasks-list
+				 (kmacro-lambda-form [?\C-c ?a ?t kp-4 ?r] 0 "%d"))
+
+	 ;; archiver les tâches à l'état DONE
+	 (fset 'archive-done-tasks-list
+				 (kmacro-lambda-form [?\C-c ?a ?t kp-4 ?r] 0 "%d"))
+
+ #+end_src
+** Icones
+ #+begin_src emacs-lisp
+
+	 ;; - - - - - - - - - - - - - -  icons - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+	 (use-package all-the-icons)
+	 (require 'all-the-icons)
+
+
+	 (use-package all-the-icons-dired
+		 :after all-the-icons
+		 :hook (dired-mode . all-the-icons-dired-mode))
+
+ #+end_src
+** Changer la taille de font
+	 Ctrl + et Ctrl -
+ #+begin_src emacs-lisp
+
+	 (global-set-key (kbd "C-+") 'text-scale-increase)
+	 (global-set-key (kbd "C--") 'text-scale-decrease)
+ #+end_src
+**
+ #+begin_src emacs-lisp
+
+ #+end_src
+**
+ #+begin_src emacs-lisp
+
+ #+end_src
+**
+ #+begin_src emacs-lisp
+
+ #+end_src
+**
+ #+begin_src emacs-lisp
+
+ #+end_src
+**
+ #+begin_src emacs-lisp
+
+ #+end_src
+** Fenêtres, buffers
+
+	 Fermer tous les buffers.
+ #+begin_src emacs-lisp
+
+	 (defun kill-all-buffers ()
+		 "Close all buffers."
+		 (interactive)
+		 (let ((lsp-restart 'ignore))
+			 ;; (maybe-unset-buffer-modified)
+			 (delete-other-windows)
+			 (save-some-buffers)
+			 (let
+					 ((kill-buffer-query-functions '()))
+				 (mapc 'kill-buffer (buffer-list)))))
+
+	 (bind-key "C-c K" #'kill-all-buffers)
+	 (bind-key "C-x !" #'delete-other-windows) ;; Access to the old keybinding.
+
+ #+end_src
+** Mise en forme des parenthèses
+ #+begin_src emacs-lisp
+
+	 ;; - - - - - - - - - - - - - -  matching parentheses - - - - - - - - - - - - - - - - - - - - - - - - - -
+	 (use-package paren
+		 :ensure nil
+		 :init
+		 (setq show-paren-delay 0)
+		 :config
+		 (show-paren-mode +1))
+
+	 (show-paren-mode)
+
+	 (use-package rainbow-delimiters
+		 :hook ((prog-mode . rainbow-delimiters-mode)))
+	 ;; dir tree
+
+ #+end_src
+
+** Tout
+ #+begin_src emacs-lisp
+
+	 (setq left-margin-width 5)
+	 (setq right-margin-width 5)
+
+	 ;; highlight of lines
+	 (require 'hl-line)
+	 (add-hook 'prog-mode-hook #'hl-line-mode)
+	 (add-hook 'text-mode-hook #'hl-line-mode)
+
+	 ;; fonts
+	 ;; font for errors
+	 (ignore-errors (set-frame-font "JuliaMono-12"))
+
+	 ;; alias
+	 (defalias 'yes-or-no-p 'y-or-n-p)
+
+	 ;; - - - - - - - - - - - - - - - - - - - - - - - - - custom keys  - - - - - - - - - - - - - - - - - - - - - - - - -
+	 (global-set-key (kbd "C-c l") 'org-store-link)
+	 (global-set-key (kbd "C-c a") 'org-agenda)
+	 (global-set-key (kbd "C-c c") 'org-capture)
+
+	 (defun switch-to-scratch-buffer ()
+		 "Switch to the current session's scratch buffer."
+		 (interactive)
+		 (switch-to-buffer "*scratch*"))
+	 (bind-key "C-c s" #'switch-to-scratch-buffer)
+
+	 (global-set-key (kbd "C-x C-b") 'ibuffer)
+	 (global-set-key (kbd "C-c C-d") 'done-tasks-list)
+	 (global-set-key (kbd "C-M-d") 'archive-done-tasks-list)
+
+	 ;; raccourcis issus d'habitudes de netbeans
+	 ;; save all by default Was: isearch-forward
+	 (defun save-all () (interactive) (save-some-buffers t))
+	 (global-set-key (kbd "C-x C-s") 'save-all)
+	 (global-set-key (kbd "C-o") 'save-all)
+	 (global-set-key (kbd "C-S-c") 'comment-line)
+	 ;; recherche dans tous les fichiers du dossier orgmode
+	 (global-set-key (kbd "C-S-f") 'deft)
+	 (global-set-key (kbd "<f1>") 'deft)
+	 ;; recherche dans le fichier courant avec ctrl + f
+	 (global-set-key (kbd "C-f") 'isearch-forward)
+
+	 (global-set-key (kbd "C-c C-f") 'org-roam-node-find)
+	 (global-set-key (kbd "C-c C-i") 'org-roam-node-insert)
+	 (global-set-key (kbd "C-i") 'org-roam-node-insert)
+	 (global-set-key (kbd "C-S-i") 'org-roam-node-insert)
+	 (global-set-key (kbd "C-c i") 'org-roam-node-insert)
+
+	 (global-set-key (kbd "<f5>") 'org-capture)
+	 (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
+	 (global-set-key (kbd "<f12>") 'org-agenda)
+
+	 (global-set-key (kbd "C-c <f9>") 'org-agenda-clock-goto)
+	 (global-set-key (kbd "<f9>") 'org-clock-in)
+	 (global-set-key (kbd "<f10>") 'org-clock-out)
+	 (global-set-key (kbd "<f11>") 'org-clock-goto)
+
+	 (global-set-key (kbd "<f2>") 'dir-treeview)
+	 (global-set-key "\C-x\ \C-r" 'recentf-open-files)
+
+	 (setq org-agenda-sticky t)
+
+
+
+	 ;; use org-bullets-mode for utf8 symbols as org bullets
+	 (use-package org-bullets)
+	 (require 'org-bullets)
+	 ;; make available "org-bullet-face" such that I can control the font size individually
+	 (setq org-bullets-face-name (quote org-bullet-face))
+	 (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
+	 (setq org-bullets-bullet-list '("◉"
+																	 "○"
+																	 "✸"
+																	 "✿"
+																	 "◇"
+																	 "✚"
+																	 ))
+
+	 ;; org ellipsis options, other than the default Go to Node...
+	 ;; not supported in common font, but supported in Symbola (my fall-back font) ⬎, ⤷, ⤵
+	 (setq org-ellipsis "⤵");;  ≫
+
+	 ;; make available "org-bullet-face" such that I can control the font size individually
+	 (setq org-bullets-face-name (quote org-bullet-face))
+
+	 ;; détail de combinaison de touches
+	 (use-package which-key
+		 :diminish
+		 :custom
+		 (which-key-enable-extended-define-key t)
+		 :config
+		 (which-key-mode)
+		 (which-key-setup-minibuffer))
+
+	 (defun display-startup-echo-area-message ()
+		 "Override the normally tedious startup message."
+		 (message "Welcome back."))
+
+ #+end_src
+
+** Font Custom et mode de ligne
+ #+begin_src emacs-lisp
+			(add-hook 'org-mode-hook 'variable-pitch-mode)
+			(add-hook 'org-mode-hook 'visual-line-mode)
+
+			(add-hook 'org-mode-hook 'prettify-symbols-mode)
+
+			(defun my-org-config/setup-buffer-face ()
+				(setq buffer-face-mode-face '(:family "Calibri"))
+				(buffer-face-mode)
+				)
+
+			(custom-set-faces
+		 '(org-level-1 ((t (:inherit outline-1 :height 2.0))))
+		 '(org-level-2 ((t (:inherit outline-2 :height 1.750))))
+		 '(org-level-3 ((t (:inherit outline-3 :height 1.5))))
+		 '(org-level-4 ((t (:inherit outline-4 :height 1.25))))
+		 '(org-level-5 ((t (:inherit outline-5 :height 1.0))))
+	 )
+
+ #+end_src
+
+* Heure dans la modeline
+#+begin_src emacs-lisp
+	(display-time-mode 1)
+#+end_src
+* Locale des dates en Fr
+
+#+begin_src emacs-lisp
+	;; localise dates
+	;; https://www.emacswiki.org/emacs/CalendarLocalization#h5o-11
+	(setq org-agenda-span 7
+				org-agenda-start-on-weekday 1
+				european-calendar-style t
+				display-time-24hr-format t
+				display-time-day-and-date t
+				calendar-day-abbrev-array ["dim" "lun" "mar" "mer" "jeu" "ven" "sam"]
+				calendar-day-name-array ["Dimanche" "Lundi" "Mardi" "Mercredi"
+																 "Jeudi" "Vendredi" "Samedi"]
+				calendar-month-abbrev-array ["jan" "fév" "mar" "avr" "mai" "jun" "jul" "aou" "sep" "oct" "nov" "déc"]
+				calendar-month-name-array ["Janvier" "Février" "Mars" "Avril" "Mai"
+																	 "Juin" "Juillet" "Août" "Septembre"
+																	 "Octobre" "Novembre" "Décembre"]
+				org-agenda-start-day "-0d"
+				org-hierarchical-todo-statistics nil ;; count all TODO as checkboxes
+				org-scheduled-delay-days 1
+				org-cycle-separator-lines 0
+				)
+
+#+end_src
+* Sauvegarde et historique
+** Ajout de majuscule aux entêtes (FIXME)
+
+ #+begin_src emacs-lisp
+	 (defun org-auto-capitalize-headings-and-lists ()
+		 "Create a buffer-local binding of sentence-end to auto-capitalize
+	 section headings and list items."
+		 (make-local-variable 'sentence-end)
+		 (setq sentence-end (concat (rx (or
+																		 ;; headings
+																		 (seq line-start (1+ "*") (1+ space))
+																		 ;; list and checklist items
+																		 (seq line-start (0+ space) "-" (1+ space) (? (or "[ ]" "[X]") (1+ space)))))
+																"\\|" (sentence-end))))
+
+	 (add-hook 'org-mode-hook #'org-auto-capitalize-headings-and-lists)
+ #+end_src
+** Sauvegarde à la perte de focus
+ #+begin_src emacs-lisp
+	 ;; sauvegarder les frames quand on change de focus
+	 (defun save-all ()
+		 (interactive)
+		 (org-update-all-dblocks)
+		 (save-some-buffers t))
+
+	 (add-hook 'focus-out-hook 'save-all)
+ #+end_src
+* Développement
+#+begin_src emacs-lisp
+#+end_src
+** Gestion de version
+	 #+begin_src emacs-lisp
+		 ;; https://github.com/emacsorphanage/git-gutter
+		 (use-package git-gutter)
+		 (global-git-gutter-mode +1)
+#+end_src
+
+** Auto format
+
+ #+begin_src emacs-lisp
+
+	 ;;	(setq org-adapt-indentation t)
+	 ;; *** Auto Indent
+
+	 (defun indent-org-block-automatically ()
+		 (when (org-in-src-block-p)
+			 (org-edit-special)
+			 (indent-region (point-min) (point-max))
+			 (org-edit-src-exit)))
+
+	 (global-set-key (kbd "C-M-f") 'indent-org-block-automatically)
+
+ #+end_src
+
+** Tab avec largeur de 2 espaces
+ #+begin_src emacs-lisp
+	 (setq-default tab-width 2)
+ #+end_src
+** Dupliquer la ligne
+#+begin_src emacs-lisp
+	;; --- dupliquer la sélection
+(use-package duplicate-thing
+  :init
+  (defun pt/duplicate-thing ()
+    "Duplicate thing at point without changing the mark."
+    (interactive)
+    (save-mark-and-excursion (duplicate-thing 1))
+    (call-interactively #'next-line))
+  :bind ("C-d" . pt/duplicate-thing)
+  )
+#+end_src
+
+** Supprimer les espaces de fin
+ #+begin_src emacs-lisp
+	 (add-hook 'before-save-hook #'delete-trailing-whitespace)
+	 (setq require-final-newline t)
+
+	 (defalias 'view-emacs-news 'ignore)
+	 (defalias 'describe-gnu-project 'ignore)
+	 (setq mouse-wheel-tilt-scroll t
+				 mouse-wheel-flip-direction t)
+	 (setq-default truncate-lines t)
+	 #+end_src
+
+** Auto indentation et autres trucs
+	 #+begin_src emacs-lisp
+
+		 (use-package aggressive-indent)
+		 (global-aggressive-indent-mode 1)
+		 (delete-selection-mode t)
+		 ;;		(global-display-line-numbers-mode t)
+		 (column-number-mode)
+
+		 (add-hook 'before-save-hook #'delete-trailing-whitespace)
+		 (add-hook 'before-save-hook #'indent-org-block-automatically)
+		 (setq require-final-newline t)
+
+		 ;; hide some annoyances
+		 (defun do-nothing (interactive))
+		 (defalias 'view-emacs-news 'do-nothing)
+		 (defalias 'describe-gnu-project 'do-nothing)
+
+		 ;; run auto indent org block sources every 10 seconds
+		 (run-at-time 1 10 'indent-org-block-automatically)
+
+		 (setq user-full-name "TyKayn"
+					 user-mail-address "contact@cipherbliss.com")
+
+	 #+end_src
+** Markdown
+	 #+begin_src emacs-lisp
+
+		 (use-package markdown-mode
+			 :mode ("\\.\\(njk\\|md\\)\\'" . markdown-mode))
+
+	 #+end_src
+** Json
+	 #+begin_src emacs-lisp
+		 (use-package json-mode)
+
+	 #+end_src
+** Sauvegardes des fichiers
+	 #+begin_src emacs-lisp
+		 (setq backup-directory-alist '(("." . "~/.config/emacs/backups")))
+	 #+end_src
+
+* Écriture
+
+** Références bibliographiques
+
+	 #+begin_src emacs-lisp
+
+		 ;; BibLaTeX settings
+
+		 ;; bibtex-mode
+		 (setq bibtex-dialect 'biblatex)
+
+		 (setq bib-files-directory (directory-files
+																(concat (getenv "HOME") "/Nextcloud/textes/bibliography") t
+																"^[A-Z|a-z].+.bib$")
+					 pdf-files-directory (concat (getenv "HOME") "/Nextcloud/textes/bibliography"))
+
+		 (use-package helm-bibtex
+			 :config
+			 (setq bibtex-completion-bibliography bib-files-directory
+						 bibtex-completion-library-path pdf-files-directory
+						 bibtex-completion-pdf-field "File"
+						 bibtex-completion-notes-path org-directory
+						 bibtex-completion-additional-search-fields '(keywords))
+			 :bind
+			 (("C-c n B" . helm-bibtex)))
+
+		 (use-package org-roam-bibtex
+			 :after (org-roam helm-bibtex)
+			 :bind (:map org-mode-map ("C-c n b" . orb-note-actions))
+			 :config
+			 (require 'org-ref))
+		 (org-roam-bibtex-mode)
+	 #+end_src
+
+** Centrer le texte - Olivetti
+	 #+begin_src emacs-lisp
+		 ;; olivetti
+		 ;; Distraction-free screen
+		 (use-package olivetti
+			 :straight t
+			 :init
+			 (setq olivetti-body-width .67)
+			 :config
+			 )
+		 (setq olivetti-body-width .67
+					 text-scale-increase 1.15
+					 olivetti-mode t
+					 )
+
+		 ;; change font size on load of text files
+		 (add-hook 'text-mode-hook
+							 (lambda ()
+								 (interactive)
+								 (message "Olivetti text-mode-hook")
+								 (olivetti-set-width .67)
+								 ;; (hidden-mode-line-mode)
+								 (olivetti-mode 1)
+								 )
+							 )
+
+		 ;; focus on text in fullscreen
+		 (use-package writeroom-mode)
+
+ #+end_src
+** Auto complétion
+ #+begin_src emacs-lisp
+
+	 ;; Auto completion
+	 (use-package company
+		 :config
+		 (setq company-idle-delay 0
+					 company-minimum-prefix-length 4
+					 company-selection-wrap-around t))
+	 (global-company-mode)
+
+	 ;; Helm configuration
+	 (use-package helm
+		 :config
+		 (require 'helm-config)
+		 :init
+		 (helm-mode 1)
+		 :bind
+		 (("M-x"     . helm-M-x) ;; Evaluate functions
+			("C-x C-f" . helm-find-files) ;; Open or create files
+			("C-x b"   . helm-mini) ;; Select buffers
+			("C-x C-r" . helm-recentf) ;; Select recently saved files
+			("C-c i"   . helm-imenu) ;; Select document heading
+			("M-y"     . helm-show-kill-ring) ;; Show the kill ring
+			:map helm-map
+			("C-z" . helm-select-action)
+			("<tab>" . helm-execute-persistent-action)))
+
+ #+end_src
+
+** Exporter vers HTML avec un style commun
+ #+begin_src emacs-lisp
+	 ;; exporter sans nombres ajoutés dans les titres de section
+	 (setq org-export-with-section-numbers nil)
+
+	 ;; export with default modern css
+	 (defun my-org-inline-css-hook (exporter)
+		 "Insert custom inline css"
+		 (when (eq exporter 'html)
+			 (let* ((dir (ignore-errors (file-name-directory (buffer-file-name))))
+							(path (concat dir "style.css"))
+							(homestyle (or (null dir) (null (file-exists-p path))))
+							(final (if homestyle "~/Nextcloud/textes/orgmode/style.css" path))) ;; <- set your own style file path
+				 (setq org-html-head-include-default-style nil)
+				 (setq org-html-head (concat
+															"<style type=\"text/css\">\n"
+															"<!--/*--><![CDATA[/*><!--*/\n"
+															(with-temp-buffer
+																(insert-file-contents final)
+																(buffer-string))
+															"/*]]>*/-->\n"
+															"</style>\n"))
+				 )))
+
+	 (add-hook 'org-export-before-processing-hook 'my-org-inline-css-hook)
+
+ #+end_src
+
+*** Beamer
+
+	#+begin_src emacs-lisp
+		(require 'ox-latex)
+		(add-to-list 'org-latex-classes
+								 '("beamer"
+									 "\\documentclass\[presentation\]\{beamer\}"
+									 ("\\section\{%s\}" . "\\section*\{%s\}")
+									 ("\\subsection\{%s\}" . "\\subsection*\{%s\}")
+									 ("\\subsubsection\{%s\}" . "\\subsubsection*\{%s\}")))
+
+	#+end_src
+
+*** présentation reveal js
+
+	#+begin_src emacs-lisp
+		(straight-use-package '(ox-reveal :host github
+																			:repo "yjwen/org-reveal"
+																			:branch "master"))
+
+		(setq org-reveal-root "file:///home/tykayn/Nextcloud/textes/orgmode/reveal.js")
+
+		(require 'ox-reveal)
+	#+end_src
+*** publication de site web du wiki FIXME
+		Ox-Hugo https://ox-hugo.scripter.co/doc/installation/
+	#+begin_src emacs-lisp
+					;; ----- hugo export to publish website
+				(use-package ox-hugo
+		:straight t   ;Auto-install the package from Melpa
+		:pin melpa  ;`package-archives' should already have ("melpa" . "https://melpa.org/packages/")
+		:after ox)
+
+				(setq org-hugo-base-dir "~/Nextcloud/textes/hugo")
+				(with-eval-after-load 'ox
+					(require 'ox-hugo))
+
+		(require 'ox-hugo)
+	#+end_src
+
+** Exports
+
+*** export en JSON
+
+		Pour la création d'une page de rapport d'activités en HTML.
+
+#+begin_src emacs-lisp
+
+	(use-package ox-json
+		:straight t)
+	(require 'ox-json)
+
+#+end_src
+
+* Mystères	trucs à trouver comment faire
+	faire de la recherche avec Ctrl + F
+	faire du remplacement avec Ctrl + H
+
+
+#+begin_src emacs-lisp
+
+	;; non pris en compte pour l'ajout d'une deadline ou schedule
+
+	(setq calendar-day-abbrev-array ["Dim" "Lun" "Mar" "Mer" "Jeu" "Ven" "Sam"])
+#+end_src
+
+uuuuehh
+
+* Projectile, gestion de projets
+
+#+begin_src emacs-lisp
+
+	;; non pris en compte pour l'ajout d'une deadline ou schedule
+
+	(use-package projectile)
+	(projectile-mode +1)
+	(define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
+	(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
+
+#+end_src
+
+* Autre
+	La suite est à inventer.
+Pour installer cette configuration d'emacs, lancez le script qui se trouve ici https://forge.chapril.org/tykayn/scripts/src/branch/master/install_emacs_tk.sh
+
+
+#+begin_src bash
+	wget https://forge.chapril.org/tykayn/scripts/raw/branch/master/install_emacs_tk.sh | bash
+#+end_src